没分，祝大家身体健康(下一个星期后一定给)

Question

怎样把edit1.text的值传入到 procedure adocon(adodb:Tadoconnection);
我是在做一个通用的sql server数据库连接窗口.

Answer 1

procedure adocon(adodb:Tadoconnection,const idata:string); adocon(adodb:Tadoconnection,edit1.text);

Answer 2

如:procedure adocon(adodb:Tadoconnection);
              adocon:=edit1.text;这个意思!

Answer 3

procedure adocon(adodb:Tadoconnection);
              adodb.name:=edit1.text;这个是否可行了

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure adoconn(adodb:Tadoconnection);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
    uses unit2;
{$R *.dfm}
procedure Tform1.adoconn(adodb:Tadoconnection);
begin
    adodb.Close;
    showmessage('ok');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
adoconnection1.Name:=edit1.Text;
    adoconn(adoconnection1);end;end.
当输入edit1.text:=dm.adoconnection1就报错

Answer 5

樓主,Name屬性應該不能改吧?
你可以試著修改ConnectionString吧
sqlstring:='Provider=SQLOLEDB.1;Password='+trim(editPassword.Text)+';Persist Security     Info=True;User ID='+trim(editUserName.text)+';Initial Catalog='+trim(editServer.text)+';Data Source='+trim(editDatabase.text);adoconnection1.connectionstring:=sqlstring;

Answer 6

yuzhao(无名的风)谢谢.不是这个意思.    我的form1组件上还有个 edt_con.text
当输入edt_con.text的值时就传入到:procedure adocon(adodb:Tadoconnection);
            也就是  edt_con.text:=adodb.name;
                     edt_con.text是指向 adodb的

Answer 7

你的意思是用字符串来定位对象。可以用
TAdoconnection(FindComponent(editServer.text));

Answer 8

To readersm68(地主)但如果editserver.text是  dm.adoconnection1就不行了.adoconnection1就可以
分俺一定会给了。

Answer 9

〉〉To readersm68(地主)但如果editserver.text是  dm.adoconnection1就不行了.adoconnection1就可以
分俺一定会给了。
-----------dm.FindComponent