הוסטס - פורום אחסון האתרים הגדול בישראל - שאלה פשוטה בעבודה עם אקסס ב-VB.

- פורום תיכנות (https://hosts.co.il/forums/forumdisplay.php?f=14)

- - שאלה פשוטה בעבודה עם אקסס ב-VB. (https://hosts.co.il/forums/showthread.php?t=14995)

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

שים לב,

אני מניח שאתה מדבר על פתיחת התקשרות עם מסד נתונים אקסס ב 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

בבקשה

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

ציטוט:

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

קוד:

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.

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

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

ציטוט:

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

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

PHP קוד:


		
			
Dim DB As Database

Dim RS As Recordset

Set DB = OpenDatabase("Bkn.mdb", True, False)

Set RS = DB.OpenRecordset("select * from TableName", dbOpenDynaset)