我寫一個ADO數據感知控件,我是這樣定義的:
Type
FConnection : TADOConnection;
FQuery : TADOQuery;
Property Connection:TADOConnection read FConnection Write FConnection;
控件在屬性内容時是正確的。但是儅我把FConnection設置成FQuery的Connection時,
就提示錯誤,錯誤提示:Missing Connection or ConnectionString.
這是怎麽囘事?請大蝦指點一下。謝謝謝謝!!!!!!!!!!
Type
FConnection : TADOConnection;
FQuery : TADOQuery;
Property Connection:TADOConnection read FConnection Write FConnection;
控件在屬性内容時是正確的。但是儅我把FConnection設置成FQuery的Connection時,
就提示錯誤,錯誤提示:Missing Connection or ConnectionString.
這是怎麽囘事?請大蝦指點一下。謝謝謝謝!!!!!!!!!!
看看
如果这样,你可以先试试fConnection.Open看看会不会保错?
如果不报错,你马上把设置FQuery.connection:=fConnection
再看看
private
FConnection :TADOConnection ;
function GetConnection: TADOConnection; virtual;
procedure SetConnection(newValue: TADOConnection); virtual;published
property connection : TADOConnection read GetConnection write SetConnection;实现部分:
procedure T*****.SetConnection(newValue: TADOConnection);
begin
if FConnection <> newValue then
begin
FConnection := newValue;
end;
end;function T****.GetConnection: TADOConnection;
begin
GetConnection := FConnection;
end; {GetConnection}