Prikazi cijelu temu 09.08.2013 13:17
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Funkcija dsum
Funkcija Dsum
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function DSum(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "")
  2.    
  3.    Dim rsds As ADODB.Recordset
  4.    Dim StrSQL As String
  5.    Dim Vkupno As Double
  6.        Vkupno = 0
  7.    If IsNull(Uslov) Or Uslov = "" Then
  8.       StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela
  9.    Else
  10.       StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))"
  11.    End If
  12.    Set rsds = cn.Execute(StrSQL)
  13.      If rsds.RecordCount = 0 Then
  14.         DSum = ""
  15.         Exit Function
  16.      Else
  17.               rsds.MoveFirst
  18.                  Do While Not rsds.EOF
  19.                     Vkupno = Vkupno + rsds(0).Value
  20.                     rsds.MoveNext
  21.                  Loop
  22.                  DSum = Vkupno
  23.                  Exit Function
  24.      End If
  25.  
  26. End Function
Ovaj post je ureden 1 puta. Posljednja izmjena 11.12.2013 23:52 od strane zxz.