Visual FoxPro(以下簡稱VFP)是微軟公司Visual系列開發工具中的一種。在VFP 6.0中，與外部數據源進行數據交換的方式有導入導出數據、遠程視圖、SQL Pass Through以及數據升遷等幾種方式。其中，導入導出數據是完成對靜態數據（或文本）的數據轉換，而對動態數據源的訪問則主要是使用Windows中的ODBC技術。本文介紹在設計客戶/ 服務器體系結構的應用程序時，如何使用VFP來實現與外部數據源的數據交換。

導入導出數據

導入導出數據是指利用VFP的內部轉換機制由一個靜態文件生成一個指定的新文件的過程。可以被轉換的文件類型主要有：Excel文件、Paradox數據庫文件、Lotus電子表格中的數據以及其他形式的文本文件。

導入數據是指將一個外部文本轉換成一個新的DBF文件。例如：將A盤上的一個abc.xls文件轉換成Example數據庫下的CBA.DBF表，可用如下命令完成：

import from a:\abc.xls Database Example Name cba Type xls

導出數據是指將一個打開的VFP數據表（DBF）文件轉換成一個其他形式的外部文件，同時還可以使用范圍或條件子句對被復制的數據進行過濾。例如：

use cba

copy to abc for fieldl=“aaaaa”，type xls

上述代碼將CBA.DBF文件中滿足條件“fieldl=,“aaaaa””的記錄轉換為Excel文件abc.xls。

遠程視圖

遠程視圖以視圖的方式通過ODBC與外部數據源建立連接，從而達到訪問或更新外部數據源的目的。它是客戶/服務器體系結構中經常運用的一種訪問外部數據源的方法。在VFP中建立遠程視圖的方式主要有兩種：采用VFP中的視圖向導和程序方式。在使用程序方式時，一般需要兩個步驟：

● 通過ODBC與外部數據源建立一個命名連接；

● 定義視圖。

建立一個遠程視圖后，用戶就可以像調用一個自由表一樣來使用它。在使用遠程視圖的過程中，應當注意以下幾個問題：

● 遠程視圖只能對后臺數據庫進行查詢、插入、更新和刪除等操作，不能進行數據定義。它的事務處理只限于對本地數據庫的操作，而無權管理后臺數據庫。

● 盡量不要使用遠程視圖對后臺數據庫進行多表插入的操作，以免產生非法NULL值或引起數據不一致。

● 盡量使用SQL語句完成對后臺數據庫的操作，以免在執行時產生二義性。

例如，我們要訪問一個遠程SQL Server上的my-db庫中的my-tab表，可由如下的語句來完成（假定sql為已在ODBC中建立的與SQL Server 服務器的my-db數據庫相連的數據源）:

create connection example datasource sql userid usr-1 password sqlpass

/*建立一個名為example的與SQL Server服務器的連接*/

create sql view my-r-view remote connection example as select * from my -tab

/*建立一個名為my-r-view的遠程視圖。該視圖依賴于example連接，視圖訪問的是my-tab表中的所有字段。*/

use my-r-view

/*打開my-r-view視圖*/

browse

/*瀏覽視圖中的內容*/

SQL Pass Through技術

SQL Pass Through（以下簡稱SPT）技術能使用戶直接訪問ODBC函數，并把SQL語句發送給服務器執行。與遠程視圖相比，它能夠更直接地控制后臺服務器上的數據庫：

● 可以使用服務器的特有功能，如存儲過程和基于服務器的內部函數等；

● 可使用服務器所支持的SQL擴展功能，而且可進行數據定義、服務器管理和安全性管理等；

● 對后臺數據庫的更新、刪除和插入等操作擁有更多控制權，對遠程事務也擁有更多控制權。

該方法的缺點在于不能使用圖形化的設計器，而且必須在命令窗口或程序中直接輸入SQL命令。

在SPT中經常使用的函數主要有：連接管理函數（如SQLCONNECT、SQLSTRINGCONNECT、SQLDISCONNECT等）、SQL語句的執行和控制函數（如SQLEXEC、SQLMORERESULTS、SQLCOMMIT、SQLROLLBACK等）。下面給出一個應用實例來說明這些函數的使用及其參數的設定：

Store sqlstringconnect(“dsn=sql; uid=usr-1; pwd=sqlpass”)to gnconnhandlc

/*將連接函數的返回值存入連接句柄gnconnhandlc中）

If gnconnhandlc<=0

/*當連接句柄gnconnhandlc的值小于或等于零時，表明連接失敗*/

Messagebox（“建立連接失敗”，16，“SQL Connect Error”）

Else

Sqlexec(gnconnhandlc,“select*from my-tab”)

/*當連接成功后向服務器發送一個查詢語句，并將返回的結果集存入一個臨時表中*/

Sqlcancle(gnconnhandlc)

/*停止sqlexec（）的執行*/

Sqldisconnct(gnconnhandlc)

/*斷開與sql數據源的連接*/

　Brow

　/*瀏覽返回的結果集*/

Endif

數據庫升遷

利用VFP的數據庫升遷向導，可以實現將本地數據庫轉換為遠程數據庫的功能。借助這一功能，我們可以很方便地將使用VFP建立的數據庫、表和視圖等從本地系統遷移到另一個遠程服務器上。雖然在VFP中，該方法只限于對SQL Server和Oracle Server的訪問，但通過使用SQL Pass Through函數在服務器上創建遠程表，然后再用VFP建立遠程視圖訪問這些服務器上的表，我們就可以為任何遠程ODBC數據源建立客戶/服務器模式的應用程序。

有了這一功能，可以極大地方便客戶/服務器應用程序的開發工作。用戶可先在單機上開發應用程序，待基本功能模塊設計調試成功后，再運用數據庫升遷的方法將本地數據庫、表轉換到遠程服務器上，并把本地視圖升遷為遠程視圖，繼而將開發調試工作的重點轉移到客戶機與服務器間的數據通信以及數據庫服務器的管理等方面。