+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بحث عن طريق الكومبوبوكس (/showthread.php?tid=12624)
بحث عن طريق الكومبوبوكس - sphinx - 29-06-15
السلام عليكم اخواني ممكن ان تساعدوني بطريقة بحث عن البيانات في اكسيس عن طريق الكومبوبوكس
وكما في المرفق
RE: بحث عن طريق الكومبوبوكس - sphinx - 30-06-15
للرفع شباب
المشكله ان الكود عندي لكن فية مشكله
RE: بحث عن طريق الكومبوبوكس - المبرمج الطموح88 - 30-06-15
هذا المثال بعد التعديل ان شاء الله يكون حسب المطلوب
RE: بحث عن طريق الكومبوبوكس - sphinx - 02-07-15
اشكرك اخي المبرمج المحترف جدا وجعله عملك هذا في ميزان حسناتك لانك حللت المشكله لدي
لكن في مشكله انه عند البحث بأسم الطفل او رقمه تظهر خانه رقم الطفل رقم 1 دائما
RE: بحث عن طريق الكومبوبوكس - sphinx - 05-07-15
شكرا شباب حللت المشكله ووجدت الكود المناسب يعد حهد كبير
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