简单的一个问题,请教!

frankie_24 2007-03-22 10:10:47

我在做一个简单的三层结构,在服务端,我动态建立了TDataSetProvider,但是我在客户端连接时,ClientDataSet1的ProviderName属性中看不到我建立的TDataSetProvider,这样应该怎么做啊?
动态建立的,在客户端怎样连接啊?
谢谢各位了,现在弄的我头大...

...全文

140 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

frankie_24 2007-03-22

打赏
举报

还是没有啊?
是不是客户端也要动态建立?

netfly 2007-03-22

打赏
举报

Provider1 := TdataSetProvider.Create(Self);
RegisterProvider(Provider1);

frankie_24 2007-03-22

打赏
举报

没有人知道吗?

netfly 2007-03-22

打赏
举报

呵呵REPEAT是表示重复,是PASCAL的基础

netfly 2007-03-22

打赏
举报

用QQ吧:563057461

frankie_24 2007-03-22

打赏
举报

比如说
function myRemoteData.CreateUnqiueName:string;
var
i :integer;
begin
i := 0
repeat //这个是什么意思?为什么要加一个变量I
result := 'MyproviderName'+IntToStr(i);
Inc(i);
until Self.FindComponent(Result) = nil;

end;

frankie_24 2007-03-22

打赏
举报

那函数怎么建立啊,呵呵,我一点都不明白,因为我看的都是简单的例子,没有你说的建立函数,...可以说清楚点吗?
麻烦了...

netfly 2007-03-22

打赏
举报

你应该在远程数据模块上给一个函数
function myRemoteData.CreateUnqiueName:string;
var
i :integer;
begin
i := 0
repeat
result := 'MyproviderName'+IntToStr(i);
Inc(i);
until Self.FindComponent(Result) = nil;

end;

....

然后在
DataSetPr := TdataSetProvider.Create(Self);
DataSetPr.Name := CreateUnqiueName;
DataSetPr.DataSet :=ADOSet;

//RegisterProvider(DataSetPr); 好象可以不要,如果不行就要吧

RegisterProvider(DataSetPr);

frankie_24 2007-03-22

打赏
举报

我不太理解,因为我是初学三层,什么都不懂,你就给我个代码说说吧...
比如说,客户端喝中间服务器是指那部分?
谢谢了..

netfly 2007-03-22

打赏
举报

呵呵,你的PROVIDER没有给名字

netfly 2007-03-22

打赏
举报

不是,是客户端和中间服务器的连接

frankie_24 2007-03-22

打赏
举报

我用ADO连接的...

Str :='Provider=SQLOLEDB.1;Password='
+ ServerFrm.PasswordEdt.Text
+';Persist Security Info=True;User ID='
+ ServerFrm.UserEdt.Text
+';Initial Catalog='
+ ServerFrm.BaseEdt.Text
+';Data Source='
+ ServerFrm.IPEdt.Text;
ADO.Close;
ADO.ConnectionString :=Str;
ADO.Open;
ADOSet :=TADOQuery.Create(self);
ADOSet.Connection :=ADO;

DataSetPr := TdataSetProvider.Create(Self);
DataSetPr.DataSet :=ADOSet;
RegisterProvider(DataSetPr);
这个是代码,你看看我做的对不对..

netfly 2007-03-22