تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أظهار خطئ بشكل مستمر في كود البحث
#1
السلام عليكم ورحمة الله وبركاتة
ه
ياأخوان أنا مبتداء في البرمجة ومازلت في بداية الطريق تابعت كثير من الدروس عبر اليوتيوب وعبر هذا المنتدى االرائع وأسأل الله لي ولكم التوفيق
واجهتني مشكلة في كود البحث وأنا من اربع ايام في محاولات مستمرة لحلها ولكن بلى فائدة تظهرلي رسالة خطئ كمافي الصورة


كود :
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

       zarsw.Clear()
       Dim cmd As New OleDbCommand("slect * from zarsw where like@[الاسم]", co)
       cmd.Parameters.Add("@[الاسم]", OleDbType.VarChar).Value = "%" & TextBox20.Text.Trim & "%"
       dazarsw = New OleDbDataAdapter(cmd)
       dazarsw.Fill(zarsw)
       DataGridView1.DataSource = zarsw
   End Sub
End Class


وهذا الفورم بالكامل

كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form2
   Dim co As New OleDbConnection

   Dim dazarsw As New OleDbDataAdapter
   Dim zarsw As New DataTable



   Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter

   End Sub

   Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click

   End Sub


   Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter

   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       co.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=swcc.accdb;Jet OleDb:Database Password =vah[ldglvdlphl];"
       co.Open()

       dazarsw = New OleDbDataAdapter("select * from zarsw", co)
       dazarsw.Fill(zarsw)
       DataGridView1.DataSource = zarsw

   End Sub

   Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

   End Sub

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

       zarsw.Clear()
       Dim cmd As New OleDbCommand("slect * from zarsw where like@[الاسم]", co)
       cmd.Parameters.Add("@[الاسم]", OleDbType.VarChar).Value = "%" & TextBox20.Text.Trim & "%"
       dazarsw = New OleDbDataAdapter(cmd)
       dazarsw.Fill(zarsw)
       DataGridView1.DataSource = zarsw
   End Sub
End Class

أرجو أن أجد الحل لديكم
وشكراً لكم
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
ايش اسم حقل الاسم؟
الخطأ في جملة البحث شوف جملة البحث تكون مثلا بهذه الصورة
PHP كود :
"
select * from
Table
where
Fieldx
Like
'

textbox1.text

"
'

سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#3
أشكرك على التجاوب

أسم حقل الاسم في القاعدة :

الاسم بالغة العربية

اذا في مجال تعدلي على نفس الكود أو على نفس الفورم

وشاكر ومقدر
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#4
جرب هذا ورد لي خبر
PHP كود :
zarsw.Clear()
        
Dim cmd As New OleDbCommand("slect * from zarsw where [الاسم] like '" TextBox20.text "'"co)

        
dazarsw = New OleDbDataAdapter(cmd)
        
dazarsw.Fill(zarsw)
        
DataGridView1.DataSource zarsw 

ثم ابتعد عن تسمية الحقول بالاسماء العربية بشكل نهائي
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#5
أخوي أبوعمر أظهرلي نفس الخطاء

أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#6
ارفع المثال
اذا امكن
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#7
مافهمت قصدك!!!
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#8
قصدي هات مشروعك أعدله لك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم ورحمة الله

أخي جميل

رد أخي عمر سليم ولكنه أهطأ في كتابة كلمة select

وهذا تعديل آخر
PHP كود :
Dim cmd As New OleDbCommand("Select * From [zarsw] Where [الاسم] Like @nm"co)
cmd.Parameters.AddWithValue("@nm""%" TextBox20.Text.Trim "%"
الرد }}}}
تم الشكر بواسطة: أبو عمر , جميل علي
#10
(30-10-15, 03:35 AM)مهموم كتب : السلام عليكم ورحمة الله

أخي جميل

رد أخي عمر سليم ولكنه أهطأ في كتابة كلمة select

وهذا تعديل آخر
PHP كود :
Dim cmd As New OleDbCommand("Select * From [zarsw] Where [الاسم] Like @nm"co)
cmd.Parameters.AddWithValue("@nm""%" TextBox20.Text.Trim "%"

بارك الله فيك
تصدق ما انتبهت slect
زي اهطأ
سبحان الله الكمال لله وحده !
أشكر لك تصحيحك استاذ مهموم
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: مهموم , جميل علي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 35 منذ 2 ساعة مضت
آخر رد: thevirus
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 1 39 20-01-17, 11:00 PM
آخر رد: مساعدة
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 218 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  [سؤال] كود البحث عن طريق اسم naden 2 177 15-12-16, 02:33 AM
آخر رد: naden
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 97 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 101 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 136 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 101 28-11-16, 06:23 PM
آخر رد: khalid475
  [VB.NET] مشكلة في كود البحث khalid475 14 297 11-11-16, 07:52 PM
آخر رد: khalid475
  إضافة مسار لمستند الوورد للوصول إليه بشكل أسرع أبووسم 4 157 10-11-16, 10:32 PM
آخر رد: أبووسم

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


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