[spyman]

السلام عليكم ارفقك لكم الصورة لا اعرف ماهو الخطأ ممكن المساعدة

[Ahmed_Mansoor]

أهلا أخي الكريم , قم بالضغط على زر Debug في رسالة الخطأ لكي نشاهد أين مكان الخطأ أو ضع جزء الكود الذي يوجد فيه الخطأ , ويبدو أن الخطأ في جملة الإستعلام .

[spyman]

تفضل اخي

[myalsailamy]

Text1.text

ثانيا
اختر عنوان مناسب و ضع موضوع واحد لنفس المشكله

[Ahmed_Mansoor]

أهلا أخي الكريم , أريدك أن تتأكد من صحة أسماء الحقول الـ UserName والـ Password وإسم الجدول , وأيضاً تتأكد من أن لايكون في داخل التكست1 أو التكست2 علامة التنصيص المفرد أو التنصيص المزدوج , وأيضاً يجب أن لايكون فيه أي مسافات بين التنصيص المفرد وقيمة أو محتوى التكست1 و التكست2 بحيث يكون الإستعلام بهذا الشكل :

PHP كود :

Select * From User Where UserName='" & Trim$(Text1.Text) & "' And Password='" & Trim$(Text2.Text) & "'" 


إذا كتبت الإستعلام بهذا الشكل مع التأكد من أن أياً من محتوى التكست1 أو التكست2 لايكون فيه علامة التنصيص المفرد أو التنصيص المزدوج والتأكد من صحة أسماء الحقول والتأكد من صحة إسم الجدول وحصل نفس الخطأ فأعتقد أن المشكلة في إسم الجدول User ممكن يكون كلمة محجوزة لايجب إستخدامها في الإستعلام يعني يجب تغيير إسم الجدول بإضافة حرف عليه .

[spyman]

شكررااا لكم راح اجرب وانطيكم خبرر

[spyman]

شكراا تم حل المشكلة بعد تغير اسم الجدول

[spyman]

اين الخطا في الكودد اذا ممكن مساعد
عند اقوم بكتابة اسم لعرض لايعرض اي شي في داتا جريد


هذا الكود الخاص بعرض الاسم
Private Sub Command1_Click()
xx = Text1.Text
Adodc1.RecordSource = " Select * From Query where name_s = ' " & Trim$(xx) & " ' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End Sub

[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 


[spyman]

(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 


شكرااا اخي جزاك الله كل خيرر