带有Powershell中提供程序MSDAORA的ADODB

Question

我想使用Powershell从Oracle数据库中读取数据以进行一些评估，并将带有结果的电子邮件发送给收件人列表。

首先，我开始在Excel-VBA中对数据库读数进行编程，以对结果产生更好的视觉体验，效果很好。

Sub ADODBOracle()
    Dim ADOConnection As Object : Set ADOConnection = CreateObject("ADODB.Connection")
    Dim ADORecordSet As Object : Set ADORecordSet = CreateObject("ADODB.Recordset")

    'Early binding and ADODB related enums require a reference to Microsoft ActiveX Data Objects 6.1 Library
    'Dim ADOConnection As New ADODB.Connection
    'Dim ADORecordSet As New ADODB.Recordset

    Dim Field As Variant

    Dim i As Long
    Dim j As Long

    ADOConnection.ConnectionString = "Provider=MSDAORA;Data Source=XSource;User Id=user;Password=pass;"
    ADOConnection.Open

    With ADORecordSet
        .ActiveConnection = ADOConnection
        .CursorLocation = 3 'adUseClient
        .CursorType = 3 'adOpenStatic
        .LockType = 1 'adLockReadOnly
        .Open "SELECT * from MY.Database WHERE TIMESTAMP LIKE '%11.03.20%'"
    End With

    ThisWorkbook.Sheets(1).Cells.Clear

    j = 1
    For Each Field In ADORecordSet.Fields
        ThisWorkbook.Sheets(1).Cells(1, j) = Field.Name
        ThisWorkbook.Sheets(1).Columns(j).EntireColumn.NumberFormat = "@"
        j = j + 1
    Next

    i = 2
    ADORecordSet.MoveFirst
    Application.ScreenUpdating = False

    While Not ADORecordSet.EOF: DoEvents
        For j = 1 To ADORecordSet.Fields.Count
            ThisWorkbook.Sheets(1).Cells(i, j) = ADORecordSet.Fields(ThisWorkbook.Sheets(1).Cells(1, j).Text).Value
        Next j
        i = i + 1
        ADORecordSet.MoveNext
    Wend
    Application.ScreenUpdating = True
    ADOConnection.Close
End Sub

将这个确切的代码重写到Powershell中时，我奇怪地收到一条错误消息，告诉我未安装提供程序？

#CursorLocationEnum
$adUseServer = 2
$adUseClient = 3

#LockTypeEnum
$adLockReadOnly = 1
$adLockPessimistic = 2
$adLockOptimistic = 3
$adLockBatchOptimistic = 4

#CursorTypeEnum
$adOpenForwardOnly = 0
$adOpenKeyset = 1
$adOpenDynamic = 2
$adOpenStatic = 3

$ADOCon = New-Object -ComObject ADODB.Connection
$ADORec = New-Object -ComObject ADODB.Recordset

$ADOCon.ConnectionString = "Provider=MSDAORA;Data Source=XSource;User Id=user;Password=pass;"
$ADOCon.Open()
#ERROR! Provider not found / not installed

$ADORec.ActiveConnection = $ADOCon
$ADORec.CursorLocation = $adUseClient
$ADORec.CursorType = $adOpenStatic
$ADORec.LockType = $adLockReadOnly

$ADORec.Open("SELECT * from MY.Database WHERE TIMESTAMP LIKE '%11.03.20%'")
#to be done
$ADOCon.Close()

旁边的另一个问题：如何在Powershell中使用ADODB枚举的值（例如CursorLocationEnum）而不为每个值创建变量？

Answer 1

我找到了问题的答案。仅当Powershell会话以x86模式运行时才可用MSDAORA驱动程序，而AMD64则不行。