51Testing软件测试论坛

标题: 创建不了数据库连接对象 [打印本页]
作者: dolice218    时间: 2010-11-23 15:17
标题: 创建不了数据库连接对象
Dim Cnn, Rst, i
Set Cnn = createobject ("ODBC.connection")
用论坛上创建对象的方法试了下，运行时抱错说无法创建，我想创建一个连接对象用来连接数据库，该怎样做呢？
作者: dreamever    时间: 2010-11-23 15:20
http://wenku.baidu.com/view/2b3941fff705cc17552709ed.html
里面详细的代码
作者: TIB    时间: 2010-11-25 16:30

  2. Dim rs,sq,pkey
  3. set conn=createobject("adodb.connection")
  4. set rs=createobject("adodb.recordset")

  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;"

  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
复制代码




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2