خطوه في تجهيز برامج الاكسيس للربط مع الويب
خطوه في تجهيز برامج الاكسيس للربط مع الويب منظومه الزكاه و الدخل و منظومه الضرائب و شبكات تتبع الدواء وبعض الافكار المشابه لذلك
تجهيز ملف xml
نتناول في هذا الدرس خطوه مهمه تعتبر بمثابه خطوه اولي نحوي ربط البرامج المصممه بالاكسيس بالويب ليقوم الاكسيس بارسال البيانات المحفوظه الي الويب حيث تتمثل الخطوه الاساسيه في فهم تنسيق الملف المرسل المراد ارسال البيانات عليه و الذي يحدده موقع الويب او السلفر المراد رفع البيانات اليه و طريقه الربط المراد الربط بها
ما هي لغه xml
و سوف نتناول اليوم فكره تجهيز ملف xml كخطوه اولي في تجهيز البيانات المراد ارسالها من البرنامج المصمم بالاكسيس حيث ان صيغه ملفات xml هي أيضا واحده من اللغات التي تشبه الي حد كبير لغه html و التي يمكن فهما و قرائتها بواسطه الانسان
مميزات لغه xml
الا انها في الاصل هي عباره عن لغه ويب تستخدم في وضع توصيف هيكيلي لصفات الويب و تخزين البيانات و ارسالها الي الويب بشكل منطقي منظم يستطيع الويب ان يتعامل معها و يحتفظ بها في قواعد البيانات الخاصه به و ترمز xml الي Extensible Markup Language و قد تم تطويرها من قبل World Wide Web Consortium
مفاهيم اساسيه في لغه xml
من مما سبق في تعريفنا الي لغه xml تعرفنا انها تشبه الي حد كبير لغه html
و من هنا نستطيع ان نقول ان اي وسم ستم اضافته الي الكود يجب اغلاقه نفس طريقه اغلاق كود html
فاذا قمنا بفتح وسم
<username>
جبب علينا ان نقوم باغلاق هذا الوسم بنفس فكره لغه htmlباضافه رمز /
</username>
يمكن فتح و قراءه صيغه ملفات xml من خلال اي متصفح كاي لغه ويب او يمكن استخدم اي محرر نصوص مثل notped او notped++ او اي محرر نصوص اخر
و اليوم سوف نتعرف بمثال بسيط علي كود مبسط يتم تصميمه بالاكسيس و اضافته في ملف نصي منفصل او ملف xml او ارساله بشكل مباشر دون حفظه في الجهاز
في البدايه اذا اردنا كتابه الي ملف نصي منفصل عن قاعده البيانات سوف نحتاج الي اضافه المكتبه البرمجيه Microsoft Scripting Runtime في محرر الاكواد
من خلال الضغط علي القائمه Tools ثم اختيار References ثم اختيار هذه المكتبه البرمجيه
كتابه ملف نصي منفصل بتنسيق لغه xml
الان سوف نقوم من خلال الكود في محرر اكود فجوال بيزك في الاكسيس بكتابه ملف نصي منفصل بتنسيق لغه xml
و ذلك تمهيدا لارسال الملف الي الويب و ذلك من خلال الكود البرمجي و أيضا يمكن ان يكون هذا الحدث بمجرد حفظ الفاتوره
محوظه يجب قبل البدا في كتابه هذا الكود فهم الارشادات الخاصه بالموقع المراد عمل ربط معه حتي يمكن ان يتم ارسال البيانات بشكل صحيح و استقبال التاكيد علي اتمام عمليه الارسال من خلال استقبال رساله اخري بالتفاصيل و التي سوف نستعرض أيضا بعض الافكار التي تمكنا من فهم محتوي الرساله التي تم استقبلها
خطوه في تجهيز برامج الاكسيس للربط مع الويب
مثال عملي
هذا الكود يمكن استخدامه في الربط مع شبكه تتبع الدواء في المملكه العربيه السعوديه المعروفه باسم شبكه رصد لتتبع الدواء
و التي تهدف الي عمل تتبع ما بين الشركات المصنعه و المستودعات و الصيدليات و المستهلك النهائي
Option Explicit ' Go to Tools -> References... and check "Microsoft Scripting Runtime" to be able to use Public Sub SaveTextToFile() On Error Resume Next Dim filepath As String filepath = CurrentProject.Path & "\MyTestFile.txt" Dim fso As FileSystemObject Set fso = New FileSystemObject Dim fileStream As TextStream ' Here the actual file is created and opened for write access Set fileStream = fso.CreateTextFile(filepath) ' Write something to the file fileStream.WriteLine "<qr>" Dim ID_item As String ' افتراض متغير DAO لقاعده البيانات Dim db As DAO.Database ' افتراض متغير لدوران داخل قاعده البيانات Dim rs As Recordset ' أيضا قمنا بافتراض متغيرين i , m Dim i, m As Integer Set db = CurrentDb ' أيضا قمنا بالدوان علي الحلقه التكراريه الخاصه بالفاتوره Set rs = db.OpenRecordset("Qr_code_trans2", dbOpenDynaset, dbSeeChanges) m = DCount("ID", "Qr_code_trans2") For i = 1 To m ID_item = DLookup("ProductBar", "Qr_code_trans2", "[ID] =" & [Forms]![Frm_Trans2]![IDOfTrans]) MsgBox ID_item fileStream.WriteLine "newqr:" & ID_item rs.MoveNext Next i fileStream.WriteLine "</qr>" ' لكتابه التعليمات البرمجيه داخل ملف xml fileStream.WriteLine "<username>" & "68210313000010000" & "</username>" ' اضافه كل سطر برمجي في سطر مستقل fileStream.WriteLine "<password>" & "noorjameah2030" & "</password>" fileStream.WriteLine "<activation>" & "11673456071787" & "</activation>" ' اضافه رقم الفاتوره في الوسم الخاص برقم الفاتوره fileStream.WriteLine "<invoice-id>" & "acc-500032" & "</invoice-id>" fileStream.WriteLine "<service>" & "accept" & "</service>" ' اضافه تاريخ اليوم في وسم التاريخ fileStream.WriteLine "<date>" & #5/15/2022# & "</date>" ' اضافه توكن الدخول fileStream.WriteLine "<togln>" & "0000000000000" & "</togln>" fileStream.WriteLine "<notification-folder></notification-folder>" ' اضافه سطر الاشعارات fileStream.WriteLine "<notification-folder></notification-folder>" fileStream.WriteLine "<debug-mode>" & "true" & "</debug-mode>" ' Close it, so it is not locked anymore fileStream.close ' Here is another great method of the FileSystemObject that checks if a file exists If fso.FileExists(filepath) Then MsgBox " file was created! :" & filepath End If End Sub
الربط مع الفاتوره الالكترونيه
لمزيد من الافكار البرمجيه حول طرق ارسال ملف xml باستخدام api يمكنك زياره هذا المقال من موقع مايكروسوفت
يمكن ان يعجبك أيضا اضافه شريط تحميل للنموذج في الاكسيس ProgressBar
يمكن ان يعجبك أيضا افكار برمجيه لحمايه ملف الاكسيس
تعرف أيضا علي اهم دوال يجب ان يهتم بها المحاسب في الاكسيل
very good