{Designed by http://delphi.ktop.com.tw}
// SQLConfigDataSource API 宣告
// see MSDN for more information
const
  ODBC_ADD_DSN        = 1;
  ODBC_CONFIG_DSN     = 2;
  ODBC_REMOVE_DSN     = 3;
  ODBC_ADD_SYS_DSN    = 4;
  ODBC_CONFIG_SYS_DSN = 5;
  ODBC_REMOVE_SYS_DSN = 6;
function SQLConfigDataSource(hwndParent: HWND;
    fRequest: Word;
    lpszDriver: PChar;
    lpszAttributes: PChar): boolean; stdcall;
    external 'ODBCCP32.DLL';
procedure SetupODBC_Demo;
var Driver,Attributes:string;
begin
   // 建立一個 ODBC_NAME 指向 Access的c:\test.mdb
   Driver := 'Microsoft Access Driver (*.mdb)';
   Attributes := 'DSN=ODBC_NAME;'   'dbq=c:\test.mdb';
   if SQLConfigDataSource(0, 4, PChar(Driver), PChar(Attributes)) then
       showmessage('資料庫設定成功')
   else
       showmessage('資料庫設定失敗');
end;