vba怎么取不到记录集的个数

相关语句如下：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim R As IntegerConnectString = "DRIVER={SQL Server}; SERVER=192.168.0.1;UID=u1;PWD=u1; DATABASE=database2000"
cn.Open ConnectString
sqlstr = "select * from user_list"
Set rst = cn.Execute(sqlstr)
R = rst.RecordCount1.为什么R总是等于-1呢？
2.如果user_list表中没有数据或没这个表，cn.Execute(sqlstr)是不是会出错？

解决方案 »

  1.   

    cn.Open ConnectString,3,3
    指定游标类型是3才能使用这个属性
      

  2.   

    我输入 cn.Open ConnectString,3,3 时
    提示的是,userid,passsword
    运行时报错，用户3登陆失败
      

  3.   

    <htm>
    <script language="vbscript">
    sub slinkdb ()
    dim cnn
    dim rst
    set cnn=createobject("adodb.connection")
    set rst=createobject("adodb.recordset")
    cnn.ConnectionString="Provider = SQLOLEDB.1;Data Source=192.168.0.1;Password=XXX;Persist Security Info=True;User ID=Sm;Initial Catalog=SM"
    cnn.CursorLocation=3
    cnn.open rst.open "select * from userinfo",cnn
    msgbox rst.recordcount
    rst.close
    set rst=nothing
    cnn.close
    end sub
    </script>
    <head>
    </head>
    <body>
    <input type=button value=连接数据库 onclick=slinkdb()></body>
    </htm>看看你少了哪里？
      

  4.   

    没东西做测试，VBScript应该差不多的
    呵呵