تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطأ في جملة الاستعلام
#1
ما الخطأ في هذا الكود 

SQLs = "Delete From Offer Where OfferNo='" & Trim(Form9.Text2.Text) & "' and Item=" & Val(Trim$(Form9.Label2.Caption))
الرد }}}}
تم الشكر بواسطة:
#2
أهلا أخي الكريم ، صيغة الإستعلام صحيه لكن لاحظت انك ماقفلت الاقواس الاخيره يعني تحط قوسين في آخر شي إلا اذا نسيت ماتكتبها هنا في الموضوع واذا كان الحقل offern ليس نصي فقم بإزالة علاات التنصيص المفرد واعمله كما عملت مع الحقل Item يعني تاكد من انواع الحقول نصي او رقمي واخير اسم الحقل Item ممكن يكون اسم محجوز لذلك لتفادي الاخطاء ضعه بين قوسين مربعه هكذا [Item] .
الرد }}}}
#3
أخي الكريم شكرا لمساعدتك ... الأقواس موجودة وبالنسبة للحقل Item هو رقمي والحقل OfferNo هو نصي

جربت مرة أخري الكود ولا يعمل للأسف
الرد }}}}
تم الشكر بواسطة: v_2017_6 , Ahmed_Mansoor
#4
افضل لو ترسل مثال
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
#5
(27-03-17, 04:17 PM)sendbad100 كتب : افضل لو ترسل مثال

أخي الكريم مرفق مثال بسيط أرجو التعديل عليه زر (Delete)  ولك جزيل الشكر


الملفات المرفقة
.rar   New folder.rar (الحجم : 1.64 م ب / التحميلات : 25)
الرد }}}}
تم الشكر بواسطة: v_2017_6
#6
السلام عليكم 

قاعدة البينات لا تعمل او تالفة

انظر الصورة


الملفات المرفقة صورة/صور
   
السلام عليكم  احبائي 
بسبب انشغالي  قل  عطائي  -- اعتذر منكم  --  وسال الله العلي القدير  ان لا يشغلنا الا بطاعته.
اشكر كل الاخوة في المنتدى الرائع الذين ساعدوني خاصة والذين يساعدون الجميع -- اسال الله العلي القدير ان يكتب اجرهم مضاعفا ويرزقهم الجنة.
الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري , v_2017_6 , Ahmed_Mansoor
#7
أخي أحمد منصور Ahmed_Mansoor

[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 & ".accdbJet 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 & ".accdbJet 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 


أخي سندباد تفضل قاعدة البيانات


الملفات المرفقة
.rar   2016.accdb.rar (الحجم : 27.55 ك ب / التحميلات : 19)
الرد }}}}
#8
جزاكم الله خيرا وشكرا لاهتمامكم جميعا
الرد }}}}
تم الشكر بواسطة: عبد العزيز البسكري , v_2017_6 , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] جملة استعلام amro_demon 6 98 02-01-18, 04:50 PM
آخر رد: amro_demon
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 129 26-11-17, 12:02 PM
آخر رد: الاصيله
  مشكلة جمع حقل فارغ في الاستعلام sulimanalahdl 12 274 11-11-17, 03:04 PM
آخر رد: sulimanalahdl
  [vb6.0] لرجاء المساعدة في جملة adoPrimaryRS.Open إبراهيم خشافه1 20 343 25-10-17, 07:23 PM
آخر رد: إبراهيم خشافه1
Question [vb6.0] الاستعلام برقم الموظف في برنامجي المرفق ؟ Microformt 9 307 27-08-17, 01:44 PM
آخر رد: Microformt
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 272 26-05-17, 12:15 PM
آخر رد: larbihamri
  ما الخطاء في جملة الاستعلام النالية حيث لا تعمل allobaed 2 191 26-02-17, 06:59 PM
آخر رد: allobaed
  طباعة الاستعلام في activeReport كنونو 2 470 28-11-16, 05:19 AM
آخر رد: كنونو
Question [vb6.0] أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ Microformt 2 431 01-05-16, 06:29 AM
آخر رد: Microformt
  حساب عدد حرف معين في جملة محمد ئوزبك 5 596 23-01-16, 09:59 PM
آخر رد: محمد ئوزبك

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


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