Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Fast Database Lookups

Visual Basic doesn't have a procedure like the DLookUp function that Access has. You can use this procedure in VB to receive the Name of an object by ID:
Public Function MyDLookUp(Column As _
        String, TableName As String, _
        Condition As String) As Variant
Dim Rec As Recordset
On Error GoTo MyDlookUp_Err

' gCurBase is a global variable that 
' holds the database that is currently 
' opened
Set Rec = gCurBase.OpenRecordset_
        ("Select * From " & TableName)
Rec.FindFirst Condition
If Not Rec.NoMatch Then
        ' return the requested field if 
        ' matching
        MyDLookUp = Rec(Column)
        Exit Function
End If

' return -1 if there is no match, or any 
' other error
        MyDLookUp = -1
End Function
Valery Belfor
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date