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

السلام عليكم

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

اتمنى إن يكون المثال مفيد لك .

تحياتي ,،،

sample.zip

Visitor_OM مشكور اخي ولكن المقصود افس xp ليستطيع التعامل مع الاكسس يعني استطيع اغير نوع الحقل مثل رقم الى نص وغيره اوكي

والله يعطيك العافيه

(f)(f)(f)Visitor_OM(f)(f)

بسيطة أخي حول قاعدة البيانات إلى اكسس XP وغير في الكود التالي /

db.Provider = "Microsoft.Jet.OLEDB.3.51"

بحيث يصبح إلى

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

تحياتي .

Visitor_OM

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

??معليش اعضرني لني جديد

(f)(f)

kaled212@hotmail.com

السلام عليكم

معليش يا اخي لا توجد اي مشكلة فكلنا طلاب علم .

أخي الكريم افتح المثال المرفق وراجع الكود الموجود فيه راح تجد كود بهذا الشكل /

Sub ConnectDB()

'يعمل مع اكسس 97

Set db = New ADODB.Connection

'

db.CursorLocation = adUseClient

db.Provider = "Microsoft.Jet.OLEDB.3.51"

db.Open App.Path & "YourDataBase.MDB" '

'

Set adoPrimaryRS = New ADODB.Recordset

adoPrimaryRS.Open "SELECT * FROM table1", db, adOpenKeyset, adLockPessimistic

'

Set Text1.DataSource = adoPrimaryRS

Set Text2.DataSource = adoPrimaryRS

Set Text3.DataSource = adoPrimaryRS

'

Text1.DataField = "FirstName"

Text2.DataField = "LastName"

Text3.DataField = "address"

'

End Sub

لاحظ السطر الملون . ، .... ، بعدها استبدل الرقم الموجود في الطرف وهو 3.51 إلى 4.0 . انتهى

خلاص الان تستطيع الارتباط بقواعد البيانات أكسس XP .عسى أن تكون الأمور واضحة ، صحيح لا تنسى تحويل قاعدة البيانات إلى تنسيق الXP، لكي تتحقق من العملية .

تحياتي .

وعليكم السلام وتحياتي الطيبه لك

ومشكور على الشرح الواضح جداً

بس عندي 12 حقل ممكن تعلمني كيف عمليت الربط في هذه الحقول

يعني عندي الاول :الاسم والحقل الثاني: الرقم والثالث: العنوان والرابع رقم :الجوال

ممكن تشرحها

واسف

KLAED212@HOTMAIL.COM

طبيب أخي الآن أتوقع إنك قادر على الإتصال بقواعد البيانات . وهذه الخطوة الأولى أما عن طريقة الإتصال بالحقول وعرض محتوياتها فالعملية سهلة إن شاء الله .

تمعن في الكود التالي /

adoPrimaryRS.Open "SELECT * FROM table1", db, adOpenKeyset, adLockPessimistic

تعريف :

table1 هو اسم الجدول .

* اما النجمة فتعني جميع الحقول الموجودة في الجدول table1 .

طيب بعد إن تحدد الجدول المراد عرض محتوياته أو الإتصال به لغرض معالجة البيانات . تحدد الحاويات او بمعنى آخر تحدد الأدوات التي سوفا تعرض البيانات فيها . وهي في العادة تكون Text Box أو Combo .

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

حدد مصدر البيانات لل Text Box عن طريق الخاصية DataSource وعلى فرض عندك اربع حقول مثل /

Set Text1.DataSource = adoPrimaryRS

Set Text2.DataSource = adoPrimaryRS

Set Text3.DataSource = adoPrimaryRS

Set Text4.DataSource = adoPrimaryRS

بعد ذلك تحدد الحقل للTextBox طبعا لكل TextBox حقل خاص به .

'

Text1.DataField = "FirstName"

Text2.DataField = "LastName"

Text3.DataField = "address"

Text4.DataField = "Number"

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

والمعذرو أخي على الشرح البيسط لإني في حقيقة الأمر إنا والشرح خصام . على كلا إنا بالخدمة ، تحياتي .

مشكور على شرحك هذا الجيد وتمنى لك التوفيق

وانا اريح اجرب الطريقه

اخوك الباشق (f)(f)

العفوا