Question

我对VBA几乎不熟悉（在学校有过一些课程，就是这样）。现在我需要从Excel文件连接到Oracle数据库（在远程服务器上运行）。我已经四处寻找，并找到了一些例子。所以，到目前为止，我已经编写了以下代码：

    Sub Try()
         Dim cn As New ADODB.Connection
         Dim rs As ADODB.Recordset
         Dim cmd As ADODB.Command
         Dim chunk() As Byte
         Dim fd As Integer
         Dim flen As Long
         Dim Main As ADODB.Parameter
         Dim object As ADODB.Parameter

     Stil = vbYesNo + vbCritical + vbDefaultButton1
        Titel = "db connection test"
    '   Meldung anzeigen.
        Antwort = MsgBox("trying to connect to db", Stil, Titel, Hilfe, Ktxt)

         ' Connect to the database using ODBC [msdaora][ORAOLEDB.Oracle]Provider=ORAOLEDB.Oracle;
         With cn
             .ConnectionString = "Provider=ORAOLEDB.Oracle;Password=pass;User ID=usr;Data Source=host:port:sid"
             .Open
             .CursorLocation = adUseClient
         End With

         ret = cn.Execute("create table newtesttable (main integer, object oid)")

         ' Here is an example if you want to issue a direct
    ' command to the database
         '
         'Set cmd = New ADODB.Command
         'With cmd
         '    .CommandText = "delete from MYTABLE"
         '    .ActiveConnection = cn
         '    .Execute
         'End With
         'Set cmd = Nothing

         '
         ' Here is an example of how insert directly into the
     ' database without using
         ' a recordset and the AddNew method
         '
         Set cmd = New ADODB.Command
         cmd.ActiveConnection = cn
         ' cmd.CommandText = "insert into newtesttable(main,object) values(?,?)"
         cmd.CommandText = "select * from test"
         cmd.CommandType = adCmdText

         ' The main parameter
        ' Set main = cmd.CreateParameter("main", adInteger, adParamInput)
         'main.Value = 100 '' a random integer value ''
         'cmd.Parameters.Append main

         ' Open the file for reading
         'fd = FreeFile
         'Open "myBlobFile.txt" For Binary Access Read As fd
         'flen = LOF(fd)
         'If flen = 0 Then
          '   Close
           '  MsgBox "Error while opening the file"
            ' End
         'End If

         ' The object parameter
         '
         ' The fourth parameter indicates the memory to allocate
     ' to store the object
       '  Set object = cmd.CreateParameter("object", _
       '                                       adLongVarBinary, _
       '                                       adParamInput, _
                                              flen + 100)
       '  ReDim chunk(1 To flen)
       '  Get fd, , chunk()

         ' Insert the object into the parameter object
       '  object.AppendChunk chunk()
       '  cmd.Parameters.Append object

         ' Now execute the command
         Set rs = cmd.Execute

     '   Mldg = "test"
        Stil = vbYesNo + vbCritical + vbDefaultButton1
        Titel = "asdasdasd"
    '   Meldung anzeigen.
        Antwort = MsgBox(rs, Stil, Titel, Hilfe, Ktxt)
         ' ... and close all
         cn.Close
         Close

 End Sub

我相信此代码中存在许多问题，但目前在尝试执行时失败。打开，说"Provider cannot be found. It may not be properly installed"。之后我发现我需要下载并安装ORAOLEDB.dll。我这样做是通过安装ORAOledb11.dll（我已经尝试了32位和64位，你的我的机器是64位）。我已经通过执行regsvr32 OraOLEDB11.dll安装了它。

不幸的是问题直到那里。那么，解决此问题的步骤可能是什么？我可以以某种方式确保Oraoledb已正确安装在我的机器上吗？

任何提示都将不胜感激。

Answer 1

32位操作系统

我通过从Oracle官方网站 Oracle10g Provider for OLE DB Version 10.1.0.4.0 下载oracle OLEDB提供程序，设法在 Windows XP 虚拟机上运行。当前工作link OLEDB用于较旧的OS（32位）

但请注意，它将取代JDK和JRE降低版本（可以通过使用配置xml来阻止 - products.xml - 我没有足够的心理健康药水，所以我完全安装而不是）。之后，您需要删除环境变量中的引用，因为它可能影响其他程序。安装后，我用 regsvc32

注册了OraOLEDBxx.dll

我正在使用excel 2003连接到oracle db 11。:)

连接字符串

我必须启用扩展（ActiveX数据对象和记录库）。我的函数返回连接是：

Public Function connectToDb(provider As String, host As String, sid As String, user As String, pwd As String, db As String) As ADODB.Connection
Dim conn As ADODB.Connection
Dim dbConnectStr As String

    Set conn = New ADODB.Connection
    If provider = "Oracle" Then
        dbConnectStr = "Provider=OraOLEDB.Oracle;Data Source=" & host & ":1521/" & sid & ";User Id=" & user & ";Password=" & pwd & ";"
    Else

    End If
    conn.ConnectionString = dbConnectStr
    conn.Open
    Set connectToDb = conn
End Function

64位操作系统，但32位Office

当我们的虚拟机使用 Excel 2010 迁移到64位 Windows 7 时。确保您下载 ODAC - Oracle数据访问组件 - 用于excel安装的正确 -bit 版本，因为我安装了32位Excel，并认为它是64位（因为Windows是64位的）所以我试图让这个使用 64位 ODAC版本。之后我确实下载了 32位版本，它和以前一样工作。如需安装，请按照下载的存档文件夹中的安装说明进行操作。

Oracle网站上ODAC的当前工作links

Answer 2

您可以通过创建结尾为 .udl 的文本文件来确保您的连接字符串准确，然后关闭并打开该文件。系统将提示您使用用户界面连接到服务器。输入您的信息并测试连接。然后，如果您的连接正在关闭文件。以文本格式打开该文件，并将连接字符串复制到您的代码中。还要确保为ADO选择了参考库。这条线看起来不对：

Data Source=host:port:sid

下面是我用来从文本中提取sql并将结果提取到文本的示例。

 Public Function ObjectConnect(AID As String, APswd As String)

 ObjectConnect = "Provider=ORAOLEDB;Password=" & APswd & ";Persist Security Info=True;User ID=" & AID & ";Data Source=(nameofserverConn)"

 End Function

Sub RunSQL()

Dim strConn As String
Dim Query As String
Dim txt As Object
Dim ns As ADODB.Connection
Dim rs As ADODB.Recordset
Dim txtfile As Object
Dim f As ADODB.Field
Dim myFileSystemObject As Object
Dim txtN As String
Dim DL As String


FName1 = ""
Query = ""
txtStrngX = ""

Set ns = New ADODB.Connection
Set rs = New ADODB.Recordset
ns.ConnectionTimeout = 99000
ns.CommandTimeout = 99000



ns.Open ObjectConnect('UserID', 'Password') 'this is a public function w. userform for people to enter ID and Password.
With rs
    .ActiveConnection = ns
      'however you're writing the sql it would go here.
    .Open Query 
End With


If rs.State <> 0 Then
    DL = Sheet1.Cells(2, 2)
    RecordsetToText rs:=rs, FullPath:=txtN, ValueDelimiter:=DL  'this is a sub function that writes to a text file.  Didn't include the code but left this.  Here you would want to do something with the recordset.
End If

On Error Resume Next
rs.Close
Set rs = Nothing


End Sub

无法找到OleDB数据提供程序VBA / Excel

2 个答案: