Bosna i Hercegovina



#1 28.03.2014-00:08
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


Subject: ADO Update ne raboti
Imam funkcija za updejn na edno pole no mi javuva greska ne znam kade gresam imam 50 vakvi funkcii i od site samo ovaa pravi problem , nemam ideja sto moze da bide

DownloadIzvorni kod (Visual Basic):
  1. Public Function AzurirajDDV_Smetka(ID_Smetka) As Boolean
  2.  On Error GoTo ErrorDDV:
  3.       AzurirajDDV_Smetka = False
  4. ' Azurirajne na danocite vo smetkata ama ne funkcionira Jebi ga
  5.      Dim RSAzurirajDDV As ADODB.Recordset
  6.       Dim SQLAzurirajDDV As String
  7.           SQLAzurirajDDV = "SELECT tblSmetki_Stavki.DDV, tblArtikli_Prodazba.ZaNosejne, tblSmetki_Stavki.Smetka_Br" _
  8.                          & " FROM tblArtikli_Prodazba INNER JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka" _
  9.                          & " WHERE (((tblArtikli_Prodazba.ZaNosejne)=True) AND ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & "));"
  10.  
  11.       If RSAzurirajDDV.RecordCount = 0 Then
  12.          AzurirajDDV_Smetka = True
  13.          Exit Function
  14.       End If
  15.    
  16.     Set RSAzurirajDDV = New ADODB.Recordset
  17.         RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic
  18.  
  19.        RSAzurirajDDV.MoveFirst
  20.     Do While Not RSAzurirajDDV.EOF
  21.        RSAzurirajDDV.Fields("DDV") = 15 'CInt(ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi"))                  'Danocna stapka
  22.       RSAzurirajDDV.Update
  23.        RSAzurirajDDV.MoveNext
  24.     Loop
  25.    
  26.      
  27.     AzurirajDDV_Smetka = True
  28. ErrorDDV:
  29.   If Err <> 0 Then
  30.      On Error Resume Next
  31.      AzurirajDDV_Smetka = False
  32.      Exit Function
  33.   End If
  34.      
  35.    
  36. End Function

Nekoja ideja ?
↑  ↓

#2 28.03.2014-09:16
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,752


Subject: Re: ADO Update ne raboti
Ako si do sad radio to onda je njbolje da zakacis primjer ako mozes lakse je.
Pozdrav
↑  ↓

#3 28.03.2014-12:25
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,752


Subject: Re: ADO Update ne raboti
Ima ovdje Lijepo gresaka po meni:
cn--Moguće da je to od negdje konekcija koja je klasa ili globalna variabla ali je vjerovatno konekcija.
Bez obzira treba
Set cn = New ADODB.Connection

If RSAzurirajDDV.RecordCount = 0 Then
AzurirajDDV_Smetka = True
Exit Function
End If

Nemozes provjeriti recordcount prije no sto podignes recordset.
Pozdrav
↑  ↓

#4 29.03.2014-21:25
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


Subject: Re: ADO Update ne raboti
eve primer

Prilozi:
Informacije o fajlu: rar  Primer.rar
Preuzimanja: 72
Veličina: 108.25 KB

↑  ↓

#5 29.03.2014-22:19
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,752


Subject: Re: ADO Update ne raboti
Nevalja ti upit odnosno SQL string.
Spojiom si dvije tabele i tako dobijeni Query nema mogućnost upisa.
Trebas napraviti novi upit sa jednom tabelom za upis podataka.
Pozdrav
↑  ↓

#6 29.03.2014-22:35
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,752


Subject: Re: ADO Update ne raboti
Evo ti SQL a ti provjeri dali zadovoljava tvoje propise jer ja naznam sta radis.
SQLAzurirajDDV = "SELECT tblSmetki_Stavki.ID_Stavka, tblSmetki_Stavki.DDV, tblSmetki_Stavki.Smetka_Br " _
& "FROM tblArtikli_Prodazba RIGHT JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka " _
& "WHERE tblSmetki_Stavki.Smetka_Br=" & ID_Smetka & " AND tblArtikli_Prodazba.ZaNosejne=True;"
Pozdrav
↑  ↓

#7 29.03.2014-22:49
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


Subject: Re: ADO Update ne raboti
Popraveno no ke go probam i tvojot sql.

Na ovaj updejt celta e da se promeni danocnata stapka od edna vo druga .
Ova cesto se koristi vo restorani ili fasfood kade sto na primer:
Ako imame jadejne koe se posluzuva vo restoranot togas danocnata stapka iznesuva nekoja vrednost na primer 20 % no dokolku toa jadejne se iznese nadvor od restoranot togas za toa jadejne danocnata stapka iznesuva 10 % taka da pred stampajne na krajniot racun imam napraveno da se izbere dali artiklite se za vo restoran ili za nadvor od restoran . Ovaa funkcija ja menuva danocnata stapka

DownloadIzvorni kod (Visual Basic):
  1. Public Function AzurirajDDV_Smetka(ID_Smetka) As Boolean
  2.  On Error GoTo ErrorDDV:
  3.       AzurirajDDV_Smetka = False
  4. ' Azurirajne na danocite vo smetkata ama ne funkcionira Jebi ga
  5.      Dim RSAzurirajDDV As ADODB.Recordset
  6.       Dim SQLAzurirajDDV As String
  7.           'SQLAzurirajDDV = "SELECT tblSmetki_Stavki.DDV, tblArtikli_Prodazba.ZaNosejne, tblSmetki_Stavki.Smetka_Br" _
  8.           '               & " FROM tblArtikli_Prodazba INNER JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka" _
  9.           '               & " WHERE (((tblArtikli_Prodazba.ZaNosejne)=True) AND ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & "));"
  10.  
  11.         SQLAzurirajDDV = "SELECT * FROM tblSmetki_Stavki WHERE ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & ");"
  12.  
  13.      
  14.      
  15.    
  16.    
  17.     Set RSAzurirajDDV = New ADODB.Recordset
  18.         RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic
  19.  
  20.       If RSAzurirajDDV.RecordCount = 0 Then
  21.          AzurirajDDV_Smetka = True
  22.          Exit Function
  23.       End If
  24.  
  25.  
  26.  
  27.        RSAzurirajDDV.MoveFirst
  28.     Do While Not RSAzurirajDDV.EOF
  29.        If DLookup("ZaNosejne", "tblArtikli_Prodazba", "ID_ArtikalP=" & RSAzurirajDDV.Fields("Stavka")) = True Then
  30.        RSAzurirajDDV.Fields("DDV") = ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi")                  'Danocna stapka
  31.       RSAzurirajDDV.Update
  32.        RSAzurirajDDV.MoveNext
  33.       Else
  34.        RSAzurirajDDV.MoveNext
  35.       End If
  36.     Loop
  37.    
  38.      
  39.     AzurirajDDV_Smetka = True
  40. ErrorDDV:
  41.   If Err <> 0 Then
  42.      On Error Resume Next
  43.      AzurirajDDV_Smetka = False
  44.      Exit Function
  45.   End If
  46.      
↑  ↓

#8 29.03.2014-22:52
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,528


Subject: Re: ADO Update ne raboti
i ovaj tvoj sql raboti .
Fala mnogu
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 17.10.2018-08:18.