关于delphi7中provider的诡异问题 高分相送 up有分

[sdwtao]

我创建了一个transaction datamodule 在其中的 放入了 adoconnection，两个adoquery，一个datasetprovider

当我直接将adoquery设一个sql然后 河provider联系在一起的时候
我的客户端的clientdataset能够取得上面组件提供的provider（在属性表中）

可是当我将adoquery中新坚一个lookup字段，河adoquery2
联系在一块之后，再重新注册该com＋组件。这次客户端的clientdataset就找不到
这个provider了。

真不知道是未什么？

哪位高人指点一下，兄弟我高分相送。实在是急啊～～～

[jeremychen001181]

不懂

[mickeyjiang]

不用直接通过属性连接Provide，写一个简单的方法把Provide的Data属性返回就可以

[sdwtao]

可以肯定的是该provider一定注册的有问题
我不知道 provider的注册是怎么整的

似乎通过data属性来传递数据，对自定义的字段好像不太灵 ，不知道诸位平时一般是怎么办的？

[sdwtao]

peter兄 这种方法我试过
你在
http://expert.csdn.net/Expert/topic/1647/1647153.xml?temp=.7055475
贴上也看到了

关键我不知道究竟是盗版问题 还是我做的不对
究竟provider注册需要什么条件

[WangPeter]

是否ADOQuery2在适当时候应该Active啊。

[dreamonce]

不懂,只能up

[kingecg]

up

[WangPeter]

我看了http://expert.csdn.net/Expert/topic/1647/1647153.xml?temp=.7055475。
是启用缓冲池的问题，要解决问题请参阅：
http://expert.csdn.net/Expert/topic/1600/1600678.xml?temp=.7698633。

[Frend]

up

[sdwtao]

peter兄
我还是不能把这个问题和缓冲池联系起来

能否给解释一二？

[lillin]

请写详细点比如说明SQL
语句还有各个控件的重要属性写出来。

[cgh1970]

up

[sdwtao]

transaction datamodule组件的部分代码
type
TmtsStocks = class(TMtsDataModule, ImtsStocks)
adocKM: TADOConnection;
adoqStocks: TADOQuery;
dspStocks: TDataSetProvider;
procedure MtsDataModuleActivate(Sender: TObject);
procedure MtsDataModuleDeactivate(Sender: TObject);
procedure MtsDataModuleDestroy(Sender: TObject);
procedure dspStocksAfterApplyUpdates(Sender: TObject;
var OwnerData: OleVariant);
procedure dspStocksUpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError;
UpdateKind: TUpdateKind; var Response: TResolverResponse);
private
{ Private declarations }
protected
class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
public
{ Public declarations }
end;
impletment
procedure TmtsStocks.MtsDataModuleActivate(Sender: TObject);
var config:IcoEnvConfig;
connectstring :widestring;
begin
config:=CocoEnvConfig.Create;
config.GetConnectString(connectstring);
adocKM.ConnectionString:=connectstring;
adocKM.Connected:=true;

end;

procedure TmtsStocks.MtsDataModuleDeactivate(Sender: TObject);
begin
if IsInTransaction then
SetComplete;
adocKM.Connected:=false;
end;
procedure TmtsStocks.MtsDataModuleDestroy(Sender: TObject);
begin
adocKM.Connected:=false;
end;

procedure TmtsStocks.dspStocksAfterApplyUpdates(Sender: TObject;
var OwnerData: OleVariant);
begin
SetComplete;
end;

procedure TmtsStocks.dspStocksUpdateError(Sender: TObject;
DataSet: TCustomClientDataSet; E: EUpdateError; UpdateKind: TUpdateKind;
var Response: TResolverResponse);
begin
Response:=rrAbort;
SetAbort;
end;

重要的属性
object mtsStocks: TmtsStocks
OldCreateOrder = False
OnDestroy = MtsDataModuleDestroy
OnActivate = MtsDataModuleActivate
OnDeactivate = MtsDataModuleDeactivate
Pooled = False
Left = 247
Top = 125
Height = 366
Width = 353
object adocKM: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=KM;Data Source=.'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 56
Top = 40
end
object adoqStocks: TADOQuery
Connection = adocKM
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from stocks')
Left = 192
Top = 48
end
object dspStocks: TDataSetProvider
DataSet = adoqStocks
OnUpdateError = dspStocksUpdateError
AfterApplyUpdates = dspStocksAfterApplyUpdates
Left = 128
Top = 112
end
end

[sdwtao]

呵呵 兄弟们 问题已经不出现了 但是究竟为什么会这样 还有待 弟兄们讨论

[sdwtao]

不过我将objectpooling的所有相关选项全部给去掉了

[二手夏利]

up

[wslashy]

你说的问题我已经测过了，而且连上后程序运行正常，没有你说的问题，
嗯，可能是你操作的时候有失误的地方，

[sdwtao]

不知道是不是盗版原因
反正我的provider注册老是不成功（客户端找不到）

[WangPeter]

直接填上ProviderName就行了么。

[sdwtao]

给分拉