Delphi 動態呼叫ODBC連結對話框

ConnectionPromptDataSource
撰寫Ado(dbgo)程式時,常常會做設定ODBC動作,那程式執行時期可以動態指定嗎?答案是可以的!
[pascal]
procedure TForm1.BtnCreateODBCClick(Sender: TObject);
var
AdoConStr : WideString;
begin
AdoConStr := PromptDataSource(self.Handle,AdoConnection1.ConnectionString);
AdoConnection1.ConnectionString := AdoConStr;
end;
[/pascal]