07-12-12, 05:59 AM
جزاك الله خيرا اخي الفاضل
عدلت الكود و اصبح هكذا
و لكن ايضاً ملئ بالاخطاء
عدلت الكود و اصبح هكذا
إقتباس :Dim saveinto As New OleDb.OleDbCommand
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
Dim conn As New OleDb.OleDbConnection(constr)
Dim DataSet1 As New DataSet
Dim SQLstr As String
Dim row As DataRow
Dim mytable As New DataTable
SQLstr = "SELECT * From factor Where factor_name=('" & TextBox10.Text & "')"
conn.Open()
Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
dataadapter1.Fill(DataSet1, "factor")
row = (DataRow)mytable.Select("owner like'%" + textBox2.Text+"%'").GetValue(0)
textBox3.Text = row["owner"].ToString()
If Me.BindingContext(DataSet1, "factor").Count = 0 Then
MsgBox("No Result ! .")
conn.Close()
Else
TextBox1.DataBindings.Add("text", DataSet1, "factor.factor_num")
و لكن ايضاً ملئ بالاخطاء