Prikazi cijelu temu 05.07.2013 13:22
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Dlookup vo VB
Eve i drugi tri korisni funkcii
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function DCount(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "")
  2.    
  3.    Dim rsdc As ADODB.Recordset
  4.    Dim StrSQL As String
  5.    Dim I As Integer
  6.        I = 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 rsdc = cn.Execute(StrSQL)
  13.    
  14.    If Not (rsdc.EOF And rsdc.BOF) Then
  15.           rsdc.MoveFirst
  16.       Do While Not rsdc.EOF
  17.          I = I + 1
  18.          rsdc.MoveNext
  19.           If rsdc.EOF Then
  20.              Exit Do
  21.           End If
  22.       Loop
  23.   DCount = I
  24.       Exit Function
  25.    Else
  26.      DCount = ""
  27.      Exit Function
  28.    End If
  29.  
  30. End Function
  31.  
  32. Public Function DMax(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "")
  33.    ' On Error Resume Next
  34.      Dim rcMax As Recordset
  35.       Dim strMax As String
  36.            
  37.               If IsNull(Uslov) Or Uslov = "" Then
  38.                  strMax = "SELECT Max(" & Tabela & "." & Pole & ") AS MaxVrednost " & " FROM " & Tabela & ""
  39.               Else
  40.                  strMax = "SELECT Max(" & Tabela & "." & Pole & ") AS MaxVrednost " & " FROM " & Tabela & " WHERE (" & Tabela & "." & Uslov & ")"
  41.               End If
  42.        
  43.       Set rcMax = cn.Execute(strMax)
  44.       If IsNull(rcMax!MaxVrednost) Then
  45.          DMax = ""
  46.       Else
  47.          DMax = rcMax!MaxVrednost
  48.       End If
  49.      rcMax.Close
  50.  
  51.  
  52. End Function
  53.  
  54. Public Function DMin(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "")
  55.      
  56.       Dim rcMin As ADODB.Recordset
  57.       Dim strMin As String
  58.            
  59.               If IsNull(Uslov) Or Uslov = "" Then
  60.                  strMin = "SELECT Min(" & Tabela & "." & Pole & ") AS MinVrednost " & " FROM " & Tabela & ""
  61.               Else
  62.                  strMin = "SELECT Min(" & Tabela & "." & Pole & ") AS MinVrednost " & " FROM " & Tabela & " WHERE (" & Tabela & "." & Uslov & ")"
  63.               End If
  64.        
  65.       Set rcMin = cn.Execute(strMin)
  66.       If IsNull(DMin = rcMin!MinVrednost) Then
  67.           DMin = ""
  68.       Else
  69.           DMin = rcMin!MinVrednost
  70.       End If
  71.     rcMin.Close
  72. End Function