Gjoreski 28.03.2014 00: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):
  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 ?

zxz 28.03.2014 09: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 12: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 22:52
Predmet:Re: ADO Update ne raboti

i ovaj tvoj sql raboti .
Fala mnogu

Gjoreski 29.03.2014 21:25
Predmet:Re: ADO Update ne raboti

eve primer
Prilozi:
Primer.rar (Velicina datoteke:108.25 KB)

zxz 29.03.2014 22: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 22: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 22: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):
  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.