+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : ممكن مساعدة في خطأ في جملة إستعلام (/showthread.php?tid=14212)
ممكن مساعدة في خطأ في جملة إستعلام - spyman - 23-12-15
السلام عليكم ارفقك لكم الصورة لا اعرف ماهو الخطأ ممكن المساعدة
![[صورة مرفقة: do.php?imgf=1450822883091.png]](http://iraqup.net/do.php?imgf=1450822883091.png)
RE: ممكن مساعدة - Ahmed_Mansoor - 23-12-15
أهلا أخي الكريم , قم بالضغط على زر Debug في رسالة الخطأ لكي نشاهد أين مكان الخطأ أو ضع جزء الكود الذي يوجد فيه الخطأ , ويبدو أن الخطأ في جملة الإستعلام .
RE: ممكن مساعدة - spyman - 25-12-15
تفضل اخي
RE: ممكن مساعدة - myalsailamy - 25-12-15
Text1.text
ثانيا
اختر عنوان مناسب و ضع موضوع واحد لنفس المشكله
RE: ممكن مساعدة في خطأ في جملة إستعلام - Ahmed_Mansoor - 25-12-15
أهلا أخي الكريم , أريدك أن تتأكد من صحة أسماء الحقول الـ UserName والـ Password وإسم الجدول , وأيضاً تتأكد من أن لايكون في داخل التكست1 أو التكست2 علامة التنصيص المفرد أو التنصيص المزدوج , وأيضاً يجب أن لايكون فيه أي مسافات بين التنصيص المفرد وقيمة أو محتوى التكست1 و التكست2 بحيث يكون الإستعلام بهذا الشكل :
PHP كود :
Select * From User Where UserName='" & Trim$(Text1.Text) & "' And Password='" & Trim$(Text2.Text) & "'"
إذا كتبت الإستعلام بهذا الشكل مع التأكد من أن أياً من محتوى التكست1 أو التكست2 لايكون فيه علامة التنصيص المفرد أو التنصيص المزدوج والتأكد من صحة أسماء الحقول والتأكد من صحة إسم الجدول وحصل نفس الخطأ فأعتقد أن المشكلة في إسم الجدول User ممكن يكون كلمة محجوزة لايجب إستخدامها في الإستعلام يعني يجب تغيير إسم الجدول بإضافة حرف عليه .
RE: ممكن مساعدة في خطأ في جملة إستعلام - spyman - 25-12-15
شكررااا لكم راح اجرب وانطيكم خبرر
RE: ممكن مساعدة في خطأ في جملة إستعلام - spyman - 26-12-15
شكراا تم حل المشكلة بعد تغير اسم الجدول
RE: ممكن مساعدة في خطأ في جملة إستعلام - spyman - 27-12-15
اين الخطا في الكودد اذا ممكن مساعد
عند اقوم بكتابة اسم لعرض لايعرض اي شي في داتا جريد
هذا الكود الخاص بعرض الاسم
Private Sub Command1_Click()
xx = Text1.Text
Adodc1.RecordSource = " Select * From Query where name_s = ' " & Trim$(xx) & " ' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub
RE: ممكن مساعدة في خطأ في جملة إستعلام - Ahmed_Mansoor - 28-12-15
أهلا أخي الكريم , تم تعديل الكود , أعتقد أنه يجب عليك تغيير إسم الجدول لأن الكلمة Query أعتقد محجوزة أو ممكن تسبب لك أخطاء لذلك غير إسم الجدول بوضع حرف قبل أو بعده غيره في قاعدة البيانات وأيضاً في جملة الإستعلام كما عدلتها أنا , وأيضاً عندما تبحث بإسم حقل نصي في جملة الإستعلام فلاتضع مسافات بعد أو قبل التنصيص المفرد الذي يستخدم للحقول التي نوعها "نص" لأن المسافات ستعتبر من ضمن نص البحث .
PHP كود :
Private Sub Command1_Click()
Adodc1.RecordSource = " Select * From zQuery where name_s='" & Trim$(Text1.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Set DataGrid1.DataSource = Adodc1
Else
Set DataGrid1.DataSource = Nothing
End If
End Sub
RE: ممكن مساعدة في خطأ في جملة إستعلام - spyman - 02-01-16
(28-12-15, 01:20 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , تم تعديل الكود , أعتقد أنه يجب عليك تغيير إسم الجدول لأن الكلمة Query أعتقد محجوزة أو ممكن تسبب لك أخطاء لذلك غير إسم الجدول بوضع حرف قبل أو بعده غيره في قاعدة البيانات وأيضاً في جملة الإستعلام كما عدلتها أنا , وأيضاً عندما تبحث بإسم حقل نصي في جملة الإستعلام فلاتضع مسافات بعد أو قبل التنصيص المفرد الذي يستخدم للحقول التي نوعها "نص" لأن المسافات ستعتبر من ضمن نص البحث .
PHP كود :
Private Sub Command1_Click()
Adodc1.RecordSource = " Select * From zQuery where name_s='" & Trim$(Text1.Text) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Set DataGrid1.DataSource = Adodc1
Else
Set DataGrid1.DataSource = Nothing
End If
End Sub
شكرااا اخي جزاك الله كل خيرر
