semo.pa3x [شرح] اداة تحويل SQL الى VBA من برمجتي

[SEMO.Pa3x]

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

السلام عليكم ورحمة الله وبركاته..

اقدم لكم اداة من برمجتي المتواضعة لتحويل اكواد الـ SQL الى VBA

قبل كل شي، الاداة حصراً للمبرمجين الذين يستخدمون الكود في الادراج والتعديل والحذف

وليس للأشخاص الذين يستخدمون الواجهة الرسومية للأكسس الخالية من الكود

ماهي فائدة الأداة ولماذا استخدمها؟

حسناً، لو كان لدينا جدول اسمة tbl_movementes يقوم بتسجيل جميع الحركات التي تحدث ( اضافة , تعديل , حذف )

وهذا الجدول احتاجه في كثير من النماذج، فهل من المعقول ان اقوم بكتابة عبارة INSERT INTO في كل نموذج ؟

اكيد لا، سأقوم بكتابة Sub واقوم بإستدعاءه كل مرة اريد ان اضيف بها بيانات الى الجدول

واختصاراً للوقت الطويل والأخطاء التي ربما ستحدث اثناء عملية التحويل، قمت بكتابة اداة تقوم بهذا الغرض

الاداة وضيفتها فقط ( Insert , Update )

 

صورة الاداة:

 

لنطبق على عملية اضافة بيانات جديد:

 

1- قم بفتح 

 

2- ثم قم بأختيار الجدول الذي تريده، وقم بإدراج جميع الحقول، كما في الصورة

 

 

3- من النافذة العليا اختر النافذة تصميم وقم بتعديل نوع الاستعلام الى استعلام إلحاق

 

 

وثم بإختيار نفس الجدول لكي يقوم بألحاق البيانات به.

الآن لنرى النتيجة

 

 

3- الان قم بعرض اكواد الـ SQL

 

 

4- قم بنسخ جميع الاكواد كما في الصورة الاتية

 

 

5- الان قم بفتح الاداة، واختر النوع Insert، ثم الصق اكواد الـ SQL في مربع النص SQL

 

 

6- قبل عملية التحويل قم بإلغاء الأعمدة التي لا ترغب بها من القائمة على اليمين ( Column Remove )

مثلا سأقوم بألغاء العمود IsDeleted وذلك بالضغط على اسم العمود

رسالة تخبرك بتأكيد عملية حذف العمود

7- اضغط على الزر Convert

 

 

8- تم تحويل الكود ونسخه، الان قم بلصقه في الأكسس واستخدمه

 

 

الاستخدام

 

النتيجة، تم ادراج البيانات بالجدول

 

لنطبق على عملية تعديل البيانات:

نفس الخطوات القديمة فقط من الاداة اختر نوع الاستعلام Update

من المعروف ان عملية تعديل البيانات تتطلب معيار للتعديل WHERE COLUMN NAME = Number

لذلك عندما نقوم بإنشاء الاستعلام نقوم بوضع عمود المعيار اخر عمود في الاستعلام هكذا

 

من لديه ملاحظات أو اضافات تعطى للبرمج حصراً أحرم تعديل البرنامج بأحد ادوات الهندسة العكسية او نسبه لأي شخص

تمت البرمجة حصرياً لمنتدى أوفسينا، اهداء الى معلمي العزيز @jjafferr

تحياتي للجميع.

 

 

SQL-VBA.rar

تم تعديل أغسطس 11, 2021 بواسطه SEMO.Pa3x

[محمد قاسم 12]

بارك الله فيك

[محمد أبوعبدالله]

بارك الله فيك استاذنا الفاضل

البرنامج يعمل جيدا في حالة الحاق البيانات في نفس الجدول

لكن لو كان الالحاق بجدول ثاني تظهر اخطاء

مثال : هذه جملة Sql منقولة من استعلام الحاق موجود بالفعل

INSERT INTO tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=1));

وهذه النتيجة من البرنامج

Public Sub Insert_tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType (IdAgents, XDate, X13 ) 
Dim mySQL As String
    mySQL = "INSERT INTO tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType "
    mySQL = mySQL & "(IdAgents, XDate, X13)"
    mySQL = mySQL & " VALUES "
    mySQL = mySQL & "('" & IdAgents & "','" & XDate & "','" & X13 & "')"
    CurrentDb.Execute mySQL
End Sub

تحياتي

[SEMO.Pa3x]

2 ساعات مضت, محمد أبوعبدالله said:

بارك الله فيك استاذنا الفاضل

البرنامج يعمل جيدا في حالة الحاق البيانات في نفس الجدول

لكن لو كان الالحاق بجدول ثاني تظهر اخطاء

مثال : هذه جملة Sql منقولة من استعلام الحاق موجود بالفعل

INSERT INTO tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=1));

وهذه النتيجة من البرنامج

Public Sub Insert_tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType (IdAgents, XDate, X13 ) 
Dim mySQL As String
    mySQL = "INSERT INTO tblOperations ( IdAgents, XDate, X13 )
SELECT tblAgents.IdAgents, Date() AS Xdate, tblAgents.MonthlyPayment
FROM tblAgents
WHERE (((tblAgents.MonthlyPayment)<>0) AND ((tblAgents.IdAgentsType)=LogedType "
    mySQL = mySQL & "(IdAgents, XDate, X13)"
    mySQL = mySQL & " VALUES "
    mySQL = mySQL & "('" & IdAgents & "','" & XDate & "','" & X13 & "')"
    CurrentDb.Execute mySQL
End Sub

تحياتي

اهلاً عزيزي..

انا لم اقل انه بأمكانك الحاق البيانات بجدول ثاني..

كنت اتكلم عن ادراج البيانات لكل جدول على حدة على شكل Sub لتقوم بإستدعاءه

[عمر ضاحى]

19 ساعات مضت, SEMO.Pa3x said:

اهلاً عزيزي..

انا لم اقل انه بأمكانك الحاق البيانات بجدول ثاني..

كنت اتكلم عن ادراج البيانات لكل جدول على حدة على شكل Sub لتقوم بإستدعاءه

اولا باشكرك على هذا المجهود الرئع 

بارك الله فيك

هل يمكننا ان تجعله يعمل ايضا مع الاستعلامات الالحاقيه

[SEMO.Pa3x]

20 ساعات مضت, عمر ضاحى said:

اولا باشكرك على هذا المجهود الرئع 

بارك الله فيك

هل يمكننا ان تجعله يعمل ايضا مع الاستعلامات الالحاقيه

ان شاء الله، ترقب النسخة الثانية.

[د.كاف يار]

كلمة مبدع قليلة جدا جدا ..

بارك الله في علمك و نفع به العباد

فعلا هنا يطلق على هذه الفكرة ابداع لا حدود له و تفكير خارج الصندوق

[abouelhassan]

سلمت يداك اخى الكريم

احترامى

[طلب اكسس]

شكرا شكرا شكرا

اداة تعمل على تسهيل و تذييل اكواد الاضافة و التحديث و الحذف

يكرهت البرمجة بسبب التعقيد لكن صبرنا و نلنا افضل اداة تاريخية في عالم البرمجة

[qathi]

بارك الله فيك استاذنا 

[ابوأسد]

اطلعت على الموضوع واحببت أن اشارك بهذا الملف الذي لا استغني عنه في تحويل كود SQL إلى VBA

SqltoVBA.mdb