31-03-17, 07:27 PM
وهذا حل آخر بالكود ضع الكود في زر البحث لديك وشاهد النتجية
ولكن حل الاستاذ مساعدة جميل لأنه تعامل مع البيانات الموجودة في الذاكرة ،،،
عكسي انا فتحت الداتا بيز وسحبت البيانات منها
كود :
If Button3.Text = "إبــــحــــث" Then
Button3.Text = "لا تبحث"
Dim newcars As String = TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text
Dim dp As New OleDb.OleDbDataAdapter("select * from AllCars where Cars = '" & newcars & "'", My.Settings.CarConnectionString)
Dim ds As New DataSet
dp.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Else
Button3.Text = "إبــــحــــث"
'إرجاع البيانات كاملة
DataGridView1.DataSource = AllCarsBindingSource
End Ifولكن حل الاستاذ مساعدة جميل لأنه تعامل مع البيانات الموجودة في الذاكرة ،،،
عكسي انا فتحت الداتا بيز وسحبت البيانات منها

