Gjoreski
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija
Predmet:
Funkcija dsum
Funkcija Dsum
Preuzmi
Izvorni kôd (Visual Basic):
Public
Function
DSum(
ByVal
Pole
As
String
,
ByVal
Tabela
As
String
,
Optional
ByVal
Uslov =
""
)
Dim
rsds
As
ADODB.Recordset
Dim
StrSQL
As
String
Dim
Vkupno
As
Double
Vkupno = 0
If
IsNull(Uslov)
Or
Uslov =
""
Then
StrSQL =
"SELECT "
& Tabela &
"."
& Pole &
" FROM "
& Tabela
Else
StrSQL =
"SELECT "
& Tabela &
"."
& Pole &
" FROM "
& Tabela &
" WHERE (("
& Tabela &
"."
& Uslov &
"))"
End
If
Set
rsds = cn.Execute(StrSQL)
If
rsds.RecordCount = 0
Then
DSum =
""
Exit
Function
Else
rsds.MoveFirst
Do
While
Not
rsds.EOF
Vkupno = Vkupno + rsds(0).Value
rsds.MoveNext
Loop
DSum = Vkupno
Exit
Function
End
If
End
Function
Ovaj post je ureden
1
puta. Posljednja izmjena 12.12.2013 00:52 od strane zxz.