Visual Basic 程序设计教程第13章 数据库操作及编程.pptVIP

5、更新记录  ? 5、更新记录 使用Recordset 对象来完成Update 操作。 rs.Close 关闭之前建立的结果集?打开新的结果集，具有写操作权限 rs.Open Customers,cn,adOpenDynamic,adLockOptimistic,adCmdTable rs.MoveFirst 虽无必要，但可能是一个良好的习惯 rs!sname=李淘 对相应字段赋予新值 rs.Update 真正更新到物理数据库中 除了Update 以外，写操作还包括AddNew(添加一条新记录)和Delete(删除一条新记录)。另外，Recordset 支持批处理，但这些特征需要由低层的OLE DB Provider 支持。当写操作出现错误时，可根据错误描述(访问ADO 的Error 或Visual Basic 的Err 对象)来判断原因。另一个需要注意的是，当使用Recordset 对象完成写操作时，需要预先指定Recordset 对象实例非只读。 6、收尾工作  ? 6、收尾工作 在这个阶段应该显式的释放相应的资源，如果不做的话，通常Visual Basic 会自动释放和回收资源。代码如下： rs.Close 关闭记录集 Set rs = Nothing 释放记录集占有的资源 Set cmd = Nothing 释放命令对象占有的资源 cn.Close 关闭连接对象 Set cn = Nothing 释放连接对象占有的资源 ADO的灵活性还体现在，ADO 的Connection 对象或Command对象的Execute 方法能直接递交SQL命令到数据源，由数据源直接执行。能递交的命令主要包括：CREATE TABLE等数据定义命令、DELETE、INSERT、UPDATE、数据库存储过程名等。如： cmd.CommandText =drop table student 指定SQL 命令 Set rs = cmd.Execute 递交并执行drop table student命令，删除student表。 13.6.2 基于ADO数据对象编程举例 ? [例13-11] 利用ADO数据对象，采用编程方式在网格中显示js表，实现原要用ADO控件才能实现的功能。新建一VB窗体Form4，在窗体上放置DataGrid数据网格控件与一Command命令按钮。主要属性设置如下表13-3： 对象 属性 设置值 form4 Name form4 DataGrid1 AllowAddNew True ? AllowDelete True ? AllowUpdate True Command1 Caption 可更新显示教师表 表13-3 属性表 图13-34 运行效果 ? 图13-34 运行效果 13.6.2 基于ADO数据对象编程举例 ? [例13-12] 在[例13-11]的基础上，作少许修改能设计出交互式SQL命令执行窗。修改后的窗体运行后如下图13-35： 图13-35 运行效果 13.6.2 基于ADO数据对象编程举例 ? 表13-4 属性表 对象 属性 设置值 frmadocode Name frmadocode(窗体名) DataGrid1 Name DataGrid1 Text1 Text select * from js Text2 Text update js set 姓名=刘莉 where 工号=ID004 RunSelect Name RunSelect(命令按钮名) ? Caption SQL命令直接运行(select或返回值的存储过程名) RunSqls name RunSqls(命令按钮名) ? Caption SQL命令直接运行(insert、delete、update或存储过程名) 13.6.2 基于ADO数据对象编程举例 ? Private Sub RunSelect_Click() Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset On Error GoTo RunSQL_Error Set cn = New ADODB.Connection cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=js.mdb cn.Open cmd.ActiveConnection = cn cmd.CommandType = adCmdText cmd.CommandText = T