שאלה פשוטה בעבודה עם אקסס ב-VB.

[Kuchi]

א ) איזה VB אתה משתמש ?
ב ) אם זה 2005 אז מצטער אני משתמש בישן VB 6
ג ) אם אתה משתמש בישן גם אז זה אומר שחסרים לך קבצים של VB

[dgate]

שים לב,

אני מניח שאתה מדבר על פתיחת התקשרות עם מסד נתונים אקסס ב VBscript (על דפי ASP).

פתיחת התחברות למסד נתונים מסוג אקסס מתבצעת בשני שלבים:
1. הגדרת אובייקט התחברות:

Set Conn = Server.CreateObject("ADODB.Connection")

2. פתיחת התחברות עם משפט התחברות:

Conn.Open DB_ConnectionString

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

Const DB_Path = "./../db"
Const DB_Name = "dbname.mdb"
Const DB_Password = "dbpassword"
DB_ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(DB_Path & "/" & DB_Name) & "; PWD=" & DB_Password
Set Conn = Server.CreateObject("ADODB.Connection")
Dim Conn
Conn.Open DB_ConnectionString

לעולם אל תשכח בסוף הדף גם לסגור את אובייקט ההתחברות:

Conn.Close
Set Conn = Nothing

בבקשה

[Kuchi]

חחח הוא לא יודע תפקדים מה זה יעזור ?

[CSite.co.il]

נכתב במקור על ידי dgate

שים לב,

אני מניח שאתה מדבר על פתיחת התקשרות עם מסד נתונים אקסס ב VBscript (על דפי ASP).

פתיחת התחברות למסד נתונים מסוג אקסס מתבצעת בשני שלבים:
1. הגדרת אובייקט התחברות:

Set Conn = Server.CreateObject("ADODB.Connection")

2. פתיחת התחברות עם משפט התחברות:

Conn.Open DB_ConnectionString

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

Const DB_Path = "./../db"
Const DB_Name = "dbname.mdb"
Const DB_Password = "dbpassword"
DB_ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(DB_Path & "/" & DB_Name) & "; PWD=" & DB_Password
Set Conn = Server.CreateObject("ADODB.Connection")
Dim Conn
Conn.Open DB_ConnectionString

לעולם אל תשכח בסוף הדף גם לסגור את אובייקט ההתחברות:

Conn.Close
Set Conn = Nothing

בבקשה

מצטער להגיד לך, אבל הוא התכוון לvisual basic.

[Kuchi]

אבל למה אתה מצטט אותו ? איזה ספאם זה ?
תכתוב לו שזה לא זה אבל למה לצטט נשמה ? זה ממש ארוך בבקשה תערוך (חרוז)

[bestdesign]

וואו מה קורה פה חח...סה"כ ביקשתי את הקוד להתחברות לאקסס, דבר שכל מתכנת VB אמור לדעת לא ?...
ואני מתכנת VB ואני לא יודע אז שאלתי....

[Kuchi]

נכתב במקור על ידי bestdesign

וואו מה קורה פה חח...סה"כ ביקשתי את הקוד להתחברות לאקסס, דבר שכל מתכנת VB אמור לדעת לא ?...
ואני מתכנת VB ואני לא יודע אז שאלתי....

אתה רוצה רק תקוד קח

PHP קוד:

Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase("Bkn.mdb", True, False)
Set RS = DB.OpenRecordset("select * from TableName", dbOpenDynaset)