动态创建个TDataSetProvider为什么客户端ClientDataSet.ProviderName居然找不到? ( 积分: 200 )

痞

痞子刘

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #1

SetLength(test_P_ADOQuery1,ServiceCnt);
for i:=0 to ServiceCnt-1do
begin
test_P_ADOQuery1 := TDataSetProvider.Create(owner);
with test_P_ADOQuery1do
begin
Exported := true;
Constraints:= True;
Options:=[poAllowCommandText];
DataSet := test_ADOQuery1;
self.RegisterProvider(test_P_ADOQuery1);
Name:='test_P_ADOQuery1['+IntToStr(i)+']';
//////客户端找不到这个Name求救？？？
end;
end;

 

痞

痞子刘

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #2

SetLength(test_P_ADOQuery1,ServiceCnt);
for i:=0 to ServiceCnt-1do
begin
test_P_ADOQuery1 := TDataSetProvider.Create(owner);
with test_P_ADOQuery1do
begin
Exported := true;
Constraints:= True;
Options:=[poAllowCommandText];
DataSet := test_ADOQuery1;
self.RegisterProvider(test_P_ADOQuery1);
Name:='test_P_ADOQuery1['+IntToStr(i)+']';
//////客户端找不到这个Name求救？？？
end;
end;

 

Z

z_cd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #3

设计期间肯定找不到，除非将这段程序放入RemoteDataModule的Create事件中去

 

E

eastnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-29

• #4

Name:='test_P_ADOQuery1['+IntToStr(i)+']';
是识别不了,你改成
Name:='test_P_ADOQuery1_'+IntToStr(i);
试试

 

痞

痞子刘

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-29

• #5

接受答案了.