--NOTE: If your computer does not c

--NOTE: If your computer does not come with database drivers, you must first
--install the 32-bit Microsoft Access drivers.


--************************************************************************
--First, attempt to open a connection to this database as a DSN connection
--This will work if the student.mdb file has been set up as a 32-bit
--Microsoft Access data source.
--The data source should be named Students Database or change its value
--in the lines below.

-- Open a connection to an ODBC data source.
DB_DatabaseName:="Students Database"
--Clear any error messages that might be in the error variable
DB_ODBCError:=""
--Open a handle to the data source. Pass the Authorware window handle, the variable you want to use for error messages, the data source
--name, the database user name, and the password if any.
DB_ODBCHandle := ODBCOpen(WindowHandle,"DB_ODBCError",DB_DatabaseName,"admin","")


--************************************************************************
--check to see if that was successful. If not, open a DSNless connection
--to the database (assumes the database is in the same directory as this file)

if DB_ODBCHandle=0 then
--create a connection string
--Connection strings vary depending on your database type.
--For more on connection strings, visit
--http://www.able-consulting.com/ADO_Conn.htm

DB_ODBCpath := FileLocation^"student.mdb"
DB_ODBCuser := "Admin"
DB_ODBCpwd := ""
DB_ODBCdriver := "Driver={Microsoft Access Driver (*.mdb)};"
DB_ODBCconnect := DB_ODBCdriver
DB_ODBCconnect := DB_ODBCconnect^"DBQ="^DB_ODBCpath^";"
DB_ODBCconnect := DB_ODBCconnect ^ "UID=" ^ DB_ODBCuser ^ ";"
DB_ODBCconnect := DB_ODBCconnect ^ "PWD=" ^ DB_ODBCpwd ^ ";"
--connect using the connection string
DB_ODBCHandle := ODBCOpenDynamic(WindowHandle, "DB_ODBCError", DB_ODBCconnect)
end if

ผลลัพธ์ (ไทย) 1:

-หมายเหตุ: ถ้าคอมพิวเตอร์ของคุณไม่มีโปรแกรมควบคุมฐานข้อมูล คุณต้อง-ติดตั้งโปรแกรมควบคุม Microsoft Access 32 บิต--************************************************************************-ก่อนอื่น พยายามเปิดการเชื่อมต่อกับฐานข้อมูลนี้เป็นการเชื่อมต่อ DSN-นี้จะทำงานถ้าแฟ้ม student.mdb ถูกตั้งเป็น 32 บิต-แหล่งข้อมูล Microsoft Access-แหล่งข้อมูลควรมีการตั้งชื่อฐานข้อมูลนักเรียน หรือเปลี่ยนค่าของ-ในบรรทัดด้านล่าง-เปิดการเชื่อมต่อกับแหล่งข้อมูล ODBCDB_DatabaseName: = "ฐานข้อมูลนักเรียน"-ลบข้อผิดพลาดที่อาจอยู่ในตัวแปรข้อผิดพลาดDB_ODBCError: = ""-เปิดหมายเลขอ้างอิงกับแหล่งข้อมูล ผ่านมือจับหน้าต่าง Authorware ตัวแปรที่คุณต้องการใช้สำหรับข้อความข้อผิดพลาด แหล่งข้อมูล-ชื่อ ชื่อผู้ใช้ฐานข้อมูล และรหัสผ่านถ้ามีการDB_ODBCHandle: = ODBCOpen(WindowHandle,"DB_ODBCError",DB_DatabaseName,"admin","")--************************************************************************-ตรวจสอบเพื่อดูถ้าที่ประสบความสำเร็จ ถ้า ไม่ได้ เปิดการเชื่อมต่อแบบ DSNless-ฐานข้อมูล (ถือเป็นฐานข้อมูลในไดเรกทอรีเดียวกันเป็นแฟ้มนี้)ถ้า DB_ODBCHandle = 0 แล้ว -สร้างสายอักขระการเชื่อมต่อ -เชื่อมต่อสตริงที่แตกต่างกันไปขึ้นอยู่กับชนิดของฐานข้อมูล -สำหรับข้อมูลเพิ่มเติมเกี่ยวกับสตริงการเชื่อมต่อ -http://www.able-consulting.com/ADO_Conn.htm DB_ODBCpath: = FileLocation^"student.mdb " DB_ODBCuser: = "Admin" DB_ODBCpwd: = "" DB_ODBCdriver: = "โปรแกรมควบคุม = {Microsoft Access โปรแกรมควบคุม (*.mdb) }; " DB_ODBCconnect: = DB_ODBCdriver DB_ODBCconnect: = DB_ODBCconnect ^ " DBQ =" ^ DB_ODBCpath ^ DB_ODBCconnect: = DB_ODBCconnect ^ " UID =" ^ DB_ODBCuser ^ DB_ODBCconnect: = DB_ODBCconnect ^ " PWD =" ^ DB_ODBCpwd ^ -เชื่อมต่อโดยใช้สายอักขระการเชื่อมต่อ DB_ODBCHandle: = ODBCOpenDynamic (WindowHandle, "DB_ODBCError", DB_ODBCconnect)สิ้นสุดถ้า

ผลลัพธ์ (ไทย) 2:

--NOTE: ถ้าคอมพิวเตอร์ของคุณไม่ได้มาพร้อมกับไดรเวอร์ฐานข้อมูลคุณต้อง
--install โปรแกรมควบคุม 32 บิต Microsoft Access. - ******************** ************************************************** ** --First, พยายามที่จะเปิดการเชื่อมต่อฐานข้อมูลนี้เป็นการเชื่อมต่อ DSN --This จะทำงานถ้าไฟล์ student.mdb ได้รับการจัดตั้งขึ้นเป็น 32 บิตการเข้าถึงแหล่งข้อมูล --Microsoft. --The แหล่งข้อมูล ควรตั้งชื่อฐานข้อมูลนักศึกษาหรือเปลี่ยนค่าของ--in เส้นด้านล่าง. - เปิดการเชื่อมต่อกับแหล่งข้อมูล ODBC. DB_DatabaseName = "นักศึกษาฐานข้อมูล" --Clear ข้อความผิดพลาดใด ๆ ที่อาจจะอยู่ในตัวแปรข้อผิดพลาดDB_ODBCError = "" --Open จับไปยังแหล่งข้อมูล ผ่านหน้าต่างจัดการ Authorware ตัวแปรที่คุณต้องการที่จะใช้สำหรับข้อความผิดพลาดแหล่งข้อมูล--name ชื่อผู้ใช้ฐานข้อมูลและรหัสผ่านถ้ามี. DB_ODBCHandle = เพื่อดูว่าที่ประสบความสำเร็จ ถ้าไม่เปิดการเชื่อมต่อ DSNless --to ฐานข้อมูล (สมมติฐานข้อมูลอยู่ในไดเรกทอรีเดียวกันเป็นไฟล์นี้) ถ้า DB_ODBCHandle = 0 แล้ว--create สตริงการเชื่อมต่อสาย --Connection แตกต่างกันไปขึ้นอยู่กับชนิดของฐานข้อมูลของคุณ. --For เพิ่มเติมเกี่ยวกับสตริงการเชื่อมต่อแวะ--http: //www.able-consulting.com/ADO_Conn.htm DB_ODBCpath = FileLocation ^ "student.mdb" DB_ODBCuser = "ผู้ดูแลระบบ" DB_ODBCpwd: = "" DB_ODBCdriver = "คนขับรถ = {ไดร์เวอร์ Microsoft Access (* .mdb)}; " DB_ODBCconnect = DB_ODBCdriver DB_ODBCconnect = DB_ODBCconnect ^ "DBQ =" ^ ^ DB_ODBCpath ";" DB_ODBCconnect = DB_ODBCconnect ^ "โพสต์ =" ^ ^ DB_ODBCuser ";" DB_ODBCconnect = DB_ODBCconnect ^ "PWD =" ^ ^ DB_ODBCpwd ";" --connect ใช้สายเชื่อมต่อDB_ODBCHandle = ODBCOpenDynamic (WindowHandle "DB_ODBCError" DB_ODBCconnect) สิ้นสุดหาก

ผลลัพธ์ (ไทย) 3:

-- หมายเหตุ : หากคอมพิวเตอร์ของคุณไม่ได้มาด้วยไดรเวอร์ฐานข้อมูล คุณต้องแรก
-- ติดตั้งไดรเวอร์ 32 บิตการเข้าถึงของ Microsoft .

--

-- ************************************************************************ แรกพยายามเปิดการเชื่อมต่อไปยังฐานข้อมูลนี้เป็น DSN การเชื่อมต่อ
-- นี้จะทำงานถ้าไฟล์ student.mdb ถูกตั้งค่าเป็น 32 บิต
-- Microsoft Access
แหล่งข้อมูล-- แหล่งข้อมูลควรจะชื่อ ฐานข้อมูลนักเรียน หรือเปลี่ยนค่า
. . ในบรรทัดด้านล่าง .

-- เปิดการเชื่อมต่อไปยังแหล่งข้อมูล ODBC .
db_databasename : = " นักเรียนฐานข้อมูล "
-- ล้างข้อความผิดพลาดใด ๆที่อาจเป็นข้อผิดพลาดของตัวแปร db_odbcerror : = " "

-- เปิดจัดการ ไปยังแหล่งข้อมูล ผ่านทางหน้าต่างโปรแกรม Authorware จัดการกับตัวแปรที่คุณต้องการใช้สำหรับข้อความแสดงข้อผิดพลาดแหล่งข้อมูล
-- ชื่อ ฐานข้อมูล ชื่อผู้ใช้ และรหัสผ่าน ถ้าใด ๆ .
db_odbchandle : = odbcopen ( windowhandle " db_odbcerror " db_databasename " ผู้ดูแลระบบ " , " " )

-- ************************************************************************
-- ตรวจสอบเพื่อดูถ้ามันประสบความสำเร็จ ถ้าไม่เปิด dsnless
-- การเชื่อมต่อกับฐานข้อมูล ( ถือว่าฐานข้อมูลในไดเรกทอรีเดียวกันเป็นแฟ้มนี้ )


ถ้า db_odbchandle = 0 แล้ว- สร้างการเชื่อมต่อสตริง
-- การเชื่อมต่อสตริงที่แตกต่างกันไปขึ้นอยู่กับชนิดของฐานข้อมูลของคุณ .
-- สำหรับข้อมูลเพิ่มเติมเกี่ยวกับสายเชื่อมต่อเยี่ยมชม
-- http : / / www.able-consulting . com / ado_conn . htm

db_odbcpath : = นักเรียน filelocation
"
db_odbcuser MDB " : = " Admin " = " "

db_odbcpwd : db_odbcdriver : = " ไดรเวอร์ไดรเวอร์ = { Microsoft Access ( * . mdb ) } ; "
db_odbcconnect : =

= db_odbcconnect db_odbcdriver db_odbcconnect :" db_odbcpath dbq = "

" "
db_odbcconnect : = db_odbcconnect
" uid = " db_odbcuser

" ; "

" db_odbcconnect : = db_odbcconnect db_odbcpwd PWD = "

" ; "
-- เชื่อมต่อเชื่อมต่อสาย
db_odbchandle : = odbcopendynamic ( windowhandle " db_odbcerror " db_odbcconnect )
สุดท้ายถ้า