结果集不能取到多条

Question

我在用vba是用rs= conn.Execute("select TXT_COLOR_KEY from dbo.TBL_COLOR ", intRe)的到的结果集，为什么re.movenext命令报错，intRe的值为-1，而我在sqlserver中执行select TXT_COLOR_KEY from dbo.TBL_COLOR有多条纪录。是我的Execute方法参数不对？还是应该用别的方法得到结果集。请指教

Answer 1

rs= conn.Execute("select TXT_COLOR_KEY from dbo.TBL_COLOR ", intRe)改成下面的语句试试：if rs.state=adstateopen then rs.close
rs.open "select TXT_COLOR_KEY from dbo.TBL_COLOR ",conn,adopenkeyset,adlockreadonly

Answer 2

Dim conn
Dim rs
Dim intReSet conn = CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")这就出错了.为什么呢？

Answer 3

Set rs = Server.CreateObject("ADODB.Recordset") 这就出错了.为什么呢？
去掉这个Server.

Answer 4

谢谢啊 HungryBoy(饥饿的男孩