إخوتي الكرام

اخي تفضل هذا الرابط به الاجابه عن سؤالك كـــل ما يخص الربط عن طريق ADO للاخ هيثم القلاف

مشكور اخوي لكن انا كنت راجعت هذا الرابط قبل كدى

وهو بيتكلم عن مكتبة microsoft active x data objects

وانا ابغى microsoft Ado Data Control ,version 6.0

كيف يتم ربطها عن طريق الكود بدلاً من الخصائص

انا لست خبير في الفيجول بيسك .. وكما انني لم افهم سؤالك بالضبط .. لكني ساضع جوابي واذا كان هذا ما تريد ؟ فهو لك .. واذا كان (لا) فحاول توضيح السؤال اكثر .. لاني كما قلت لك لم افهم سؤالك ولست خبير فيجول بيسك ايضا .

General declaration

Dim myWs As Workspace

Dim myDb As Database

Dim myTd As TableDef

Dim myFields(3) As Field

Sub Form_Lod()

Set myWs=DbEngine.Workspaces(0)

Set myDb=myWs.CreateDatabase("c:\Ansi\databasefilename.mdb",dbLangGeneral)

Set myTd=MyDb.CreateTableDef("Tablename")

Set myFields(0)=myTd.CreateField("name",dbText,20)

Set myFields(1)=myTd.CreateField("Phone Number",dbInteger)

Set myFields(2)=myTd.CreateField("Date",dbDate)

myTd.Fields.Append myFields(0)

myTd.Fields.Append myFields(1)

myTd.Fields.Append myFields(2)

MyDb.TableDefs.Append myTd

MsgBox"Database Created"

End Sub

ارجو ان يكون هذا سؤالك .. واذا في تقصير مني .. او ان جوابي في وادي وسالك في وادي فانا اعتذر مقدما .

شكراً على إهتمامك اخوي {

انا عملت برنامج محاسبي كويس وربط قاعة البيانات باداة ربط قواعد البيانات microsoft Ado Data Control ,version 6.0

اختصاراً adodc1

لكن امشكله انوا انا رابط قاعدة البيانات عن طريق الخصائص خصائص الأداه ولم اربطها عن طريق الكود

فياريت اذا كنت تعرف ربط هذه الأداه عن طريق الكود تساعدني لاني انا فتشت في المنتدى وفي مواقع اخرى وكلهم يتكلمون عن ربط

microsoft active x data objects اختصاراً adodc او عن طريق مكتبة الDAO وانا لااريد ذلك

وشكراً

اخوي ANSI

انت معاي اظن الشرح واضح

افهم من سؤالك انك عاوز تربط قاعدة البيانات باكواد داخل البرنامج .. وليس عن طريق الخصائص ..

نعم هذا المقصود

طيب اخي .. انا لم اكمل المثال السابق .. حيث اني اردت ان اعلم ان كنت تريد تلك لطريقه ام لا ..

حيث لو لاحظة اني قمت بانشاء قاعدت بيانات بستخدام الاكواد داخل البرنامج .. ولم استخدم الخصائص ..

اذا كان هذا ما تريده بالضبط فاخبرني وانا اكمل البرنامج .

انا لدي قاعدة بيانات جاهزه

ومرتبطه بلبرنامج

لكن الربط الذي استعملته عن طريق adodc1 ومن خصائص هذه الأداه تم الربط من الخاصيه custom تم ربط قاعدة البيانات

وانا اريد الغاء هذا الربط بلخصائص واستبداله عن طريق كتابة الكود لربط لنفس الأداة وليس لأداة ربط اخرى

ارجو ان يقوم احد خبراء الفيجول بيسك بمساعدتك .

فانا عجزت عن عمل اي شيئ ..

ارجو لك التوفيق اخي ..

مشكور اخوي ANSI بس اسمع ممكن تكملي الكود السابق الي اديتني اياه وتشرحلي شوي هذا الكود مع العلم اني حاولت

تطبيقه ولم ينجح واعطاني رسالة خطأ عند اول سطر General declaration

وهذا من باب الفائده ليس إلا

وشكراً

من الطبيعي ان تحصل على خطاء .. لاني كما قلت لك .. البرنامج ناقص ..

وكتابت الكود يحتاج مني وقت .. وانا لدي محاضره بعد ساعه .. ..

ولكني اعدك ان اكمل البرنامج لك اليوم ان شاء الله . . ومع الشرح .. ولكن سيكون هذا في وقت لاحق .. ارجو منك المعذرة

طيب جميل

انا مستني منك الرد

بتوفيق

السلام عليكم

أخي الحيوتي للربط بإستخدام الكود إستخدم الكود التالي

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Tel\System.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Select * From Table1"
Adodc1.Refresh

مع مراعاة تغيير إسم الجدول وإمتداد قاعدة البيانات على حسب الموجوده في جهازك

وإذا كانت قاعدة البيانات تحتوي على كلمة مرور فالربط يكون بالطريقه التاليه

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Tel\System.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"
Adodc1.RecordSource = "Select * From Table1"
Adodc1.Refresh

مشكور اخوي

الكود جداً جميل

بس كما تلاحظ الكود يعطي مساراً محدداً لقاعدة البيانات وانا لا اريد تحديد مسار لقاعدة البيانات واريدها ان تكون ضمن المسار الذي سوف ينزل فيه البرنامج app.path

أكره أن أقوم بإغلاق الموضوع بعد كل هذا الكم من المشاركات ..

ولكن نرجو التقيد بقوانين المنتدى ..

يجب أن يكون عنوان الموضوع دالاً على المحتوى ..

جزاك الله عنا الف خير اخ عبدالله فتحي

تفضل هذا ما وعدتك به .

وانااسف على التاخير..

النت كان تعبان مرة .

مثال.zip