كيف يمكن كتابة كود شبيه بدالة dlookup في VB.Net؟

ملاحظة: أن تتم هذه العملية في إطار DatagridView

أرجو منكم المساعدة وشكرا

أرجو من الإخوة الكرام المساعدة.

هل يصلح لك هذا

منقول

Public Function DLookup(ByVal columnName As String, ByVal tableName As String, ByVal where As String, ByVal databaseName As String, Optional ByVal databasePassword As String = "") As Object
    Dim con As New OleDb.OleDbConnection("Provider=" & IIf(IO.Path.GetExtension(databaseName).ToLower = ".mdb", "Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0") & "; Data Source=" & databaseName & "; Jet OLEDB:Database Password=" & databasePassword & ";")
    Dim sql As String = "SELECT " & columnName & " FROM " & tableName & " WHERE " & where
    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter(sql, con)
    If da.Fill(dt) > 0 Then Return dt.Rows(0).Item(0)
    Return Nothing
End Function

وطريقة الاستخدام

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim a1 As String = DLookup("EmpName", "Employees", "ID= 2563", "C:\db1.mdb")
    Dim a2 As String = DLookup("EmpName", "Employees", "ID= 2563", "C:\db1.mdb", "123")
End Sub

شكرا سأجرب ذلك

وهناك أسلوب آخر

منقول

Function Lookup(ByVal tableName As String, ByVal where As String, ByVal databaseName As String, Optional ByVal databasePassword As String = "") As DataRow
    Dim con As New OleDb.OleDbConnection("Provider=" & IIf(IO.Path.GetExtension(databaseName).ToLower = ".mdb", "Microsoft.Jet.OLEDB.4.0", "Microsoft.ACE.OLEDB.12.0") & "; Data Source=" & databaseName & "; Jet OLEDB:Database Password=" & databasePassword & ";")
    Dim sql As String = "SELECT * FROM " & tableName & " WHERE " & where
    Dim dt As New DataTable
    Dim da As New OleDb.OleDbDataAdapter(sql, con)
    If da.Fill(dt) > 0 Then Return dt.Rows(0)
    Return Nothing
End Function

وطريقة الاستخدام

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim r As DataRow = Lookup("Employees", "ID= 2563", "C:\db1.mdb")
    Dim ename As String = r.Item("EmpName")
    Dim enumber As Integer = r.Item("EmpNumber")
End Sub

المسألة كلها عبارة عن إنشاء دالة حسب الحاجة ترسل لها معطيات (بارامترات) تحددها أنت وتعيد لك معطيات (الناتج) على حسب اختيارك.

شكرا اخي العزيز لقد نجح استخدام الاكراد اعود واكرر شكرا جدا جدا وجعله الله في ميزان حسناتك