29-01-16, 06:08 PM
جرب بالطريقة التالية
PHP كود :
conn.Open()
Try
Dim cmdselect As New OleDbCommand
cmdselect.Connection = conn
cmdselect.CommandText = " select * from doctor where doc_ID = '" + txtid.Text + "' OR D_Name = '" + txtname.Text + "' "
Dim re As OleDbDataReader
re = cmdselect.ExecuteReader
If re.Read Then
txtid.Text = re(0).ToString
txtname.Text = re(1).ToString
txtnumq.Text = re(2).ToString
txtnamef.Text = re(3).ToString
txtnumbert.Text = re(4).ToString
txtdata.Text = re(5).ToString
txtnumkf.Text = re(6).ToString
Else
MsgBox("بيانات الشخص غير موجوده قم باضافتها")
txtid.Clear()
txtname.Clear()
txtnamef.Clear()
txtnumbert.Clear()
txtnumkf.Clear()
txtnumq.Clear()
txtdata.Clear()
End If
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
conn.Close()
End Sub

