在Delphi裡調用API函數動態建立ODBC數據源

在前段時間項目過程中倒數據過程中要求動態不同數據庫倒數據時遇到的關於數據源的問題，當然，不能ADOQUERY連接的DBF表（未下補丁版本，後發現也可連接）一定要建ODBC進行連接處理，那麼ODBC一定要動態建立以排除用戶刪除ODBC的可能，下面我就把API函數原型及建SQLSERVER和DBF表的語句寫下來共享（當然SQLSERVER在ADO狀態下不必建立）。

　　SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;lpszDriverString: String; lpszAttributes: String): Integer;

　　調用狀態下使用：

　　function SQLConfigDataSource(hwndParent: Integer; fRequest: Integer;lpszDriverString: String; lpszAttributes: String): Integer;stdcall;external 'ODBCCP32.DLL';

　　建立SQLSERVER的ODBC：

　　SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,'SQL Server','DSN=Record_ODBC'+ chr(0) +'Server=(local)'+ chr(0) +'Database=master'+ chr(0) +'Description=DragonPC SQLServer ODBC Source'+ chr(0));

　　
　　{　　DSN：你的ODBC數據源名稱。

　　Server：你的數據庫服務器名稱，使用(local)指的是本地計算機安裝的數據庫。注：最新的SQL Server 2000支持一台計算機運行多個SQL Server服務，這個時候你需要指定SqlSever的InstanceName。

　　Address：指定SQL Server服務器的網絡IP地址。

　　Database：指定默認數據庫名稱。

　　Language：指定默認語言。

　　Description：備注信息。}

　　建立DBF表ODBC：

　　SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, 'Microsoft Visual FoxPro Driver' + CHR(0), 'dsn=SourceTable' + CHR(0) + 'BackgroundFetch=Yes' + CHR(0) + 'Description=descripcion de la conexion' + CHR(0) + 'Exclusive=No' + CHR(0) +sourcedbstr + CHR(0) +'Sourcetype=DBF');

　　其他均雷同，只是在建立DBF表調試了好長時間，寫出來希望大家免去浪費時間。

　　注：以上內容只供初學者遇到類似問題參考。