تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] البحث بجزء من الإسم
#1
السلام عليكم ورحمة الله وبركاته
استخدمت طريقة أستاذنا أبو رائد في البحث المتقدم المذكورة في الرابط
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)

كيف يمكنني ذلك ...
الرد
تم الشكر بواسطة:
#2
مثال بسيط جدا
كود :
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
الرد
تم الشكر بواسطة: abulayth
#3
أستاذنا : سعود حفظك الله
شكراً على سرعة التجاوب
ولكن .. ما ذكرته معروف ومعلوم .. طلبي محدد بالصيغة التي ذكرتها بالأعلى لأن لها فوائد عديدة وكما كتب الأستاذ أبو رائد ( طريقة متقدمة في البحث ) ..
كيف أضع المتغيرات % " في الصيغة المذكورة أعلاه .
الرد
تم الشكر بواسطة:
#4
بصراحة لا ادري
هل يمكن ترفع مثال بسيط يستخدم الطريقة حتى احاول فيه؟؟
الرد
تم الشكر بواسطة:
#5
الحمد لله .. بفضل الله
ثم بفضل عدد من مواضيعكم المتعددة ... توصلت إلى الحل
كود :
If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", "%" & Me.TextBox2.Text.Trim & "%" )
الرد
تم الشكر بواسطة: ali.alfoly , سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] البحث بالاجراءات المخزنة محمد اسماعيل 7 119 12-07-18, 09:46 PM
آخر رد: ابراهيم ايبو
  [VB.NET] طريقة طباعة نتيجة البحث في الداتاريبورت larbihamri 3 134 11-07-18, 05:56 PM
آخر رد: ghaner joseph
  البحث بقاعدة البيانات سيكول سيرفر محمد اسماعيل 7 109 07-07-18, 01:24 PM
آخر رد: محمد اسماعيل
  [VB.NET] ملأ الكومبوبكس من نتائج البحث في قاعدة البيانات larbihamri 3 93 06-07-18, 06:07 PM
آخر رد: elgokr
  مطلوب التعديل على نموذج البحث ZaerAllail 33 439 30-06-18, 10:09 PM
آخر رد: ZaerAllail
  البحث داخل الداتا جريد فيو Osama Bayoumy 3 131 19-06-18, 09:50 AM
آخر رد: elgokr
  سؤال سريع عن كود البحث maram2423 12 205 08-06-18, 04:31 AM
آخر رد: elgokr
  [VB.NET] مشكلة في البحث عن الملفات ThreeDaysGrace 4 270 04-06-18, 05:11 PM
آخر رد: ThreeDaysGrace
  [VB.NET] عمليات البحث Ahmed.noor 1 105 04-06-18, 04:50 PM
آخر رد: عبدالله الدوسري
  كود البحث في حقول عدة جداول aftfm 3 70 24-05-18, 10:15 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم