1. 建立连接
1) 定义一个Connection对象,并通过New进行实例化
2) 为连接字符串CommmandString赋值
3) 调用连接的Open方法,这样就建立了一个连接
4) 不使用连接的时候,调用close方法关闭连接
Dim Cnn As Connection '定义一个连接对象
Set Cnn = New Connection '实例化连接对象
Cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;Initial Catalog=实例1;Data Source=XDP-PC"
Cnn.Open ‘打开连接
... ...
Cnn.Close ‘关闭连接
2. 建立数据记录集
1) . 定义一个Recordset记录集,通过New进行实例化
2) . 设定CursorLocation的值
3) . 调用Recordset的Open方法,此时要求有一个打开的连接,如果没有则报错
Dim Rs As Recordset '定义一个记录Rs
Set rx = New Recordset '实例化记录集
Rs.CursorLocation = adUseClient ‘指定为客户端记录集
'打开记录集,要求有一个打开的连接Cnn,打开数据库中指定的表
Rs.Open "select * from 系统用户", Cnn, adOpenDynamic, adLockBatchOptimistic
3. 记录的操作
1) 添加,使用AddNew方法,添加之后再更新
Rs.AddNew '添加新记录
Rs.Fields("学号") = txtStuNo.Text
Rs.Fields("姓名") = txtStuName.Text
Rs.Update
2) 修改、删除记录,先查到对应的记录再执行相应的操作
Rs.Find ("学号='10101'")
Rs.Fields("姓名") = txtStuName.Text
Rs.Fields("住址") = txtStuAddr.Text
Rs.Update
4. 数据查询
1) 创建Command对象,使用?作为SELECT语句中的查询参数,设置Command对象的CommandText属性和CommandType属性
2) 使用Command对象CreateParameter方法创建参数,然后将其添加到Command对象的Parameters集合中
3) 设置查询参数的值
4) 执行Command对象的Execute方法完成查询
'实例化一个Command命令对象
Dim objCmd As Command
Set objCmd = New Command
Set objCmd.ActiveConnection = Cnn ' 命令对象连接指定的数据库
With objCmd
.CommandText = "select * from 系统用户 where 用户名 like ? and 身份 like ?"
.CommandType = adCmdText
End With
'为Command对象创建参数、
Dim Parm As New Parameter
Set Parm = objCmd.CreateParameter("用户名", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
Set Parm = objCmd.CreateParameter("身份", adVarChar, adParamInput, 10)
objCmd.Parameters.Append Parm
'获取查询的参数
objCmd("用户名") = "%" & txtUser & "%"
objCmd("身份") = "%" & txtstatus & "%"
'执行查询,获取查询结果记录集
Set objRs = objCmd.Execute()