Prikazi cijelu temu 30.06.2013 01:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Dlookup vo VB
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function DLookupZ(Polje As String, Tabela As String, Imebaze As String, Optional Uslov = "") As Variant
  2. Dim cnn As New ADODB.Connection
  3. Dim Rs As New ADODB.Recordset
  4. Dim StrSQL As String
  5.  
  6. StrSQL = "SELECT " & Polje & " FROM " & Tabela
  7. If Uslov <> "" Then
  8. StrSQL = StrSQL & " WHERE " & Uslov
  9. End If
  10. cnn.Open _
  11.     "Provider=Microsoft.Jet.OLEDB.4.0;" _
  12.     & "Data Source=" & Imebaze & ";"
  13. Rs.Open StrSQL, cnn, _
  14.     adOpenForwardOnly, adLockReadOnly
  15. If Not (Rs.EOF And Rs.BOF) Then
  16. Rs.MoveFirst
  17. DLookupZ = Rs(Polje).Value
  18. Else
  19. DLookupZ = ""
  20. End If
  21. 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.