Delphi 動態呼叫ODBC連結對話框

ConnectionPromptDataSource
撰寫Ado(dbgo)程式時,常常會做設定ODBC動作,那程式執行時期可以動態指定嗎?答案是可以的!

procedure TForm1.BtnCreateODBCClick(Sender: TObject);
var
  AdoConStr : WideString;
begin
  AdoConStr := PromptDataSource(self.Handle,AdoConnection1.ConnectionString);
  AdoConnection1.ConnectionString := AdoConStr;
end;