Prikazi cijelu temu 27.05.2012 18:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Pitanja u vezi procedura i pisanja koda
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function SaldoPozitivno(ByVal pArt As String) As Double
  2.  On Error GoTo Err_SaldoPozitivno
  3.  Dim cn As ADODB.Connection
  4.  Dim rst As ADODB.Recordset
  5.  Dim SumaKol As Double
  6.  Dim SQL As String
  7.  
  8. SQL = "SELECT Ulaz1.kol As Kol" & _
  9.  " FROM Ulaz1, Ulaz " & _
  10.  " WHERE Ulaz.UlazId = Ulaz1.UlazId And Ulaz1.art = '" & pArt & "' " & _
  11.  " UNION SELECT -Izlaz1.kol As Kol" & _
  12.  " FROM Izlaz, Izlaz1, Ulaz1 " & _
  13.  " WHERE Izlaz.IzlazId = Izlaz1.IzlazId and Izlaz1.UlazId = Ulaz1.UlazId And Izlaz1.art = '" & pArt & "'"
  14. Set cn = CurrentProject.AccessConnection
  15. Set rst = New ADODB.Recordset
  16. With rst
  17.       Set .ActiveConnection = cn
  18.       .Source = "SELECT * FROM tblProdaja"
  19.       .LockType = adLockOptimistic
  20.       .CursorType = adOpenKeyset
  21.       .Open
  22.    End With
  23.  
  24.  
  25.  
  26.  MsgBox pArt
  27.  
  28.  SumaKol = 0
  29.  Do Until rst.EOF
  30.  SumaKol = SumaKol + rst!Kol
  31.  rst.MoveNext
  32.  Loop
  33.  
  34.  
  35.  SaldoPozitivno = SumaKol
  36.  
  37.  rst.Close
  38.  
  39.  Set rst = Nothing
  40.  
  41.  
  42. Exit_SaldoPozitivno:
  43.  Exit Function
  44.  
  45. Err_SaldoPozitivno:
  46.  MsgBox Err.Description
  47.  Resume Exit_SaldoPozitivno
  48.  
  49.  End Function

Ne ulazim U tacnost SQL upita.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.