שלום

חיפשתי באינטרנט איך לקרוא ולכתוב למסד נתונים מסוג אקסס (מתוך אופיס xp) אבל לא מצאתי תשובה, כמו כן גם הרצתי חיפוש בפורום ושאלתי אנשים, אני תמיד קרוב אבל אף פעם לא מצליח

ההודעות שגיאה כל פעם משתנות...פעם הפורמט לא מוכר.....פעם המשתנה לא מוגדר (למרות שכן הגדרתי אותו)

בקיצור אף פעם לא מצליח

מישהו מכיר מדריך טוב שבאמת עובד? או שהוא יכול בעצמו לעזור לי???

תודה מראש לעוזרים

רועי

dr-vb.co.il

מלא מלא מלא דוגמאות.

שלום,

הנה בשלבים הדרושים:

ראשית יש להוסיף רפרנסים לפרוייקט ואותם מוסיפים כך:

Project > References...

מתוך הרשימה אתה צריך לבחור את:

Microsoft ActiveX Data Objects 2.5 Library

Microsoft DAO 3.6 Object Library

לאחר מכן צור מודל חדש וקרא לו בשם: modDB

רשום בו את הקוד הבא:

Dim objConn as ADODB.Connection


'פונקציה המחברת אותך למסד הנתונים. הפונקציה מקבלת את המסלול + שם הקובץ של מסד הנתונים
Public Function DBConnect ( sPath as string )

Set objConn = New ADODB.Connection

Dim sConnectionString as string

sConnectionString = "DBQ=" + sPath + ";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=80;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"

objConn.Open sConnectionString

End Function

עכשיו צור Form חדש וב ארוע Form_Load רשום

DBConnect ( מסלול + שם הקובץ שלך )

עכשיו התוכנה מחוברת למסד הנתונים.

כיצד מבצעים פעולות על מסד הנתונים ? פשוט, צור כפתור ו List

בכפתור תרשום:

Dim objRs as ADODB.Recordset
Dim sSQL as string

Set objRs = New ADODB.Recordset

sSQL = "Select * From [Your_Table]"

objRs.Open sSQL, objConn

Do while not objRs.EOF
 list1.additem objRs("ID")
 objRs.moveNext
loop

objRs.Close
set objRs = Nothing

הקוד הזה מוסיף לך לרשימה את ה ID של כל השורות בטבלה המבוקשת.

בהצלחה

תודה רבה! הסתדרתי!!