Predmet:Re: Dlookup vo VB
PreuzmiIzvorni kôd (Visual Basic):Public Function DLookupZ(Polje As String, Tabela As String, Imebaze As String, Optional Uslov = "") As Variant
Dim cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim StrSQL As String
StrSQL = "SELECT " & Polje & " FROM " & Tabela
If Uslov <> "" Then
StrSQL = StrSQL & " WHERE " & Uslov
End If
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & Imebaze & ";"
Rs.Open StrSQL, cnn, _
adOpenForwardOnly, adLockReadOnly
If Not (Rs.EOF And Rs.BOF) Then
Rs.MoveFirst
DLookupZ = Rs(Polje).Value
Else
DLookupZ = ""
End If
End Function
Poziv:
Dim Vrijednost
Vrijednost=Dlookupz("ImePolja","ImeTabele","C:\Direktorij\ImeBaze.mdb","ImePolja='Vrijednost'")
Ne zaboravi reference.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.