منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخواني ممكن ان  تساعدوني بطريقة بحث عن البيانات في اكسيس عن طريق الكومبوبوكس  
وكما في المرفق

للرفع شباب
المشكله ان الكود عندي لكن فية مشكله

هذا المثال بعد التعديل ان شاء الله يكون حسب المطلوب

اشكرك اخي المبرمج المحترف جدا وجعله عملك هذا في ميزان حسناتك لانك حللت المشكله لدي
لكن في مشكله انه عند البحث بأسم الطفل او رقمه تظهر خانه رقم الطفل رقم 1 دائما

شكرا شباب حللت المشكله ووجدت الكود المناسب يعد حهد كبير
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim oledbcom As New OleDbCommand
Dim oledbdata As New OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New DataTable
Dim sqlstring As String
'Button2.Enabled = False
If TextBox1.Text.Trim = Nothing Then
MsgBox("fgfg")
TextBox1.Focus()
Exit Sub
End If
con = Getconnect()
sqlstring = Nothing
If TextBox1.Text <> Nothing Then

Select Case ComboBox1.SelectedIndex
Case 0
sqlstring = "child.id =" & TextBox1.Text & ""

Case 1
sqlstring = "child.Name like '%" & TextBox1.Text & "%' "

'Case 2
' sqlstring = "employees.Tel =" & TextBox1.Text & ""

End Select
End If
Try
oledbcom = con.CreateCommand
oledbcom.CommandText = "select * from child where " & sqlstring
oledbdata.SelectCommand = oledbcom
oledbdata.Fill(ds, "child")
DataGridView2.DataSource = ds
DataGridView2.DataMember = "child"
DataGridView2.ReadOnly = True
Catch ex As Exception

End Try