简单问题：如何连接sql?

我建了一个窗体"form1",加上1个控件command1,写上如下代码：  
  Private   Sub   Command1_Click()  
        Dim   Connect   As   String  
        Dim   rs   As   adodb.rescordset  
        Connect   =   "Provider=server={Sql   server};uid=sa;pwd=pass;database=Myinfo"  
        sSql   =   "select   *   from   baseinfo"  
        Dim   cn   As   adodb.Connection  
        Set   cn   =   New   adodb.Connection  
        cn.Open   Connect  
        Set   rs   =   New   adodb.rescordset  
        rs.Open   sSql,   cn,   adLOCkoptionXX,   ADlockXXXstatic  
  End   Sub  
  但错误指向第三行(Dim   rs   As   adodb.rescordset):compile   error:user-defined   type   not   defined  
  问这是怎么回事阿？是不是在哪儿还要设置一下? 问题点数：20、回复次数：5Top

1 楼SoHo_Andy（冰）回复于 2003-12-02 15:07:43 得分 0

是不是你的工程中没有引用ADO的组件对象  
  在工程引用中添加   MicroSoft   ActivX   Data   Object   2.*   即可Top

2 楼naomi77（naomi77）回复于 2003-12-02 15:35:02 得分 0

引用了MicroSoft   ActivX   Data   Object   2.5   library,   还是不行Top

3 楼SoHo_Andy（冰）回复于 2003-12-02 15:39:25 得分 20

^_^，你打错字啦，还真没注意  
  Dim   rs   As   adodb.rescordset  
  正确如下  
  dim   rs   as   ADODB.Recordset  
   
  真是好简单的问题Top

4 楼gjk0223（北极人）回复于 2003-12-02 15:40:39 得分 0

你的第三行应改为Dim   rs   As   adodb.recordsetTop

5 楼naomi77（naomi77）回复于 2003-12-02 15:54:24 得分 0

我是从网上拷过来的代码，以前没用vb连过sql,所以。。。  
  不好意思阿，哈哈Top

相关问题

• sql
• rescordset
• 引用
• adodb
• dimrs as adodb
• cn
• connect

• 帖主：naomi77
• SoHo_Andy

• Visual Basic类图书
• Visual Basic类源码下载