| Gjoreski |
28.03.2014 01:08 |
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 ? |
| zxz |
28.03.2014 10:16 |
Predmet:Re: ADO Update ne raboti
Ako si do sad radio to onda je njbolje da zakacis primjer ako mozes lakse je. |
| zxz |
28.03.2014 13:25 |
Predmet: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. |
| Gjoreski |
29.03.2014 23:52 |
Predmet:Re: ADO Update ne raboti
i ovaj tvoj sql raboti .
Fala mnogu |
| Gjoreski |
29.03.2014 22:25 |
Predmet:Re: ADO Update ne raboti
eve primer |
Prilozi:
Primer.rar (Velicina datoteke:108.25 KB)
|
| zxz |
29.03.2014 23:19 |
Predmet: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. |
| zxz |
29.03.2014 23:35 |
Predmet: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;" |
| Gjoreski |
29.03.2014 23:49 |
Predmet: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
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 & "));" SQLAzurirajDDV = "SELECT * FROM tblSmetki_Stavki WHERE ((tblSmetki_Stavki.Smetka_Br)=" & ID_Smetka & ");" Set RSAzurirajDDV = New ADODB.Recordset RSAzurirajDDV.Open SQLAzurirajDDV, cn, adOpenDynamic, adLockOptimistic If RSAzurirajDDV.RecordCount = 0 Then AzurirajDDV_Smetka = True Exit Function End If RSAzurirajDDV.MoveFirst Do While Not RSAzurirajDDV.EOF If DLookup("ZaNosejne", "tblArtikli_Prodazba", "ID_ArtikalP=" & RSAzurirajDDV.Fields("Stavka")) = True Then RSAzurirajDDV.Fields("DDV") = ReadIniValue(App.path & "\Setup.ini", "KasaSetup", "DDV_Nosi") 'Danocna stapka RSAzurirajDDV.Update RSAzurirajDDV.MoveNext Else RSAzurirajDDV.MoveNext End If Loop AzurirajDDV_Smetka = True ErrorDDV: If Err <> 0 Then On Error Resume Next AzurirajDDV_Smetka = False Exit Function End If
|