10bet网址
MySQL连接器/ODBC开发人员指南
相关的文档10bet官方网站 本手册下载
PDF (Ltr)- 1.7 mb
PDF (A4)- 1.7 mb


6.7.1.3 RDO:rs.addNew而且rs.update

下面以RDO(远程数据对象)为例创建一个表my_rdo并演示了rs.addNew而且rs.update

Dim rs As rdoResultset Dim cn As New rdoConnection Dim cl As rdoColumn Dim SQL As String 'cn。Connect = "DSN=test;"Connect = "DRIVER={MySQL ODBC 3.51 DRIVER};"_ &“服务器=主机;“_ &”数据库=测试;“_ &“UID =举止文雅;PWD =举止文雅;选择cn = 3”。CursorDriver = rdUseOdbc cn。established connection rdDriverPrompt 'drop table my_rdo SQL = "drop table if exists my_rdo" cn。执行SQL, rdExecDirect '创建表my_rdo SQL = "创建表my_rdo(id int, name varchar(20))" cn。执行SQL, rdExecDirect 'insert -直接SQL = "插入my_rdo值(100,'venu')" cn。执行SQL, rdExecDirect SQL = "insert into my_rdo values (200,'MySQL')" cn。执行SQL, rdExecDirect 'rs insert SQL = "select * from my_rdo"设置rs = cn。(SQL, rdOpenStatic, rdConcurRowVer, rdExecDirect) rs. addnew rs!Id = 300卢比!rs. update rs. close 'rs insert SQL = "select * from my_rdo" Set rs = cn。(SQL, rdOpenStatic, rdConcurRowVer, rdExecDirect) rs. addnew rs!Id = 400卢比!rs. update rs. close 'rs update SQL = "select * from my_rdo"设置rs = cn。(SQL, rdOpenStatic, rdConcurRowVer, rdExecDirect) rs. edit rs!Id = 999 rs!Name = "updated" rs.Update rs.Close 'fetch back... SQL = "select * from my_rdo" Set rs = cn.OpenResultset(SQL, rdOpenStatic, rdConcurRowVer, rdExecDirect) Do Until rs.EOF For Each cl In rs.rdoColumns Debug.Print cl.Value, Next rs.MoveNext Debug.Print Loop Debug.Print "Row count="; rs.RowCount 'close rs.Close cn.Close End Sub