[Hamza Elshare]

السلام عليكم ورحمة الله وبركاته
استخدم الكود التالي للبحث في قاعدة البيانات لكن عيب هذا الكود أنه يبحث فقط على المتغيرات الحرفية وأحتاجه ضروري للبحث في المتغيرات الرقمية أرجوا المساعدة. 
الكود كالتالي: 

كود :

   Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
       Try
           Dim dv As DataView = dt_viw_tb.DefaultView
           dv.RowFilter = " yr_wd LIKE '%" & ComboBox2.Text & "%' "
       Catch ex As Exception
       End Try
   End Sub

وفي حالة عدم وجود حل أريد أن أبحث بواسطة كومبوبوكس في عمود id (التسلسل) هل من مساعدة في ذلك؟

[DR.YASER]

تفضل أخى .. و لو لديك أى سؤال منتظرك 

كود :

Dim StrVar as String
Dim rd As oledbDataReader
Dim cmd as New oledbcommand


cmd.commandtext = "Select ((اسم الحق الرقمى الذى ترغب فى البحث عنه)) from ((اسم االجدول)) where ((محدد البحث و هو حقل الكود مثلا بالجدول)) = @ID"
cmd.connection = conn
rd = cmd.ExecuteReader

if rd.read then
''' و هنا فى السطر التالى سيعطيك متغير به نتيجة البحث الذى ترغغب بها و يمكنك وضعها فى مربع نص أو كومبو بوكس أو غيره
   StrVar = rd.GetString(1)

end if
rd.close

---

و هذا كود البحث باستخدام الكومبوبوكس داخل عمود id

كود :

dim combo_id as string = combobox1.text
           Dim sql1 As String = "SELECT * FROM اسم الجدول WHERE عمود الآى دى= '" & combo_id & " '"
           With conn
               If .State = ConnectionState.Open Then .Close()
               .Open()
           End With
           Dim da1 As Common.DbDataAdapter = New OleDb.OleDbDataAdapter(sql1, conn)
           Dim ds1 As DataSet = New DataSet
           da1.Fill(ds1, "اسم الجدول")
           Dim dt1 As DataTable = ds1.Tables("اسم الجدول")
           Dim row1 As DataRow
           For Each row1 In dt1.Rows
               TextBox1.text= row1("حقل كذا")
               TextBox2.text=  row1("حقل كذا و كذا")
           Next rowx10

[Hamza Elshare]

(05-07-20, 09:27 PM)DR.YASER كتب : تفضل أخى .. و لو لديك أى سؤال منتظرك 

كود :

Dim StrVar as String
Dim rd As oledbDataReader
Dim cmd as New oledbcommand


cmd.commandtext = "Select ((اسم الحق الرقمى الذى ترغب فى البحث عنه)) from ((اسم االجدول)) where ((محدد البحث و هو حقل الكود مثلا بالجدول)) = @ID"
cmd.connection = conn
rd = cmd.ExecuteReader

if rd.read then
''' و هنا فى السطر التالى سيعطيك متغير به نتيجة البحث الذى ترغغب بها و يمكنك وضعها فى مربع نص أو كومبو بوكس أو غيره
   StrVar = rd.GetString(1)

end if
rd.close

---

و هذا كود البحث باستخدام الكومبوبوكس داخل عمود id

كود :

dim combo_id as string = combobox1.text
           Dim sql1 As String = "SELECT * FROM اسم الجدول WHERE عمود الآى دى= '" & combo_id & " '"
           With conn
               If .State = ConnectionState.Open Then .Close()
               .Open()
           End With
           Dim da1 As Common.DbDataAdapter = New OleDb.OleDbDataAdapter(sql1, conn)
           Dim ds1 As DataSet = New DataSet
           da1.Fill(ds1, "اسم الجدول")
           Dim dt1 As DataTable = ds1.Tables("اسم الجدول")
           Dim row1 As DataRow
           For Each row1 In dt1.Rows
               TextBox1.text= row1("حقل كذا")
               TextBox2.text=  row1("حقل كذا و كذا")
           Next rowx10

جزاك الله خيرا الله يحفظك