ADO对象的常用操作

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)    . 调用RecordsetOpen方法,此时要求有一个打开的连接,如果没有则报错

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()

 

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值