[bumb]

وهذا هو الكود

PHP كود :

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='" & txtSearch.Text & "'", ApoSYSconn)
            Dim da As New OleDbDataAdapter
            da.SelectCommand = CMD
            Dim dt As New DataTable
            da.Fill(dt)
            txtCRN.Text = dt.Rows(0)("CivilRegNum").ToString
            txtFullName.Text = dt.Rows(0)("FullName").ToString
            txtMobile.Text = dt.Rows(0)("MobileNum").ToString
            CMD = New OleDbCommand("SELECT qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum='" & txtSearch.Text & "'", ApoSYSconn)
            da = New OleDbDataAdapter
            da.SelectCommand = CMD
            Dim dt1 As New DataTable
            da.Fill(dt1)
            dgv1.DataSource = dt1
            dgv1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            txtSearch.Text = ""
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub