السلام عليكم
كود بحث بدون كثرة ازرار
كود بحث بدون كثرة ازرار
كود :
conn.Open()
Try
Dim cmdselect As New OleDbCommand
cmdselect.Connection = conn
dim kk as string
if txtname.text <> "" then kk= " select * from doctor where D_Name = '" + txtname.Text + "'"
if isnumeric(txtid.text) then kk= " select * from doctor where doc_ID = " + txtid.Text
cmdselect.CommandText = kk
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من اعمالنا نخطى ومن اخطائنا نتعلم ولاشى مستحيل
