数据库连接代码解释

数据库连接代码解释

On Error GoTo errout:

'下面的代码出错则跳转到errout

Dim cnn As ADODB.Connection

'定义一个数据库连接对象

Dim rst As ADODB.Recordset

'定义一个记录集对象

Set cnn = New ADODB.Connection

'让cnn新建一个数据库连接

cnn.Open Module1.ConnectString

'打开连接，连接字符串为Module1.ConnectString

Sql = "select * from 用户信息"

'将一个SQL查询语句存储在变量Sql中

Set rst = cnn.Execute(Sql)

'执行查询，将查询结果存储到记录集rst中

Set con = New ADODB.Connection 'con为ADODB的数据库连接

Set rs = New ADODB.Recordset 'rs为ADODB的记录集

con.CursorLocation = adUseClient '设置连接为用户独占方式

con.Open "Provider=Microsoft.Jet.OLEDB.3.51;

Data Source=" & App.Path & "\dbnew.mdb;Persist Security Info=False" '设置数据库连接字符串

Select Case Cmbcjtj.Text' 做一个SELECT 选取Cmbcjtj.Text中的值,后面应该还有CASE***... 和end SELECT 配合

Set con = New ADODB.Connection '实例化connection对象,

Set rs = New ADODB.Recordset '实例化recordset记录集对象

con.CursorLocation = adUseClient '设置游标为客户端游标

con.Open "Provider=Microsoft.Jet.OLEDB.3.51;

Data Source=" & App.Path & "\dbnew.mdb;Persist Security Info=False"

'数据库连接语句,是连接的access2000以下的数据库,连接access2000及以上OLEDB应该是用4.0

If (Trim(Cmbcxfs.Text) = "报警日期") Then

'这个判断不用说了吧,根据条件选择执行的sql语句

sql = "select * from 处警分析where 报警日期=#" + Trim(Txtlr.Text) + "#" ElseIf (Trim(Cmbcxfs.Text) = "全部") Then

sql = "select * from 处警分析"

Else

sql = "select * from 处警分析where " + Trim(Cmbcxfs.Text) + "='" + Trim(Txtlr.Text)+"'"

End If