如果在Delphi中调用设置数据源的界面？？在线等

[yyuj]

就是进行不同数据源的设定时显示的页面不一样！不知道谁知道怎么调用的！急！在线等

[dengdeng]

PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
在ADODB单元中。

[yyuj]

有没有比较详细的代码？？谢谢！

[dengdeng]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ConnStr: string;
begin
ConnStr := '';
ConnStr := PromptDataSource(Handle, ConnStr);
ADOConnection1.ConnectionString := ConnStr;
ADOConnection1.Connected := True;
end;

end.

[yyuj]

为什么我在PromptDataSource(Handle, ConnStr);处编译不通过！请问！

[yurenjf]

谢谢 dengdeng(小胖子)

[yurenjf]

你有没有在uses里面加 adodb单元呢

[yyuj]

谢谢