تعديل فى جملة إستعلام SQL ؟

بدأه bakkar2000 في 27 يوليو 2012 · 7 رد · 441 مشاهدة · في قواعد بيانات Microsoft Access

#127 يوليو 2012 في 23:19 صاحب الموضوع

بسم الله الرحمن الرحيم

لدى فى المرفقات جملة إستعلام تقوم بإضافة كل ما يكتب فى الـ ComboBox إلى الجدول Acomments

و تحديداً إلى الحقل K

    strSql = "Insert Into Acomment ([k]) values ('" & NewData & "')"

المطلوب : التعديل على جملة الإستعلام بحيث تتعامل أيضاَ مع الحقل T بإضافة أسم ثابت مثلاً " Ahmed" كلما تم الإضافة إلى الحقل K

مثلاً :-

    strSql = "Insert Into Acomment ([k,T]) values ('" & NewData & "')"

المشكلة كيف أضغ الـ Values الثابت للحقل الثانى.

المرفق

SQL St.rar

خالص شكرى وتقديرى

تم تعديل هذه المشاركة بواسطة bakkar2000 في 27 يوليو 2012 في 23:22

#228 يوليو 2012 في 00:02

strSql = "insert into Acomment (k, T) values ('" & NewData & "', 'Ahmed')"

مزيد من المعلومات حول INSERT INTO.

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#328 يوليو 2012 في 13:49

بسم الله الرحمن الرحيم

سلام الله عليكم ورحمتة وبركاتة أستاذنا Xacker

لقد قمت بكتابة نفس الكود حتى ظننت أنى أخطأت فى كتابتة لسوء النتائج..

أخى مازلنا فى نفس المشكلة الكود يقوم بالتسجيل فى حقل الـ K و يظل حقل الـ T فارغا

فأرجوا المتابعة مع التطبيق على المثال

فى رعاية الله

#428 يوليو 2012 في 15:31

- تأكد من اسم العمود T أن يكون بالضبط T وليس t (لا أعلم إن كان هذا سيتسبب بمشكلة في Access)

- ضع [ ] حول k و T تحسباً ألا تكون كلمات محجوزة ([t], [K])

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#528 يوليو 2012 في 21:17

بسم الله الرحمن الرحيم

أخى Xacker سلام الله عليكم ورحمتة وبركاتة

أخى نعلم تماماً أن المشكلة أكبر من الحروف الكبيرة أو صغيرة كما أن الأحرف ليست محجوزة يعنى الأقواس ليست السبب

رغم أنى و الله يعلم جربت كل الطرق الممكنة فى بناء هذة الجملة حتى التى كنت أثق أنها خطأْ من البدية و لكن لم يكن أمامى حيلة

و للأسف لا أدرى ما السبب ...أرجوا البحث فى جعبة خبرتك لنخرج بفائدة.

ليس من المعقول أن تقف كل هذة الخبرة أمام جملة SQL بسيطة مثل هذة.

أرجوا المتابعة

#628 يوليو 2012 في 22:57

أنا لا أستخدم Access، فانتظر من لديه خبرة في استخدامه لعلّه يكون ذي عون لك.

بالتوفيق.

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#728 يوليو 2012 في 23:16

بارك الله بك اخي الفاضل : Xacker

على المشاركة

بالنسبة لهذا الموضوع وهو اضافة اسم ثابت الى حقل معين فنحن نحتاج الى استعلام او جملة تحديث ( UPDATE ) وليس الى استعلام او جملة الحاق ( Insert into ) لأن جملة Insert into تقوم بوضع القيمة في صف جديد

عموما تم تعديل الملف حسب المطلوب بهذا الكود في حدث بعد تحديث النموذج

Private Sub Form_AfterUpdate()
    Dim StrSQL As String
    DoCmd.SetWarnings False
    StrSQL = "UPDATE Acomments SET Acomments.T = 'Ahmed' WHERE (((Acomments.k)=FORMS!Form1!k))"
    DoCmd.RunSQL StrSQL
    DoCmd.SetWarnings True
End Sub

وتكون النتيجة بهذا الشكل