+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1757)
البحث بجزء من الإسم - rohiem - 30-01-14
السلام عليكم ورحمة الله وبركاته
استخدمت طريقة أستاذنا أبو رائد في البحث المتقدم المذكورة في الرابط
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)كيف يمكنني ذلك ...
RE: البحث بجزء من الإسم - سعود - 30-01-14
مثال بسيط جدا
كود :
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 ClassRE: البحث بجزء من الإسم - rohiem - 30-01-14
أستاذنا : سعود حفظك الله
شكراً على سرعة التجاوب
ولكن .. ما ذكرته معروف ومعلوم .. طلبي محدد بالصيغة التي ذكرتها بالأعلى لأن لها فوائد عديدة وكما كتب الأستاذ أبو رائد ( طريقة متقدمة في البحث ) ..
كيف أضع المتغيرات % " في الصيغة المذكورة أعلاه .
RE: البحث بجزء من الإسم - سعود - 30-01-14
بصراحة لا ادري
هل يمكن ترفع مثال بسيط يستخدم الطريقة حتى احاول فيه؟؟
RE: البحث بجزء من الإسم - rohiem - 31-01-14
الحمد لله .. بفضل الله
ثم بفضل عدد من مواضيعكم المتعددة ... توصلت إلى الحل
كود :
If Me.TextBox2.Text.Trim <> "" Then comm.Parameters.AddWithValue("@req_name", "%" & Me.TextBox2.Text.Trim & "%" )