[كود] البحث بمجرد الكتابه - نسخة قابلة للطباعة

PHP كود :

Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
        If Len(txtSearch.Text) > 9 Then
        End If
        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("لا يوجود سجلات لعملية البحث")
                txtCRN.Text = ""
                dgv1.DataSource = Nothing
            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

كود :

Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged

        If Len(txtSearch.Text) > 9 Then

    

        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("لا يوجود سجلات لعملية البحث")

                txtCRN.Text = ""

                dgv1.DataSource = Nothing

            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

    End If

            'txtSearch.Text = ""

        Catch ex As Exception

            'MessageBox.Show(ex.Message)

        End Try

    End Sub