06-09-17, 02:43 PM
السلام عليكم ، كل عام و انتم بخير و من العايدين أخواني الكرام
لدي مشكلة في الكود التالي ، بعد أن اعمل إعادة بحث مرة أخرى ، او إذا كان الاسم المراد البحث عنه غير موجود تخرج لي الخطأ التالي في الصورة
الكود كامل للتعديل عليه
لدي مشكلة في الكود التالي ، بعد أن اعمل إعادة بحث مرة أخرى ، او إذا كان الاسم المراد البحث عنه غير موجود تخرج لي الخطأ التالي في الصورة
الكود كامل للتعديل عليه
كود :
Conn.Open()
Dim dataad As New OleDbDataAdapter("SELECT * FROM HadiData where f2 LIKE '" & TextBox1.Text & "%'", Conn)
DataSet1.Clear()
dataad.Fill(DataSet1, "HadiData")
Conn.Close()
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "HadiData"
If Trim(TextBox1.Text) = "" Then
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "HadiData")
Conn.Close()
End If
dataad = New OleDb.OleDbDataAdapter("select * from Photo where idcard=" & TextBox6.Text & " ", Conn)
DataSet1 = New DataSet
dataad.Fill(DataSet1)
If DataSet1.Tables(0).Rows.Count <> 0 Then
PictureBox1.DataBindings.Clear() : PictureBox3.DataBindings.Add("Image", DataSet1.Tables(0), "idphoto", True)
End If
If TextBox3.Text = "" Then
MsgBox(" لايـوجد نتائج لعملية بحثك ")
TextBox1.Focus()
End If