[حريف برمجة]

مرحبا ،،

هذا كود البحث كامل استبدله ،،

كود :

If T1.Text = "" Then
           MsgBox("الرجاء ادخال البيانات كاملة ")
           T1.Focus()
       Else
           Try

               Using da As New OleDbDataAdapter("select AllName.ID, AllName.ID1, AllName.Name1, AllName.Age, AllName.HomeHdress ,Ejaza.ID, Ejaza.NameEjaza, Ejaza.DateStart, Ejaza.DateEnd from AllName, Ejaza where AllName.ID1= Ejaza.ID1 And AllName.ID1 ='" & T1.Text & "' order by DateStart Desc", con)

                   Dim dt As New DataTable
                   da.Fill(dt)

                   If dt.Rows.Count > 0 Then

                       Name1.Text = dt.Rows(0)("Name1")
                       ID1.Text = dt.Rows(0)("ID1")
                       Age.Text = dt.Rows(0)("Age")
                       HomeHdress.Text = dt.Rows(0)("HomeHdress")

                       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

                       NameEjaza.Text = dt.Rows(0)("NameEjaza")
                       TextBox1.Text = dt.Rows(0)("DateStart")
                       TextBox2.Text = dt.Rows(0)("DateEnd")

                   Else

                       MsgBox("رقم القسم غير موجود")
                   End If

               End Using

           Catch exp As Exception
               MsgBox(exp.Message)
           End Try
       End If