急！！[ODBC SQL Server Driver][SQL Server]Invalid object name 'dbo.userss'.
(QTP与SQL连接并读取SQL里的字段)'定义变量
Dim con
dim conset
Dim rs
Dim sql
Dim names
Dim i
Set con=createobject("adodb.connection")
conset="DSN=xx;Description=qiau;APP=QuickTest Professional;WSID=xx;DATABASE=xx;Trusted_Connection=Yes"
con.open conset
Ifcon.state=0 Then
msgbox"failed"
else
msgbox"pass"
End If
Set rs=createobject("adodb.recordset")
sql="select names from xx"
rs.open sql,con,1,3
rs.MoveFirst
Do until rs.eof
datatable.SetCurrentRow("i+1")
datatable.value("names",global)=rs("names")
msgbox rs("names")
rs.MoveNext
i=i+1
Loop
con.close
Set con=nothing
为什么RUN后报错，内容是：Invalid object name 'dbo.userss'.
Line (31): "rs.open sql,con,1,3".
是不是因为没装ODBC的驱动？ 把 datatable.SetCurrentRow("i+1")
改为
datatable.SetCurrentRow(i+1)
后试试！ 如果还有问题，请参考http://bbs.51testing.com/viewthread.php?tid=34181 不行，还是报这个错哎 连接数据库是成功的，就是走到“rs.open sql,con,1,3”这句话时报错了 你为什么没有设置账户密码 地方呢？ 哦，那个我黏贴的时候改过了，实际是有的，连接PASS的，就是上面那句话出错
页:
[1]
