Prikazi cijelu temu 28.03.2014 01:08
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet: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

PreuzmiIzvorni kôd (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 ?