السلام عليكم ورحمة الله وبركاته
استخدم الكود التالي للبحث في قاعدة البيانات لكن عيب هذا الكود أنه يبحث فقط على المتغيرات الحرفية وأحتاجه ضروري للبحث في المتغيرات الرقمية أرجوا المساعدة.
الكود كالتالي:
كود :
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 (التسلسل) هل من مساعدة في ذلك؟
تفضل أخى .. و لو لديك أى سؤال منتظرك
كود :
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
(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
جزاك الله خيرا الله يحفظك