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):Public Function AzurirajDDV_Smetka(ID_Smetka) As Boolean
On Error GoTo ErrorDDV:
AzurirajDDV_Smetka = False
' Azurirajne na danocite vo smetkata ama ne funkcionira Jebi ga
Dim RSAzurirajDDV As ADODB.Recordset
Dim SQLAzurirajDDV As String
SQLAzurirajDDV = "SELECT tblSmetki_Stavki.DDV, tblArtikli_Prodazba.ZaNosejne, tblSmetki_Stavki.Smetka_Br" _
& " FROM tblArtikli_Prodazba INNER JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka" _
& " WHERE (((tblArtikli_Prodazba.ZaNosejne)=True) AND ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & "));"
If RSAzurirajDDV.RecordCount = 0 Then
AzurirajDDV_Smetka = True
Exit Function
End If
Set RSAzurirajDDV = New ADODB.Recordset
RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic
RSAzurirajDDV.MoveFirst
Do While Not RSAzurirajDDV.EOF
RSAzurirajDDV.Fields("DDV") = 15 'CInt(ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi")) 'Danocna stapka
RSAzurirajDDV.Update
RSAzurirajDDV.MoveNext
Loop
AzurirajDDV_Smetka = True
ErrorDDV:
If Err <> 0 Then
On Error Resume Next
AzurirajDDV_Smetka = False
Exit Function
End If
End Function
Nekoja ideja ?