أريد كود الانتقال من جدول لآخر في قاعدة البيانات

أهلاُ اخي إياس

كيف حالك أتمنا ان تكون بصحة جيدة :

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

لو كنت طلبتها بـ Ado لكنت ساعدتك .

كل عام وانت بخير

راجع هذا الرابط :

http://www.codecomments.com/archive346-2005-8-536312.html

ما مشكلة أخي فواز Ado مثل ما بدك يعني هو ما في فرق كبير ..أقصد من حيث التعامل

يا جماعة الرجل ينتظركم ..السؤال ليس لي..أريد الكود ..

يا جماعة والله لولا العازة لم أدخل قسم الVb6 لأنه كل مرة يصحل ذلك..

يا أخي لماذا أنتم لستم متعاونون مثل قسم ++C أو vb.net

:lol:

الرجل يتنظر

على فكرة ألم يقولوا لكم بأني لا أعرف اليأس :lol:

فعلاُ إياس لا يعرف اليأس :

أخي اياس ايضا على السريع :

سوف استخدم Ado ولكن كود وباستخادم SQL

لاتعامل معها لابد من تنزيل المكتبة الخاصة بها كما يلي :

من قائمة Project اختار References ابحث من القائمة التي ستضهر عن :

Microsoft ActiveX Data Objects 2.X Library

بعد ذلك قم بوضع علامة صح امامها ثم زر OK

لكي نعمل اتصال نعرف متغير كما يلي في قسم التصريحات العامة (اعلى الصفحة) :

Dim db As New ADODB.Connection

في حدث Form_Load

db.Provider = "Microsoft.JET.OLEDB.4.0؛"
db.Open App.Path & "\db1.mdb"

هنا اسم قاعدة البيانات db1.mdb وهي موجودة على نفس مسار البرنامج App.Path

في اي زر تريد لللإتصال بالجداول :

Dim Sql As String 
Sql = "SELECT table1.name,table2.name,table3.name FROM table1,table2,table3"

rs.Open Sql, db, adOpenStatic, adLockReadOnly

تمثل table1.name في الإستعلام اسم الجدول الذي تود ان تستعلم منه طبعا name يعني اسم الحقل الذي تود ان يضهر . From يأتي بعدها اسماء الجداول الي تم استخدامها في الإستعلام واعتقد انك فاهم SQl

لوضع الحقل في تكست:

Text1.text = rs.Fields(0).Value
Text2.text = rs.Fields(1).Value
.
.
.

للمزيد من المعلومات حول التعامل مع Ado راجع الرابط التالي :

/index.ph...واعد+بيانات+Ado

بالتوفيق.

شكرا لك أخي الكريم فواز ..على التوضيح الرائع ...لكن المشكلة أن الكود SQL و هو طالب Access ..و انت تعلم أن لا خبرة لدي في قواعد البيانات ..خصوصا في الربط بالكود ..لذلك ربما سأتلبك فيه قليلا..