تقييم الموضوع :
  • 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

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

textbox1.text

"
'

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

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

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

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

وشاكر ومقدر
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}}
تم الشكر بواسطة:
#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
أخوي أبوعمر أظهرلي نفس الخطاء

اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}}
تم الشكر بواسطة:
#6
ارفع المثال
اذا امكن
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#7
مافهمت قصدك!!!
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}}
تم الشكر بواسطة:
#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
الرد }}}}
تم الشكر بواسطة: مهموم , جميل علي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في البحث بالتاريخ ____وايضا ____ بين تاريخين khaled12345 7 143 24-05-17, 03:55 PM
آخر رد: khaled12345
  البحث باستخدام Rich Box khaled12345 9 134 22-05-17, 02:34 PM
آخر رد: khaled12345
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  البحث او الفلتر باكثر من اسم من داخل عمود Name khaled12345 2 67 21-05-17, 08:18 AM
آخر رد: khaled12345
  عملية البحث بين تاريخين khaled12345 8 117 19-05-17, 11:28 PM
آخر رد: khaled12345
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 94 19-05-17, 03:50 PM
آخر رد: khaled12345
  كيف بهذا البحث rabeh.ram 2 86 16-05-17, 01:25 AM
آخر رد: alma2
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 102 10-05-17, 11:17 AM
آخر رد: khaled12345
  كود البحث khalid475 14 279 09-05-17, 05:20 PM
آخر رد: khalid475
  البحث المتقدم في الدتا جرد فيوا جهاد الرمش 1 84 06-05-17, 02:16 AM
آخر رد: silverlight

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


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