+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] البحث بمجرد الكتابه (/showthread.php?tid=2612)
البحث بمجرد الكتابه - bumb - 19-04-14
السلام عليكم
هل يوجد طريقه للبحث بمجرد الكتابه واذا كان فعلاً موجود ياليت بمثال عليه
تحياتي لكم
RE: البحث بمجرد الكتابه - tarek - 19-04-14
اكتب كود البحث في قاعدة البيانات في حدث textchanged
RE: البحث بمجرد الكتابه - bumb - 19-04-14
ممكن تزودني بالصيغه
انا كتبته بس عند كل ضغطه تظهر لي الرساله بان السحل مش موجود
RE: البحث بمجرد الكتابه - Abu Ehab - 19-04-14
أنت شـــــــــــــو بتستخدم :
LINQ TO SQL
Ado.Net To Access
Ado.Net To SQL
LINQ TO DataSet
?????
RE: البحث بمجرد الكتابه - bumb - 19-04-14
قاعدة بيانات اكسس
RE: البحث بمجرد الكتابه - bumb - 19-04-14
وهذا هو الكود
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
RE: البحث بمجرد الكتابه - حريف برمجة - 19-04-14
احذف الرسالة الموجوده في الكود ،،
RE: البحث بمجرد الكتابه - bumb - 19-04-14
عطلت الرساله ولكن لم تظهر النتيجه تباعا للأرقام بل ظهرت عند اكتمال الرقم ما اريده هو اظهار النتائج تباعاً كلما ضغطت رقم تظهر جميع السجلات التي تحتوي على الرقم وعند ادخال الرقم تظهر جميع النتائج التي تحتوي على الرقمين وهكذا
RE: البحث بمجرد الكتابه - حريف برمجة - 19-04-14
استبدل هذا الكود :
كود :
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)RE: البحث بمجرد الكتابه - bumb - 19-04-14
تسلم
نسخت الكود ونتجت مشكله وعدلتها واصبح الكود يعمل
وهذا هو الكود بعد التعديل
بس ابي اضافه وهي لو كان السجل مش موجود ممكن تظيف الكود
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