تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة: مهموم , جميل علي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث بجزء من التاريخ أسامة السالمي 6 102 16-02-17, 03:19 PM
آخر رد: أسامة السالمي
  نموذج مستمر ..Continuous form haydar2000 0 40 07-02-17, 01:21 AM
آخر رد: haydar2000
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 1 86 03-02-17, 07:09 PM
آخر رد: مساعدة
  [VB.NET] البحث التلقائي tifagreet 1 77 30-01-17, 06:07 PM
آخر رد: مساعدة
  البحث قى listbox Mohamed20 1 87 27-01-17, 07:12 AM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 193 24-01-17, 08:32 PM
آخر رد: gmailali
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 104 22-01-17, 01:39 PM
آخر رد: thevirus
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 277 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  [سؤال] كود البحث عن طريق اسم naden 2 229 15-12-16, 02:33 AM
آخر رد: naden
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 146 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي

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


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