22-01-22, 08:39 PM (آخر تعديل لهذه المشاركة : 22-01-22, 08:40 PM {2} بواسطة محمد بوقزاحة.)
(22-01-22, 08:33 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم محمد
اين تريد ان يتم البحث ؟ هل في جدول في قاعدة بيانات ؟ ام في لست بوكس ؟ ام في ملف نصي؟
سؤالك غير مفهوم
السلام عليكم ورحمة الله وبركاته
اخي محمد
ضع هذه الدالة في كلاس الفورم 1 تحت دالة جلب البيانات
كود :
Sub SearshFile()
ListBox1.Items.Clear()
Dim SQL = "Select * from Custmer where NAMES like N'%" & TextBox1.Text & "%'"
Dim ADP = New SqlClient.SqlDataAdapter(SQL, CLS_CON__.SQLCON)
Dim DS = New DataSet
ADP.Fill(DS)
Dim DT = DS.Tables(0)
For I = 0 To DT.Rows.Count - 1
ListBox1.Items.Add(New MyList(DT.Rows(I).Item("NAMES"), DT.Rows(I).Item("ID")))
Next
End Sub
الان ننادي عليها في حدث تغيير المحتوى للتكست بوكس1
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
SearshFile()
End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات