Excel vba 连接远程ORACLE数据库问题
我想通过以下代码连接远程oracle数据库,但运行到Set rst = cmd.Execute()时就报“运行时3709错误,在此上下问可能以被关闭或无效”的错误,请问这是什么原因,怎样可以解决呢
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim sql As String
cnn.ConnectionString = "driver={microsoft odbc for oracle};server=spms;uid=system;pwd=system;"
sql = "select * from mw_app.mwt_ud_xhcs_jgdy"
cnn.Open
cmd.CommandType = adCmdText
cmd.CommandText = sql
Set rst = cmd.Execute()
cnn.Close