VB & 数据库交互（二）——经典五实例总结

    上一篇讲到了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.在记录浏览例子中：