+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] البحث (/showthread.php?tid=47705)
البحث - Abdellatif - 27-12-23
السلام عليكم و رحمة الله
المرجو التعديل على هاذا الكود فهو يعمل جيدا للبحث في محتوى الداتاكريد فيو
فانا اريد البحث في قاعدة اليانات اكسيس وعرض النتائج في التكست بوكس و الداتاكريد فيو
جزاكم الله كل خير.
كود :
dt.Clear()
da = New OleDbDataAdapter("Select * From Table1 where nom Like '" & TextBox7.Text.Trim & "'", con)
da.Fill(dt)RE: البحث - تركي الحلواني - 27-12-23
(27-12-23, 02:46 PM)Abdellatif كتب : السلام عليكم و رحمة الله
المرجو التعديل على هاذا الكود فهو يعمل جيدا للبحث في محتوى الداتاكريد فيو
فانا اريد البحث في قاعدة اليانات اكسيس وعرض النتائج في التكست بوكس و الداتاكريد فيو
جزاكم الله كل خير.
كود :
dt.Clear()
da = New OleDbDataAdapter("Select * From Table1 where nom Like '" & TextBox7.Text.Trim & "'", con)
da.Fill(dt)
PHP كود :
Dim dt As New DataTable()
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=مسار_قاعدة_البيانات.accdb;")
Dim da As OleDbDataAdapter
Private Sub SearchAndUpdateGridView()
dt.Clear()
Dim query As String = "SELECT * FROM Table1 WHERE nom Like ?"
da = New OleDbDataAdapter(query, con)
da.SelectCommand.Parameters.AddWithValue("param1", "%" & TextBox7.Text.Trim & "%")
Try
con.Open()
da.Fill(dt)
Catch ex As Exception
MessageBox.Show("حدث خطأ: " & ex.Message)
Finally
con.Close()
End Try
' عرض النتائج في التكست بوكس (اختياري)
If dt.Rows.Count > 0 Then
TextBox1.Text = dt.Rows(0)("اسم العمود").ToString()
Else
TextBox1.Text = ""
End If
' عرض النتائج في الداتاكريد فيو
DataGridView1.DataSource = dt
End Sub
RE: البحث - Abdellatif - 27-12-23
مشكور اخي العزيز الحلواني وجزاك الله كل خير