العمل على قاعدة البيانات من السي دي

والله عجيب

ما فيه حد عارف

طيب ، مش مشكلة :(

أنا عرفت بعدما جربت ، وسأجيب نفسي بنفسي

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

Set db = DBEngine.OpenDatabase(App.Path & "book.mdb", False, False, "MS Access;PWD=******")

واكتشفت إنها لازم تكون هكذا

Set db = DBEngine.OpenDatabase(Cd_Name & "book.mdb", True, True, "MS Access;PWD=*****")

شكرا لك يا مجرد إنسان :)

وبصراحة كثيرا ما أفضل السؤال في المواقع الأجنبية ، لأنهم يهتمون حتى بالجديد ، وهذه عن تجربة في أكثر من منتدى

شكرا لك يا أخ مجرد إنسان

استخدمت الكود الذي كتبته وهو

Set db = DBEngine.OpenDatabase(Cd_Name & "test.mdb", True, True, "MS Access;PWD=*****")

واذا امكن ان تكمل لى الكود اذا كانت عندي قاعدة بيانات اسمها

test.mdb

وفيها جدول اسمه Code

يحتوي على ثلاثة حقول واسمائها:

1- Title اريد ان اربطه بليست بوكس اسمها List1

2- Level اريد ان اربطه بتكست بوكس اسمه Text1

3- Description اريد ان اربطه بتكست بوكس اسمه Text2

ولك جزيل الشكر مقدما

واذا كان عندك مثال ترسله لي فجزاك الله خيرا

booknet@msn.com

إذا كانت القاعدة ما عليها باسوورد فما فيه داعي تكتب :

"MS Access;PWD=*****"

وأنت من اول في التصريحات العامة تكتب في الفورم

Dim db As Database

Dim Rs As Recordset

ثم بعد وصل القاعدة بالكود السابق اللي ذكرته لك

تكتب

Set Rs = db.OpenRecordset("select * from code ")

بعدين الباقي سهل ، حيث تضيف الحقل للست بوكس

وكذلك سائر الحقول

مثلا التكست بوكس تكتب

text1.text = "" & Rs![Level]

ومثله التكست الثاني

واللست بوكس ممكن تضيف لك بهذه الطريقة

While Not Rs.EOF

list.AddItem Rs![Title]

Rs.MoveNext

wend