[bumb]

السلام عليكم

هل يوجد طريقه للبحث بمجرد الكتابه واذا كان فعلاً موجود ياليت بمثال عليه

تحياتي لكم

[tarek]

اكتب كود البحث في قاعدة البيانات في حدث textchanged

[bumb]

ممكن تزودني بالصيغه

انا كتبته بس عند كل ضغطه تظهر لي الرساله بان السحل مش موجود

[Abu Ehab]

أنت شـــــــــــــو بتستخدم :
LINQ TO SQL
Ado.Net To Access
Ado.Net To SQL
LINQ TO DataSet
?????

[bumb]

قاعدة بيانات اكسس

[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 


[حريف برمجة]

احذف الرسالة الموجوده في الكود ،،

[bumb]

عطلت الرساله ولكن لم تظهر النتيجه تباعا للأرقام بل ظهرت عند اكتمال الرقم ما اريده هو اظهار النتائج تباعاً كلما ضغطت رقم تظهر جميع السجلات التي تحتوي على الرقم وعند ادخال الرقم تظهر جميع النتائج التي تحتوي على الرقمين وهكذا

[حريف برمجة]

استبدل هذا الكود :

كود :

CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum='" & txtSearch.Text & "'", ApoSYSconn)

بهذا الكود :

كود :

CMD = New OleDbCommand("SELECT qAllCustomer.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum LIKE '%" & txtSearch.Text & "'", ApoSYSconn)

[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 like '%" & 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.CivilRegNum, qAllCustomer.FullName, qAllCustomer.MobileNum, qAllCustomer.BarwahNum, qAllCustomer.DateReg, qAllCustomer.DateReceipt FROM qAllCustomer where CivilRegNum LIKE '%" & 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 


[php]