الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط الفيجول بالاكسس؟؟

بدأه اتعلم لأ اعلم في 10 مارس 2012 · 5 رد · 658 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخوتي :)

بالبدايه انا مبرمجه مبتدئه نوعا ما

ولدي تساؤلات ارغب الاجابه منكم

انا بعمل برنامج وظيفته يفتح صفحه كعقد على سبيل المثال لتعبئه بيانات ومن ثم يطبعها

اسئلتي..؟

1ّّ\كيف اربط بين الاكسس والفيجول؟

2ّ\كيف اطبع عناصر الفروم من بيانات وجدوال؟

3\بعد الانتهاء من البرنامج وحفظه هل هناك طريقه معينه لتثبيته على جهاز اخر

عن تجاربي مسبقا تاتي بصياغه برنامج محمول :S هل في غير هذه الصيغه بحيث تاتي تثبيت مثل البرامج المعتاده؟

وبالنهايه لكم ودي :blush:

#2

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

أولا لربط البرنامج بقاعدة البيانات يلزمنا التالي :-

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

2- وضع كود الربط و عادتاً يكتب في Module على الشكل التالي

Public dbaseConn As ADODB.Connection

و يوضع في قسم Sub Main() الكود التالي

Set dbaseConn = New ADODB.Connection

dbaseConn.Provider = "Microsoft.Jet.OLEDB.4.0"

dbaseConn.Properties("Data Source") = "" & App.Path & "\DataBase Name.mdb"

dbaseConn.Properties("Jet OLEDB:Database Password") = ""

dbaseConn.Open

Form1.Show vbModal

تم تعديل هذه المشاركة بواسطة dark_man في 10 مارس 2012 في 15:33

#3

وضح اكثرر

#4

أولا : للربط بين الفيجوال بيزك و الاكسس كقاعدة بيانات يجب مراعاة :

1) قاعدة البيانات .. نفترض انها Access 2003 و سنستخدم تكنولوجيا Ado 2.8 بناء عليه يجب استدعاء المكتبه من :

Project - Preferences - Microsoft Ado 2.8

اذا فى منطقة General Declaration نضع الكود الاتى

Option Explicit

dim CN as New AdoDB.Connection

و فى حدث الـ FORM_Load نكتب كود التوصيل "بافتراض ان قاعدة البيانات اسمها "AB" و موجوده فى نفس الفولدر الموجود به البرنامج"

If CN.state = 1 then cn .close

cn.open "Provider = Microsoft.Jet.OleDB.4.0 ; Data Source = " & app.path & "/AB.Mdb"

ثم نجرب كود التوصيل عن طريق تشغيل البرنامج ... اذا فتحت الفورم اذا لا يوجد مشكله ... اذا ظهرت رساله خطأ اكتبى نصها هنا !!!

هناك طرق عديده للتعامل مع الأكسس كقاعدة بيانات .....

يمكنك ايضا القراءه هنا و هنا و هنا

1

Visit Me personally
Visit My Facebook VB Page

فى انتظار تعليقاتكم و اسئلتكم على
Evry1falls (Visual Basic) Plus+

 

 

#5

مشكووور ماقصررت

#6

أى خدمه و بالتوفيق ان شاء الله و تجدين فى الموضوعات المثبته فى المنتدى فى قسم الفيجوال بيزك كتب و مشروعات هامه جدا تفيدك كمبرمجه

Visit Me personally
Visit My Facebook VB Page

فى انتظار تعليقاتكم و اسئلتكم على
Evry1falls (Visual Basic) Plus+

 

 

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…