怎么调用一个组件的属性。(100分)

T

troyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #1

例如我要在程序中调用ADOConnection的ConnectionString属性，希望的到设计时的对话框
来改变ConnectionString,怎么调用。

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #2

ADOConnection.Connected := false;
ADOConnection.ConnectionString := Value;
ADOConnection.Connected := true;

 

S

sgs125

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #3

看看delphi的demo，ado的里面就有了

 

猎

猎手1号

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #4

var CntStr:WideString;
begin
//下行代码可弹出连接对话框.
CntStr:=promptDataSource(0,'AdoCnt'); //字符串'AdoCnt'是随便给出的,用于下行判断是否被改变
if CntStr<>'AdoCnt' then
begin
StatBar.SimpleText :=' 状态：已连接';
Memo2.Lines.Add('已成功连接到数据库');
AdoCnt.Connected :=false; //这里的AdoCnt是AdoConnection控件.
AdoCnt.ConnectionString :=CntStr;
end;
end;

 

T

troyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #5

是在运行期显示设计期的东西。

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #6

反一下不行吗???

Label1.Caption:=ADOConnection1.ConnectionString;

 

Z

zhgnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #7

当然可以了

 

T

troyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #8

不好意思，可能是我说的不是很清楚。
我是说，怎么显示配置ConnectionString的对话框。象
打开文件的对话框。

 

L

LGXing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #9

猎手1号的promptDataSource就是，在ado单元

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #10

首先，在 uses 语句中包含进 AdoConEd 单元。然后在应用程序需要触发 ADO 连接串编辑器的地方写入如下简单代码。问题迎刃而解。



ADOConnection1.Close;

// calling EditConnectionString displays the dialog, and

// sets the ConnectString property to the resulting value.

if EditConnectionString(ADOConnection1) then begin

//display the resulting ADO Connect String, just for fun.

label11.caption := ADOConnection1.ConnectionString;

end;

 

T

troyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #11

多人接受答案了。