执行rs.movefist的时候提示“对象关闭时,不能执行操作”又如何解决呢?作者: ChanJian910 时间: 2009-10-9 16:28
问题已经解决,数据源的配置有问题,贴上可执行代码
'定义变量
Dim con
Dim conset
Dim rs
Dim sql
Dim names
Dim i
'建立连接
Set con=createobject("adodb.connection")
conset="SQLOLEDB.1ersist Security Info=False;User ID=saWD=1111;Data Source=datasource_gzmmis"
'/打开数据源链接
con.open conset
'查看连接是否已建立
If con.State=0 Then
msgbox"failed"
else
msgbox"pass"
End If
'建立空的记录集
Set rs=createobject("adodb.recordset")
'设置SQL语句
sql="use QTPtest select bbb from test1 where aaa='chenjian2'"
''打开记录集
rs.open sql,con,1,2
'rs.open"use QTPtest select bbb from test1 where aaa='1'",con,1,2