下面给出一个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连接数据库的简单实例 可以实现 爱问知识人...
如果觉得《vb mysql 实例_vb数据库编程实例-求VB连接数据库实例我想做一个VB连接数据库的简单》对你有帮助,请点赞、收藏,并留下你的观点哦!