19-04-14, 02:33 PM
انت حاط استعلامين بينما واحد يكفي ،،
استبد الكود كامل بهذا الكود
استبد الكود كامل بهذا الكود
كود :
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
If txtSearch.Text = "" Then
Dim Msg As String = "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtSearch.Focus()
Exit Sub
End If
Try
CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum like '%" & txtSearch.Text & "'", ApoSYSconn)
Dim da As New OleDbDataAdapter
da.SelectCommand = CMD
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("لا يوجود سجلات لعملية البحث")
Else
txtCRN.Text = dt.Rows(0)("CivilRegNum").ToString
txtFullName.Text = dt.Rows(0)("FullName").ToString
txtMobile.Text = dt.Rows(0)("MobileNum").ToString
dgv1.DataSource = dt
dgv1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
End If
'txtSearch.Text = ""
Catch ex As Exception
'MessageBox.Show(ex.Message)
End Try
End Sub