منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم و رحمة الله

المرجو التعديل على هاذا الكود فهو يعمل جيدا للبحث في محتوى الداتاكريد فيو
فانا اريد البحث في قاعدة اليانات اكسيس وعرض النتائج في التكست بوكس و الداتاكريد فيو
جزاكم الله كل خير.

كود :

dt.Clear()

        da = New OleDbDataAdapter("Select * From Table1 where nom Like '" & TextBox7.Text.Trim & "'", con)

        da.Fill(dt)

(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 

مشكور اخي العزيز الحلواني وجزاك الله كل خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Abdellatif

تركي الحلواني

Abdellatif