上一篇讲到了VB与数据库交互的必备知识,这张从经典实例的方向出发,讲述一些经典的代码。
1,在系统登录的例子中:
a,建立数据库连接,和执行查询命令:
'建立数据库连接
set objcn=new Connection'实例化Connection对象
objcn.ConnectionString = "Provider=Microsoft.jet.OLEDB.3.51;" & _
"Data Source =" & App.Path & "\实例1.mdb" '连接数据库,包括连接方式和数据源路径
objcn.Open
'执行查询命令,获得用户登录口令
strSQL = "select 口令 from 系统用户 where 用户名='" & UserName & "'"
Set objrs.ActiveConnection = objcn
objrs.Open (strSQL)
b,关闭数据库,释放对象:
objcn.Close
Set objrs = Nothing
Set objcn = Nothing
2.在记录浏览例子中: