ตัวอย่างในบทความนี้อธิบายวิธีใช้ ADODB.Connection เพื่อเชื่อมต่อกับฐานข้อมูลการเข้าถึง เวอร์ชันประเภทไดรเวอร์คือ: Microsoft.Jet.OLEDB.4.0 ในการดำเนินการฐานข้อมูลของ VB การเชื่อมต่อกับฐานข้อมูลเป็นขั้นตอนแรกและเป็นพื้นฐานที่สุด ตัวอย่างที่อธิบายในบทความนี้มีค่าอ้างอิงที่ดีสำหรับผู้เริ่มต้นในการเรียนรู้วิธีเชื่อมต่อกับฐานข้อมูล Access ใน VB
รหัสการใช้งานเฉพาะมีดังนี้:
เวอร์ชัน 5.00Begin VB.Form Operation Database Caption = "ฐานข้อมูลการดำเนินงาน VB" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = แอตทริบิวต์ "ฐานข้อมูลการดำเนินงาน" VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Dim Database As ObjectSet Database = New ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") ' เชื่อมต่อกับฐานข้อมูลถ้า ((database.State) = (adStateOpen)) จากนั้น MsgBox ("การเชื่อมต่อสำเร็จ!") อื่น MsgBox ("การเชื่อมต่อล้มเหลว!") สิ้นสุดถ้าฐานข้อมูลฐานข้อมูล CloseSet = NothingEnd Subตัวอย่างนี้สร้างวัตถุ ADODB.Connection ใหม่ชื่อ "ฐานข้อมูล" ใช้วัตถุนี้เพื่อเชื่อมต่อกับฐานข้อมูล หลังจากการเชื่อมต่อสำเร็จ กล่องข้อความจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบถึงผลการเชื่อมต่อ ในกรณีส่วนใหญ่ VB และฐานข้อมูล โดยพื้นฐานแล้วการเชื่อมต่อ Access2003 จะเป็นเช่นนี้ โปรดวางฐานข้อมูลทดสอบไว้ในไดเร็กทอรีเดียวกันกับ Data.mdb ซึ่งสามารถแก้ไขได้ตามเส้นทางฐานข้อมูลจริงของคุณ