谢谢 搞定了 哥们 你太厉害了。。。作者: liuxueyi 时间: 2010-11-30 23:17
哈哈。。不客气。。。我也是小土豆一个;共同学习。。。作者: gaojianqiong 时间: 2011-8-12 14:51
Dim StrCon
Dim Res,Cmd
Set Res = CreateObject("ADODB.Recordset")
Set Cmd = CreateObject("ADODB.Command")
'以下为建立连接
StrCon ="Driver={Microsoft ODBC for Oracle};Server=servername;Uid=usernamewd=password;"
Cmd.activeconnection=StrCon
Cmd.CommandType =1
'以下为执行sql ,根据实际情况替换之
Cmd.CommandText="select count( *) from spaces "
Set Res = Cmd.Execute()
'展示结果
Do while not Res.eof
Msgbox(Res(0))
Res.MoveNext
Loop
'以下为关闭数据库连接
Set Res=nothing
Set Cmd.activeconnection=nothing
Set Cmd=nothing作者: 小婷仙儿 时间: 2014-11-4 09:53
你没有安装Oracle客户端 在配置odbc的时候,能看到 oradb11g吗