منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ماهي القيمة التي تناسب هذا الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=16311)

ماهي القيمة التي تناسب هذا الكود - طالب 22 - 30-06-16

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

في عملية البحث عن اسم محدد راح يكون الكود كالاتي

كود :
Dim cmd As New OleDbCommand("select * from Table1 where EMP_Name = @EMP_Name ", connaccess2010)
       cmd.Parameters.Add("@EMP_Name", OleDbType.VarChar).Value = TextBox1.Text.Trim

ومثلا اسماء كثيرة عندي واريد لما اكتب حرفين واضغط على بحث تطلع لي كل الاسماء التي بدايتها ذاك الحرفين
مثال
كتبت حرف مح وثم بحث

اريد يظهر لي
محمد
محمود
محروق
محدان
محاد
محتار


يا ترا هل بالامكان ان يتم البحث بهذه الطريقة

RE: ماهي القيمة التي تناسب هذا الكود - الوادي - 30-06-16

يا طالب،

سبق أن خبرتك عن AddWithValue

استخدم LIKE للبحث بجزء من النص مع علامة %
PHP كود :
Dim cmd As New OleDbCommand("SELECT * FROM [Table1] WHERE [EMP_Name] LIKE @EMP_Name + '%' ", connaccess2010)
cmd.Parameters.AddWithValue("@EMP_Name", TextBox1.Text.Trim) 


RE: ماهي القيمة التي تناسب هذا الكود - طالب 22 - 01-07-16

تسلم لي الغالي والله

كانت مشكلتي مع
like
اذا اصبح الكود الاخير
Dim cmd As New OleDbCommand("select * from Table1 where location like @location ", connaccess2010)
cmd.Parameters.AddWithValue("@location", "%" & TextBox1.Text.Trim & "%")