下面給出一個VB使用ODBC訪問ACCESS的例子，請參考：

1、首先建立一個標準的VB應用。

2、然后添加ADO對象的引用庫，在"工程"的"引用"中,添加Microsoft ActiveX Data Objects 2。5 Library庫，以便使用ADO訪問數據庫。

3、然后在FORM1中添加DATA控件。或者在代碼中直接使用SQL。

4、關鍵是連接ACCESS數據庫，最簡單可以使用ODBC的方式。使用"控制面板"的"管理工具"中的"數據源(ODBC)"工具，建立一個ODBC數據源，名字假設為"test",選擇你要的那個ACCESS數據庫，如果數據庫有密碼，在ODBC的設置界面中，有一個“高級”按鈕，可以添加上數據庫的默認授權密碼即可。

5、然后就是寫連接數據庫和相關控件中的代碼了,下面的代碼實現連接數據庫的操作。

在工程中，首先添加一個模塊，添加如下代碼：

'聲明全局ADO數據連接對象

Public conn As New adodb。Connection

'聲明一個全局函數，用以返回RECORDSET

Public Function GetRecordSet(cnnConnection As adodb。

Connection, sQry As String) As adodb。Recordset

Dim myrecord As Recordset

Set myrecord = New Recordset

myrecord。CursorType = adOpenKeyset

myrecord。

LockType = adLockOptimistic

myrecord。CursorLocation = adUseClient

myrecord。Source = sQry

Set myrecord。ActiveConnection = cnnConnection

myrecord。

Open

Set GetRecordSet = myrecord

End Function

在Form1的Load事件中，添加如下連接數據庫的代碼：

Dim strPath As String

strPath = App。Path

If Right(strPath, 1) <> "\" Then

strPath = strPath & "\"

End If

'打開ACESS數據庫

strPath = strPath & "data。

mdb"

conn。ConnectionString = "DSN=test"

conn。Open

至于在代碼中，如何使用SQL語句或者使用數據控件如何綁定數據源，查看一下VB的幫助吧，并不難。

全部

總結

以上是生活随笔為你收集整理的vb mysql 实例_vb数据库编程实例-求VB连接数据库实例我想做一个VB连接数据库的简单实例,可以实现 爱问知识人...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。