qtp链接sql问题

blueeye1

vbscript代码是用来检测数据库链接是否成功，连接的是本地数据库，数据源名称是‘.’
'connect the database
dim conset
dim con
set con = CreateObject("ADODB.Connection")
set conset=" Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False;Initial Catalog=lrm"
con.open conset
if con.state=0 then
msgbox"failed"
else
msgbox"pass"
end if
运行提示缺少对象: '[string: "Provider=SQLOLEDB.1;"]'，但是我用database checkpoint 中的specify sql statement menu可以搜到数据库的数据
新人求教

lyscser

我没说过话

blueeye1

这。。。。