مشكلة في البحث

عروستى .....!!! :unsure:

فين السؤال وضح السؤال لو سمحت شوية

علشان تلاقى اجابه سريعه

:blush:

كود البحث

اقتباس

Static m As Integer = 0

If TextBox1.Text = Trim("") Then Exit Sub

If RadioButton4.Checked = True Then

ExactSearch()

ElseIf RadioButton5.Checked = True Then

GeneralSearch()

End If

Conn.Open()

Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()

TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Name")

TextBox3.DataBindings.Add("Text", DataSet1, "Table1.City")

TextBox4.DataBindings.Add("Text", DataSet1, "Table1.mobile")

DataGridView1.DataSource = DataSet1

DataGridView1.DataMember = "Table1"

Button1.Enabled = False

If Me.BindingContext(DataSet1, "Table1").Count = 0 Then

MsgBox("No Result, Please Try Again ")

Exit Sub

End If

Public Sub ExactSearch()

If RadioButton1.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE name = '" & TextBox1.Text & "'"

ElseIf RadioButton2.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE City = '" & TextBox1.Text & "'"

ElseIf RadioButton3.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE mobile = '" & TextBox1.Text & "'"

End If

End Sub

Public Sub GeneralSearch()

If RadioButton1.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE name LIKE '%" & TextBox1.Text & "%'"

ElseIf RadioButton2.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE City LIKE '%" & TextBox1.Text & "%'"

ElseIf RadioButton3.Checked = True Then

SQLstr = "SELECT * FROM Table1 WHERE mobile LIKE '%" & TextBox1.Text & "%'"

End If

End Sub

المشكلة في هذا الكود انه ما يقبل انه يعمل عمليتن بحث متتاليتن بل عند عمل بحث مرة ثانية بعطيني رسالة أنه قيم بالمتغيرات التالية

اقتباس

TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Name")

TextBox3.DataBindings.Add("Text", DataSet1, "Table1.City")

TextBox4.DataBindings.Add("Text", DataSet1, "Table1.mobile")

ارجو ان اكون قد وضحث المشكلة :resentful: :resentful:

:ty: :ty:

المشكلة بالـ DataBindings

استخدم هذا الاسلوب بدلا من DataBindings

TextBox2.Text = DataSet1.Tables.Item("Table1").Rows.Item(0).Item(0)
		TextBox3.Text = DataSet1.Tables.Item("Table1").Rows.Item(0).Item(1)
		TextBox4.Text = DataSet1.Tables.Item("Table1").Rows.Item(0).Item(2)

تحياتي

مشكور على التفاعل وجاري التجربة