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

"
'

سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#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 

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [سؤال] سؤال حول البحث ahmadpal 6 93 أمس, 11:28 PM
آخر رد: ahmadpal
  عرض البيانات بشكل عمودي في DataGridView ابراهيم ايبو 0 41 أمس, 03:35 PM
آخر رد: ابراهيم ايبو
  بحاول اعرف متغير بشكل ده dim rep as new crystal report hedra samir 9 98 أمس, 09:00 AM
آخر رد: 5000
  [سؤال] اين الغلط في كود استخدام فلتر البحث georgos 7 161 24-02-19, 03:29 AM
آخر رد: ابراهيم ايبو
  [سؤال] الشرط لا يتنفذ بشكل كامل في عملية جلب اسم المنتج georgos 8 138 23-02-19, 04:25 PM
آخر رد: elgokr
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 191 20-02-19, 04:01 PM
آخر رد: elgokr
  توزيع اشخاص علي فرق بشكل عشوائي - مهم جدا shado1796 11 2,843 15-02-19, 02:47 PM
آخر رد: issamsaidd
Information [VB.NET] بحاجة الى اكواد الاضافة و الحذف و التعديل و البحث .. georgos 7 266 15-02-19, 10:52 AM
آخر رد: georgos
  مشكلة كود البحث بين تاريخين احمد129 12 390 11-02-19, 07:56 PM
آخر رد: princelovelorn
  [VB.NET] البحث في RichTextBox dubai.eig 3 191 27-01-19, 02:47 AM
آخر رد: ابراهيم ايبو

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


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