如何弹出一个ADO参数设置的对话框？啊~急

Question

如何弹出一个ADO参数设置的对话框？啊~急，我想动态连接

Answer 1

谢谢你啊！
to  yitong0834 :
如果我想用ODBC动态在窗口显示的时候，配置数据库到注册表了，怎么写？

Answer 2

uses ADOConEd;procedure TForm1.Button1Click(Sender: TObject);
begin
 if EditConnectionString(adoconnection1) then
   begin
      //连接数据库代码 
   end;
end;

Answer 3

其实还是楼上的最简单，而且用的是DELPHI提供的界面，很方便呀

Answer 4

在WINDOWS98中新建一个数据联接文件命名为'HotelDataConnect.udl'
procedure TDM.DataModuleCreate(Sender: TObject);
Var
  ConnectionFile:string;
  sExeFile:string;
begin
  ADOHotel.LoginPrompt:=false;
  //ADOHotel.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=binge;Data Source=192.168.1.2';
  ADOHotel.ConnectionTimeout:=30;
  ConnectionFile:=ExtractFilePath(Application.ExeName)+'HotelDataConnect.udl';
  if FileExists(ConnectionFile)then
  begin
    try
       if ADOHotel.Connected=False then
          begin
            ADOHotel.ConnectionString:='FILE NAME='+ConnectionFile;
            DM.ADOHotel.Open;
            END;
            Except
               ShowMessage('数据连接配置不正确，请重新配置!');
               sExeFile:=ExtractFilePath(Application.ExeName)+'HotelDataConnect.udl';
               ShellExecute(1, PChar('open'), PChar(sExefile), '', '', SW_SHOWNORMAL);
            end;
          end
       else
       begin
          Showmessage('数据共享文件不存在，应用程序即将关闭，请重新安装系统！');
          Application.Terminate;
       end;
  end;
end.

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var ado_cstr:string;
begin
  ado_cstr:=adodb.promptdatasource(handle,'');
  showmessage(ado_cstr);
end;