[ابو ليلى]

و عليكم السلام و رحمة الله و بركاته

PHP كود :

   Public Function GetFiled(ByVal ReturnFiled As String, ByVal Tbl As String, ByVal CondFiled As String, ByVal Id As String) As String
        Dim serch As String = ""
        serch = "Select " & ReturnFiled & " From " & Tbl & " Where " & CondFiled & " Like '" & Id & "' "

        Dim Cmd As New OleDbCommand(serch, Con)
        Dim ReturnResult As String = ""
        OpenConnect()
        Dim red As OleDbDataReader = Cmd.ExecuteReader
        While red.Read
            If red.HasRows Then
                If Not (red(ReturnFiled) Is Nothing) Or red(ReturnFiled).ToString.Length > 0 Then
                    ReturnResult = red(ReturnFiled).ToString
                Else
                    ReturnResult = Nothing
                End If
            End If
        End While
        red.Close()
        Cmd.Dispose()
        CloseConnect()
        Return ReturnResult
    End Function 


هذه الدالة تعيد لك الحقل الذي تريد من الجدول الذي تريد

البارمترات
ReturnFiled =الحقل الذي تريد قيمته
Tbl = اسم الجدول الذي تريد البحث فيه
CondFiled =الحقل الشرطي
Id =قيمة الحقل الشرطي



مثال 

PHP كود :

       TextBox2.Text = GetFiled("name-Emp", "Emps", "code-Emp", TextBox1.Text) 


شكل جملة الاستعلام الناتجة من الدالة السابقة

PHP كود :

Select name-Emp From Emps Where code-Emp Like '" & TextBox1.TextT & "'