تقييم الموضوع :
  • 2 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] البحث بمجرد الكتابه
#1
السلام عليكم

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

تحياتي لكم
الرد }}}}
تم الشكر بواسطة:
#2
اكتب كود البحث في قاعدة البيانات في حدث textchanged
الرد }}}}
تم الشكر بواسطة:
#3
ممكن تزودني بالصيغه

انا كتبته بس عند كل ضغطه تظهر لي الرساله بان السحل مش موجود
الرد }}}}
تم الشكر بواسطة:
#4
أنت شـــــــــــــو بتستخدم :
LINQ TO SQL
Ado.Net To Access
Ado.Net To SQL
LINQ TO DataSet
?????

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#5
قاعدة بيانات اكسس
الرد }}}}
تم الشكر بواسطة:
#6
وهذا هو الكود

PHP كود :
Private Sub txtSearch_TextChanged(sender As ObjectAs EventArgsHandles txtSearch.TextChanged
        
If txtSearch.Text "" Then
            Dim Msg 
As String "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
            
MsgBox(MsgvbCritical 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 
الرد }}}}
تم الشكر بواسطة:
#7
احذف الرسالة الموجوده في الكود ،،
الرد }}}}
تم الشكر بواسطة:
#8
عطلت الرساله ولكن لم تظهر النتيجه تباعا للأرقام بل ظهرت عند اكتمال الرقم ما اريده هو اظهار النتائج تباعاً كلما ضغطت رقم تظهر جميع السجلات التي تحتوي على الرقم وعند ادخال الرقم تظهر جميع النتائج التي تحتوي على الرقمين وهكذا
الرد }}}}
تم الشكر بواسطة:
#9
استبدل هذا الكود :

كود :
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)
الرد }}}}
تم الشكر بواسطة:
#10
تسلم

نسخت الكود ونتجت مشكله وعدلتها واصبح الكود يعمل

وهذا هو الكود بعد التعديل
بس ابي اضافه وهي لو كان السجل مش موجود ممكن تظيف الكود
PHP كود :
Private Sub txtSearch_TextChanged(sender As ObjectAs EventArgsHandles txtSearch.TextChanged
        
If txtSearch.Text "" Then
            Dim Msg 
As String "فضلاً ادخل السجل المدني الخاص بالعميل الذي تود البحث عن مواعيده"
            
MsgBox(MsgvbCritical 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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث بجزء من التاريخ أسامة السالمي 6 121 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 107 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] البحث التلقائي tifagreet 1 86 30-01-17, 06:07 PM
آخر رد: مساعدة
  البحث قى listbox Mohamed20 1 97 27-01-17, 07:12 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 217 24-01-17, 08:32 PM
آخر رد: gmailali
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 129 22-01-17, 01:39 PM
آخر رد: thevirus
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 330 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  [سؤال] كود البحث عن طريق اسم naden 2 251 15-12-16, 02:33 AM
آخر رد: naden
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 163 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 179 29-11-16, 01:37 AM
آخر رد: hglogtd

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم