我忘了在运行时打开ADO连接设置窗口的函数，谁能告诉我？ (50分)

Q

qdgyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #1

我忘了在运行时打开ADO连接设置窗口的函数，谁能告诉我？
我说的是在运行时，有一个函数可以打开在设计时设置连接connecstring的窗口，
我忘了这个函数名了。

 

C

cowbird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #2

ADOconnectiont1.connected:=true;

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #3

S := PromptDataSource(FMainForm.Handle, ADOCombineConnectionString);

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #4

给个例子：
var CntStr:WideString;
begin
CntStr:=promptDataSource(0,'AdoCnt');
//Adocnt是随便给出的字符串，如连接正确，则CntStr不会等于该字符串
if CntStr<>'AdoCnt' then
begin
StatBar.SimpleText :=' 状态：已连接';
Memo2.Lines.Add('已成功连接到数据库');
AdoCnt.Connected :=false; //这里的AdoCnt是TAdoConnection控件。
AdoCnt.ConnectionString :=CntStr;
end;
end;

 

B

bill_max

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #5

刚做完一个，正好在这用上了^_^
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath('scrproject.exe')+'Dbase.mdb;Persist Security Info=False';

 

N

navy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #6

.

 

Q

qdgyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #7

谢谢!