在线等!看看我这行代码有问题不?谢谢了

Private   Sub   Command1_Click()  
  Dim   conn   As   New   ADODB.Connection  
   
          Dim   com   As   New   ADODB.Command  
   
          Dim   rst   As   New   ADODB.Recordset  
   
          Dim   str1   As   String  
   
          Dim   str2   As   String  
          str1   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="  
          str2   =   ";Persist   Security   Info=False"  
          conn.ConnectionString   =   str1   +   "data.mdb"   +   str2  
          Con.Open  
  End   Sub  
  为什么我一运行就出现用户类型未定义!谢谢了` 问题点数：20、回复次数：10Top

1 楼hui_hui_2007（天行健）回复于 2006-12-03 21:06:29 得分 20

呵，你一定没用引用ado吧。  
  在引用对话框中增加ado2.5的引用  
  工程-->引用   中增加:microsoft   activeX   data   objects   2.5   library  
  当然，引用别的版本也可以，一般低点的兼容性好些。  
  Top

2 楼ct114047689（易主）回复于 2006-12-03 21:10:30 得分 0

不行啊!还是不能运行!这个代码应该没有错吧`  
   
  Top

3 楼potato015（三流火枪手）回复于 2006-12-03 21:24:55 得分 0

Con.Open  
   
        Conn.OpenTop

4 楼ct114047689（易主）回复于 2006-12-03 21:49:10 得分 0

不懂么`楼上的解释一下啊`谢谢Top

5 楼potato015（三流火枪手）回复于 2006-12-03 21:56:04 得分 0

应该为conn.open       你自己疏忽   输错了Top

6 楼ct114047689（易主）回复于 2006-12-03 22:06:40 得分 0

Private   Sub   Command1_Click()  
   
  Dim   conn   As   New   ADODB.Connection  
   
          Dim   com   As   New   ADODB.Command  
   
          Dim   rst   As   New   ADODB.Recordset  
   
          conn.Open   "Provider=Microsoft.Jet.OLEDB.4.0;Persist   Security   Info=False;Data   Source='"   +   App.Path   +   "\data.mdb"   +   "'"  
       
   
  End   Sub  
   
  我改成这样了`  
  还是运行不了~  
  行动就出现未定义的提示Top

7 楼potato015（三流火枪手）回复于 2006-12-03 22:16:17 得分 0

我刚去测试了   就是由于没有在工程中引用microsoft   activeX   data   objects     才会出现未定义的情况  
  我引用了2.8的   就没有问题Top

8 楼ct114047689（易主）回复于 2006-12-03 22:20:12 得分 0

晕的`  
   
  你的意思是说我的代码没问题  
  那我机器上没有2.8怎么办啊Top

9 楼potato015（三流火枪手）回复于 2006-12-03 22:23:06 得分 0

2.6   2.5   都可以的  
   
  代码没问题的   要不就是机器的问题Top

10 楼ct114047689（易主）回复于 2006-12-03 23:16:03 得分 0

问题解决了`谢谢大家Top

相关问题

• 帖主：ct114047689
• hui_hui_2007

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