[mudz]

(05-09-16, 08:13 PM)%Eman% كتب : كنت عملتها مرة

عرف المتغيرات دى فى الجنرال

   Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source =" & Application.StartupPath & "\MyData.mdb"
   Dim Conn As New OleDbConnection(ConStr)
   Dim DataSet1 As New DataSet


فى زر البحث اكتب الكود ده
 Dim SQLstr As String = "SELECT * FROM Table1 WHERE name = '" & TextBox1.Text & "'"

       DataBindings.Clear()
       DataSet1.Clear()


       Conn.Open()
       Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
       DataAdapter1.Fill(DataSet1, "Table1")
       Conn.Close()
       On Error Resume Next
       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"

لو الكود مش واضح ممكن اعمل لك مثال

ههههه انا ألفت كود من راسي وزبط معي


هذا
Dim Gulb As New OleDbCommand
Dim dt As New DataTable
con.Open()
Gulb.Connection = con

Gulb.CommandText = "Select * From MUD where ID = '" + TextBox1.Text + "'"
TextBox3.Text = Gulb.ExecuteScalar


con.Close()