19-04-14, 10:47 AM
19-04-14, 11:23 AM
اكتب كود البحث في قاعدة البيانات في حدث textchanged
19-04-14, 11:27 AM
ممكن تزودني بالصيغه
انا كتبته بس عند كل ضغطه تظهر لي الرساله بان السحل مش موجود
انا كتبته بس عند كل ضغطه تظهر لي الرساله بان السحل مش موجود
19-04-14, 12:13 PM
أنت شـــــــــــــو بتستخدم :
LINQ TO SQL
Ado.Net To Access
Ado.Net To SQL
LINQ TO DataSet
?????
LINQ TO SQL
Ado.Net To Access
Ado.Net To SQL
LINQ TO DataSet
?????
19-04-14, 12:15 PM
قاعدة بيانات اكسس
19-04-14, 12:19 PM
وهذا هو الكود
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
19-04-14, 01:06 PM
احذف الرسالة الموجوده في الكود ،،
19-04-14, 01:31 PM
عطلت الرساله ولكن لم تظهر النتيجه تباعا للأرقام بل ظهرت عند اكتمال الرقم ما اريده هو اظهار النتائج تباعاً كلما ضغطت رقم تظهر جميع السجلات التي تحتوي على الرقم وعند ادخال الرقم تظهر جميع النتائج التي تحتوي على الرقمين وهكذا
19-04-14, 01:58 PM
استبدل هذا الكود :
بهذا الكود :
كود :
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)19-04-14, 02:14 PM
تسلم
نسخت الكود ونتجت مشكله وعدلتها واصبح الكود يعمل
وهذا هو الكود بعد التعديل
بس ابي اضافه وهي لو كان السجل مش موجود ممكن تظيف الكود
[php]
نسخت الكود ونتجت مشكله وعدلتها واصبح الكود يعمل
وهذا هو الكود بعد التعديل
بس ابي اضافه وهي لو كان السجل مش موجود ممكن تظيف الكود
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