[حريف برمجة]

ضع السطر التالي وهو للتأكد انك كتبت رقم السجل المدني كاملاً

if Len(txtSearch.Text) > 9 then
ضع الكود السابق هنا ،،،،، وهو يعني التكست بوكس يوجد به عشرة ارقام أو اكثر .
end if

[bumb]

هذا هو الكود
الطريقه لم تنجح

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

[bumb]

اخوي حريف برمجه انا بودي تلقي نظره على احدى التعليقات في هذه المشاركه حيث وضعت رابط تحميل لقاعدة بيانات فيها نموذج بحث ابي مثل فكرته

تحياتي لك

[bumb]

up up

[bumb]

up up

[bumb]

شكلكم نسيتوني ياشباب او مليتو مني

[سعود]

(25-04-14, 06:40 PM)bumb كتب : شكلكم نسيتوني ياشباب او مليتو مني

اخي الكريم الكود الذي تريده والذي يقوم باظهار النتائج بشكل فوري كتبته لك
http://vb4arb.com/vb/thread-2612-post-12...l#pid12813
لكن لم تخبرني لماذا لم يعمل لديك؟

[bumb]

قلت ان الرساله تظهر بعد ادخال الخانة الخامسه

[bumb]

شوف الرباط
حمل المشروع



كلمة سر قاعدة البيانات admin
والمرور 0553546546