怎样将SQL server2000查询结果读取或者用数组的方式存储

ChanJian910

Dim Cnn '//定义变量

                         Dim Rst '//定义变量

                         Dim strCnn '//定义变量
                        strCnn="rovider=SQLOLEDB.1ersist Security Info=False;User ID=saWD=1111;;Data Source=10.206.20.8" '//将获得的连接字符串赋值到


                         Set Cnn=CreateObject("ADODB.Connection")' //生成数据库连接对象
                         Set Rst=CreateObject("ADODB.Recordset")' //生成记录集对象

                         Cnn.Open strCnn '//打开数据库
                 

                        'Rst.Open "use gzcsmmis update S_USER Set realname='456'where UNAME='王强'",Cnn' //书写SQL语句
                        Rst.Open "use gzcsmmis select realname from S_USER where UNAME='王强'"

                        msgbox realname

                         'Rst.MoveFirst' //将焦点定在第一行

描述：小弟想通过select语句，将realname字段中的值取出来使用，但是发现无从下手，如果执行update语句，数据库里面字段是变了的，说明数据库链接这些是对了的，就是不知道如何操作select语句，将查询结果取出，请各位高手赐教。

[ 本帖最后由 ChanJian910 于 2009-9-29 17:18 编辑 ]

ChanJian910

原帖由 blueeagle9999 于 2009-9-30 10:17 发表
http://www.cnblogs.com/xuben/archive/2009/09/01/1558258.html

随便找个给你参考下

执行“rs.open sql,con”的时候提示test1对象无效，怎么回事儿呢？

hsjzfling

通过ADO执行sql时是无法使用use关键字的，需要在connection string中指定Initial Catalog

blueeagle9999

http://www.cnblogs.com/xuben/archive/2009/09/01/1558258.html

随便找个给你参考下

ChanJian910

哪个高手看下嘛，就是看不懂help里面的东东

wugecat

请参考QuickTest Professional Code Samples Plus 帮助文档，里面有针对数据库的方法

ChanJian910

执行select语句的报错信息如图，并求高人给出后续诸如关闭链接的代码