السلام عليكم
عندي كود البحث إذا عملت Adapterبطريقة رسومية وعملت بحث تتم عملية البحث بدون فائة حيث تظهر جميع الحقول الموجودة في الجدول الموجود في قاعدة البيانات وإذا عملت Adapterبطريقة الكود يظهر خطأ وقت التشغيل في فتح الاتصال طبعا انا اشتغل على الفيجول 2003
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\CustomerService.mdb"
Dim cnsearch As New OleDb.OleDbConnection(ConStr)
Dim DataSet11 As DataSet1
Dim n As String
Dim sqlstr As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static n As Integer = 0
If TextBox11.Text = "" Then Exit Sub
If RadioButton4.Checked = True Then
exactsearch()
ElseIf RadioButton5.Checked = True Then
generalsearch()
End If
cnsearch.Open()
Dim dasearch As New OleDb.OleDbDataAdapter(sqlstr, cnsearch)
dasearch.Fill(DataSet11, "sales")
cnsearch.Close()
TextBox1.DataBindings.Add("text", DataSet11, "sales.num")
TextBox2.DataBindings.Add("text", DataSet11, "sales.name")
TextBox3.DataBindings.Add("text", DataSet11, "sales.coursetype")
DataGrid1.DataSource = DataSet11
DataGrid1.DataMember = "sales"
Button1.Enabled = False
If Me.BindingContext(DataSet11, "sales").Count = 0 Then
MsgBox("No Reasult, Please try again")
Exit Sub
End If
Button2.Enabled = True
Button3.Enabled = True
End Sub
Dim frm As New Form1
اتمنى افادتي في الموضوع مع الشكر