创建不了数据库连接对象

dolice218

Dim Cnn, Rst, i
Set Cnn = createobject ("ODBC.connection")
用论坛上创建对象的方法试了下，运行时抱错说无法创建，我想创建一个连接对象用来连接数据库，该怎样做呢？

dreamever

http://wenku.baidu.com/view/2b3941fff705cc17552709ed.html
里面详细的代码

TIB

1. 
   
2. Dim rs,sq,pkey
   
3. set conn=createobject("adodb.connection")
   
4. set rs=createobject("adodb.recordset")
   
5. 
   
6. ' 需要安装Oracle客户端
   
7. conn.open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=scott;Data Source=orcl;Password=orcl;Extended Properties=;Host=192.168.1.188;Port=1521;Service Name=orcl;"
   
8. 
   
9. sql="SELECT * FROM TAB"
   
10. rs.open sql,conn
    
11. rs.MoveFirst
    
12. Do While rs.Eof<>true
    
13. Msgbox rs.Fields(0)
    
14. rs.MoveNext
    
15. Loop
    
16. rs.close
    
17. set rs=nothing
    
18. conn.close
    
19. set conn=nothing
    

复制代码