تقييم الموضوع :
  • 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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 40 منذ 7 ساعة مضت
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 37 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 59 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 44 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 68 28-11-16, 02:05 PM
آخر رد: Adrees
  [VB.NET] مشكلة في كود البحث khalid475 14 213 11-11-16, 07:52 PM
آخر رد: khalid475
  أستفسار الطباعه بعد البحث مباشره adel27 0 58 26-10-16, 03:15 PM
آخر رد: adel27
  البحث المتعدد بقواعد البيانات العواد الصغير 9 187 22-10-16, 10:29 PM
آخر رد: العواد الصغير
  البحث بين تاريخين عن طريق المعالج أسامة السالمي 9 266 14-10-16, 08:18 AM
آخر رد: ممدوح
  ازاى اعد عدد الصفوف عند البحث بين تاريخين araxis 1 89 10-10-16, 10:15 PM
آخر رد: ابراهيم النعيمي

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


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