因為我的程式是用ODBC裡的「系統資料來源名稱」來連線

不想每一台都要去設定一次

不知有無方法把他寫成一個小程式來安裝

我是在ODBC下，「系統資料來源」然後新增一個SQL SERVER的連線

這樣的步驟在DELPHI下該如何達成呢

謝謝啦

搜尋下dsn，即有如何動態修改dsn的問題，謝謝。

ODBC 其實只是把設定寫在登錄裏面，你可以用 Regedit 找到該位置去觀察裡面儲存的細節。

知道儲存規則後，就可以自己用 Delphi 寫了。以下節錄我用來新增 Sybase 的語法，你可參考自行修改，其他資料庫只要是用 ODBC 連線的均適用。

[Code]

procedure _RunTimeCreateOdbcAliasForSybase(sOdbcAlias_,sDBName_,sDbIP_,sUserName_ : String);
var
Reg : TRegistry;
sErrMsg : String;
begin

try
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\ODBC\',True) then begin
Reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',True);
Reg.WriteString('TestSybase2','Sybase ASE ODBC Driver'); //Create ODBC Alias
Reg.OpenKey('\Software\ODBC\ODBC.INI\' 'TestSybase2',True);
Reg.WriteString('Database','MyDatabase');
Reg.WriteString('Description','for Test');

Reg.WriteString('Driver', 'C:\Sybase\ODBC\SYODASE.dll');
Reg.WriteString('NetworkAddress', '192.168.10.100,5000');
Reg.WriteString('NetworkLibraryName','Winsock' );
end;
Reg.CloseKey;
except
on E:Exception do begin
sErrMsg := Format('建立新的 ODBC Alias 時發生錯誤!...%s',[E.message]);
Application.MessageBox(PChar(sErrMsg),'錯誤訊息',MB_ICONError);
raise Exception.Create(sErrMsg); //throw this exception obj
end;
end;
finally
Reg.Free;
end;
end;//_RunTimeCreateOdbcAliasForSybase();

[/Code]

ODBC 其實只是把設定寫在登錄裏面，你可以用 Regedit 找到該位置去觀察裡面儲存的細節。

知道儲存規則後，就可以自己用 Delphi 寫了。以下節錄我用來新增 Sybase 的語法，你可參考自行修改，其他資料庫只要是用 ODBC 連線的均適用。

原來如此啊

謝謝囉

現在已經可以用了