季 季晓峰 Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-02 #1 例如我用一个adoquery作了一个查询select * from employee 我如何把所有的记录打包传送呢
S snake Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-02 #2 看看这个 http://www.delphibbs.com/delphibbs/DispQ.asp?LID=376708
S Shd Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-02 #3 在类型库里加入如下函数 function SelectData(const SqlStr: WideString): OleVariant; safecall; //实现部分 function TAppServer.SelectData(const SqlStr: WideString): OleVariant; begin with TempADOQuerydo begin Close; SQL.Clear; SQL.Text := SqlStr; try Open; Result := DynamicProvider.Data; finally Close; end; end; end;
在类型库里加入如下函数 function SelectData(const SqlStr: WideString): OleVariant; safecall; //实现部分 function TAppServer.SelectData(const SqlStr: WideString): OleVariant; begin with TempADOQuerydo begin Close; SQL.Clear; SQL.Text := SqlStr; try Open; Result := DynamicProvider.Data; finally Close; end; end; end;
上 上帝的弃儿 Unregistered / Unconfirmed GUEST, unregistred user! 2001-01-02 #4 用Provider把adoquery和clientdataset连接， 在把clientdataset.data作参数传出去。
