29-05-16, 08:19 PM
كيف انفذ البحث في المثال المرفق علماً باني سويت كود البحث ويعمل كويس بس عند البحث برقم اخر لاتتم عملية البحث
حيث ان البحث في نفس الفورم
تكفون
حيث ان البحث في نفس الفورم
تكفون
Try
cler()
Dim sql As String = "select * from tbl1 WHERE HijriID LIKE '" & TextBox1.Text & "'"
Dim da As New OleDb.OleDbDataAdapter(sql, con)
da.Fill(dt)
txtid.Text = dt.Rows(0)("HijriID")
If dt.Rows.Count > 0 Then
Else
MsgBox("لاتوجد معاملات بهذا الرقم")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Try
cler()
Dim sql As String = "select * from tbl1 WHERE HijriID LIKE '" & TextBox1.Text & "'"
Dim bda As New OleDb.OleDbDataAdapter(sql, con)
Dim bdt As New DataTable
bda.Fill(bdt)
txtid.Text = bdt.Rows(0)("HijriID")
If bdt.Rows.Count > 0 Then
Else
MsgBox("لاتوجد معاملات بهذا الرقم")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
(29-05-16, 09:33 PM)علي كعبي كتب : [ -> ]طيب اخي سعود كيف املي باقي الحقول مثل حقل تاريخ الصادر وباقي الحقول
هل تكون جميع الصفوف تكتب هكذا
(txtid.Text = bdt.Rows(0)("HijriID
كلها بنفس (bdt.Rows(0=