[rohiem]

السلام عليكم ورحمة الله وبركاته
استخدمت طريقة أستاذنا أبو رائد في البحث المتقدم المذكورة في الرابط
http://vb4arb.com/vb/showthread.php?tid=367
ولكن المشكلة أنني لا أستطيع البحث بجزء من الإسم ( مثلاً ) بل لابد من كتابة الإسم كاملاً في مربع البحث .. وهذا متعب ...

عدلت بدل علامة المساواة ( = ) وضعت ( like ) اشتغل الكود بس بكامل الاسم ... حاولت ووضعت % مع الكومات بعد كلمة like بطرق وكيفيات مختلفة ولم أوفق إلى الطريقة الصحيحة ...

كود :

If Me.TextBox2.Text.Trim <> "" Then where &= "AND [req_name] like @req_name "

كود :

If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", Me.TextBox2.Text.Trim)

كيف يمكنني ذلك ...

[سعود]

مثال بسيط جدا

كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Try
            Dim ds As New DataSet
            ds.Clear()
            DataGridView1.DataSource = Nothing


            Dim da As New OleDbDataAdapter("select tname,age from tb where tname like'%" & TextBox1.Text & "%'", con)

            da.Fill(ds, "tb")
            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "tb"

        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try

    End Sub

  
End Class

[rohiem]

أستاذنا : سعود حفظك الله
شكراً على سرعة التجاوب
ولكن .. ما ذكرته معروف ومعلوم .. طلبي محدد بالصيغة التي ذكرتها بالأعلى لأن لها فوائد عديدة وكما كتب الأستاذ أبو رائد ( طريقة متقدمة في البحث ) ..
كيف أضع المتغيرات % " في الصيغة المذكورة أعلاه .

[سعود]

بصراحة لا ادري
هل يمكن ترفع مثال بسيط يستخدم الطريقة حتى احاول فيه؟؟

[rohiem]

الحمد لله .. بفضل الله
ثم بفضل عدد من مواضيعكم المتعددة ... توصلت إلى الحل

كود :

If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", "%" & Me.TextBox2.Text.Trim & "%" )