在64位系統上使用PowerShell操做Foxpro

操做步驟：

1. 下載Foxpro的OLEDB驅動VFPOLEDBSetup.msi，安裝，選擇容許everyone運行。

2. 註冊OLEDB驅動：

regsvr32 /s "C:\Program Files (x86)\Common Files\system\ole db\vfpoledb.dll"

3. 運行x86版PowerShell：

$ConnString = "Provider=vfpoledb.1;Data Source=c:\accounts.dbf;Collating Sequence=machine;"
$Conn = new-object System.Data.OleDb.OleDbConnection($connString)
$conn.open()
$cmd = new-object System.Data.OleDb.OleDbCommand("select * from accounts", $Conn)
$DataAdapter = new-object System.Data.OleDb.OleDbDataAdapter($cmd)
$dataset = new-object System.Data.Dataset
$DataAdapter.fill($dataset)
$dataset.Tables[0]

坑列表：

1. 從Foxpro驅動描述：

   「The VFPODBC driver is no longer supported. We strongly recommend using the Visual FoxPro OLE DB provider as a replacement.」
   

2. ODBC驅動分爲32位和64位。只有編譯爲32位的應用程序才能調用32位的ODBC驅動。

   "A 32-bit app uses a 32-bit ODBC driver even when installed on 64-bit Windows. But on 64-bit systems, there are two views on ODBC - one is 64-bit, the other is 32-bit. It looks like you opened the default 64-bit view which doesn't show the 32-bit ODBC drivers. To solve this go to c:\windows, there you see a folder named SysWOW64. Here you find odbcad32.exe. After launching the exe you can add a new system dsn or user dsn for the required ODBC driver. Configure it as usual. All other ODBC drivers you have been missing will appear there."
   

3. 安裝了Visual Foxpro後，會安裝32位ODBC驅動VFPODBC.DLL。
   

4. 安裝OLEDB驅動時要選擇容許everyone運行。

5. 要註冊vfpoledb.dll。

6. OLEDB驅動的Provider爲vfpoledb.1。

7. 要在32位PowerShell下運行來調用該驅動。
   

後記：

嘗試在32位PowerShell下操做ODBC驅動，失敗。

$ConnString ="Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB='c:\foxpro\';Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;"
$Connection = New-Object System.Data.Odbc.OdbcConnection
$Connection.ConnectionString = $ConnString
$Connection.Open()
$Command = New-Object System.Data.Odbc.OdbcCommand
$Command.Connection = $Connection
$Command.CommandText = $Query
$Reader = $Command.ExecuteReader()
$Counter = $Reader.FieldCount
while ($Reader.Read()) {
    $SQLObject = @{}
    for ($i = 0; $i -lt $Counter; $i++) {
        $SQLObject.Add(
            $Reader.GetName($i),
            $Reader.GetValue($i));
    }
    $SQLObject
}
$Connection.Close()
$Reader.Close()

但在32位操做系統上運行是正常。若其餘語言在開發時應編譯爲32位版本。