ADO链接字符自动生成器EDITCONNECTIONSTRING()出自何方????

Question

同上,来者加分
ADO链接字符自动生成器EDITCONNECTIONSTRING()出自何方????

Answer 1

这个意思？？？？？？？？？？？？
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB,AdoConEd, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  //注意引用AdoConEd这个单元
  ADOConnection1.Close;
  if EditConnectionString(ADOConnection1) then
     Memo1.Lines.Add(ADOConnection1.ConnectionString)
end;end.

Answer 2

在ADOCONED这个单元中。你可以看看。

Answer 3

在Program Files\Borland\Delphi5\Source\property Editors下有一个ADOCONED.PAS的 
文件，把这个文件加到你的USES里，然后在程序里调用它的EditConnectionString方法就 
可以了。 
  ADOConnection.Close; 
  ADOConnection.ConnectionString := ConnectionString.Text; 
  if EditConnectionString(ADOConnection) then 
  begin 
    ConnectionString.Text := ADOConnection.ConnectionString; 
    ConnectionStringClick(Sender); 
  end;