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

1、首先建立一個標準的VB應(yīng)用。

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

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

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

5、然后就是寫連接數(shù)據(jù)庫和相關(guān)控件中的代碼了,下面的代碼實現(xiàn)連接數(shù)據(jù)庫的操作。

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

'聲明全局ADO數(shù)據(jù)連接對象

Public conn As New adodb。Connection

'聲明一個全局函數(shù)，用以返回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事件中，添加如下連接數(shù)據(jù)庫的代碼：

Dim strPath As String

strPath = App。Path

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

strPath = strPath & "\"

End If

'打開ACESS數(shù)據(jù)庫

strPath = strPath & "data。

mdb"

conn。ConnectionString = "DSN=test"

conn。Open

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

全部

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。