Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("select * from Personal where FirstName = '" & Txt_AutoSearsh.Text & "' and adress = '" & Txt_AutoSearsh2.Text & "'", con)
da.Fill(dt)
DataGridView1.DataSource = dt
Catch ex As Exception
End Try
End Sub(05-04-19, 09:15 PM)ابراهيم ايبو كتب : [ -> ]يسعد مساك اخي وشكرا الك انا مساوي ارتباط لقاعدة البيانات مختلف عن الكود الي ارسلته لي ياريت تساعدني بالمشروع المرفق لان الي بعثته مختلف عن الي عندي وماشتغل خبرتي بدائية وشكرا الكالسلام عليكم اخي الكريمتفضل هذا الكود البحث به حرفي
كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
da = New OleDbDataAdapter("select * from Personal where FirstName = '" & Txt_AutoSearsh.Text & "' and adress = '" & Txt_AutoSearsh2.Text & "'", con)
da.Fill(dt)
DataGridView1.DataSource = dt
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.ABindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%' and [المدينة] LIKE '%" & TextBox2.Text & "%'"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.ABindingSource.Filter = "[الاسم] LIKE '%" & TextBox1.Text & "%' or [المدينة] LIKE '%" & TextBox2.Text & "%'"
End Sub
da = New OleDbDataAdapter("select * from اسم الجدول where حقل الاسم = '" & بالاسم البحث نص مربع .Text & "' and حقل المدينة = '" & بالمدينة البحث نص مربع.Text & "'", con)