تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة فى كود البحث
#11
جزاك الله خيرا اخي الفاضل

عدلت الكود و اصبح هكذا

إقتباس :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")

و لكن ايضاً ملئ بالاخطاء
الرد }}}
تم الشكر بواسطة:
#12
السلام عليكم

اخي انا قلت لك بان تضع كود البحث في button اخر وليس مع كود الاتصال
الرد }}}
تم الشكر بواسطة:
#13
sajad كتب :السلام عليكم

اخي انا قلت لك بان تضع كود البحث في button اخر وليس مع كود الاتصال

جزاك الله خيراً اخي الفاضل , سيتم التجربة إن شاء الله و الرد عليك

بارك الله فيك
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم