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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أكواد البحث في السجلات والحقول ZaerAllail 0 63 14-01-19, 12:13 AM
آخر رد: ZaerAllail
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 134 09-01-19, 11:29 AM
آخر رد: dametucorazon
  [سؤال] البحث بالداتاجريدفيو allo5_800 4 170 24-12-18, 09:32 AM
آخر رد: allo5_800
  ظهور الاسماء بشكل غريب ابو روضة 6 204 21-12-18, 03:23 AM
آخر رد: ابو روضة
Rainbow [كود] البحث عن سجل بين تاريخين اسامه الهرماوي 6 206 20-12-18, 03:19 PM
آخر رد: اسامه الهرماوي
  [VB.NET] بعد البحث في مواضيع الماسح الضوئي عذراً لم اجد مسح المستند الى PDF salah4salah@gmail.com 4 161 20-12-18, 01:24 AM
آخر رد: elgokr
  [سؤال] البحث في الاكسس اسامه الهرماوي 3 119 19-12-18, 04:11 PM
آخر رد: عبد العزيز البسكري
  [سؤال] طريقة البحث ابو يوسف النواوي 2 2 160 17-12-18, 09:08 PM
آخر رد: elgokr
  [سؤال] كيف يتم البحث عن شاشة بالفعل تعمل وتفعيلها لتصبح فوق الجميع dametucorazon 3 132 10-12-18, 05:47 AM
آخر رد: rmnr
  سؤال بخصوص البحث باستخدام التاريخ عن طريق WebService masry4u 3 136 08-12-18, 08:36 PM
آخر رد: masry4u

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


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