+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19808)
خطأ في جملة الاستعلام - Ahmed Abdulla - 27-03-17
ما الخطأ في هذا الكود
SQLs = "Delete From Offer Where OfferNo='" & Trim(Form9.Text2.Text) & "' and Item=" & Val(Trim$(Form9.Label2.Caption))
RE: خطأ في جملة الاستعلام - Ahmed_Mansoor - 27-03-17
أهلا أخي الكريم ، صيغة الإستعلام صحيه لكن لاحظت انك ماقفلت الاقواس الاخيره يعني تحط قوسين في آخر شي إلا اذا نسيت ماتكتبها هنا في الموضوع واذا كان الحقل offern ليس نصي فقم بإزالة علاات التنصيص المفرد واعمله كما عملت مع الحقل Item يعني تاكد من انواع الحقول نصي او رقمي واخير اسم الحقل Item ممكن يكون اسم محجوز لذلك لتفادي الاخطاء ضعه بين قوسين مربعه هكذا [Item] .
RE: خطأ في جملة الاستعلام - Ahmed Abdulla - 27-03-17
أخي الكريم شكرا لمساعدتك ... الأقواس موجودة وبالنسبة للحقل Item هو رقمي والحقل OfferNo هو نصي
جربت مرة أخري الكود ولا يعمل للأسف
RE: خطأ في جملة الاستعلام - sendbad100 - 27-03-17
افضل لو ترسل مثال
RE: خطأ في جملة الاستعلام - Ahmed Abdulla - 27-03-17
(27-03-17, 04:17 PM)sendbad100 كتب : افضل لو ترسل مثال
أخي الكريم مرفق مثال بسيط أرجو التعديل عليه زر (Delete) ولك جزيل الشكر
RE: خطأ في جملة الاستعلام - sendbad100 - 27-03-17
السلام عليكم
قاعدة البينات لا تعمل او تالفة
انظر الصورة
RE: خطأ في جملة الاستعلام - v_2017_6 - 27-03-17
أخي أحمد منصور Ahmed_Mansoor
[align=left]أخونا كان كاتب فقط هذا الكود ولم ينفذه
وأنا عدلت له
[align=left]أخونا كان كاتب فقط هذا الكود ولم ينفذه
PHP كود :
Private Sub Command1_Click()
If Con.State = 1 Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Combo1.Text & ".accdb; Jet OLEDB:Database Password = Ahmed Abdulla"
SQLs = "Delete From Offer Where OfferNo='" & Trim(Text1.Text) & "' and Item=" & Val(Trim$(Text2.Text))
End Sub
وأنا عدلت له
PHP كود :
Private Sub Command1_Click()
If Con.State = adStateOpen Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Combo1.Text & ".accdb; Jet OLEDB:Database Password = Ahmed Abdulla"
If RSS.State = adStateOpen Then RSS.Close
SQLs = "Delete From Offer Where OfferNo='" & Trim(Text1.Text) & "' and Item=" & Val(Trim$(Text2.Text))
RSS.Open SQLs, Con, adOpenKeyset, adLockPessimistic
End Sub
أخي سندباد تفضل قاعدة البيانات
RE: خطأ في جملة الاستعلام - Ahmed Abdulla - 28-03-17
جزاكم الله خيرا وشكرا لاهتمامكم جميعا