客户端代码:
var data:OleVariant;
begin
result:=-1;
try
totable.filtered:=false;
totable.filter:='';
totable.Close;
result:=mdbc.appconn.AppServer.open(sql,data);
if result<0 then
begin
msgbox('SQL语句出错:'#13#13+sql,'SQL Error',16);
end
else
totable.Recordset:=IUnknown(data) as _recordset;上面代码,如果用dcom连接,可以正常使用
但如果用TSocketConnecttion和TWebConnection,这行就会出错:
totable.Recordset:=IUnknown(data) as _recordset;
难道这二种连接就没法返回数据集了吗?
var data:OleVariant;
begin
result:=-1;
try
totable.filtered:=false;
totable.filter:='';
totable.Close;
result:=mdbc.appconn.AppServer.open(sql,data);
if result<0 then
begin
msgbox('SQL语句出错:'#13#13+sql,'SQL Error',16);
end
else
totable.Recordset:=IUnknown(data) as _recordset;上面代码,如果用dcom连接,可以正常使用
但如果用TSocketConnecttion和TWebConnection,这行就会出错:
totable.Recordset:=IUnknown(data) as _recordset;
难道这二种连接就没法返回数据集了吗?
解决方案 »
- 函数中一个参数是PByte类型,调用的时候,是否需要new和dispose这个PByte参数?
- excel
- 如何实现客户端可以自动搜索出当前网络中的相应服务??》
- 一个关于IntraWeb的基础问题。
- 请提供一个类似qq里分组控件
- 请问List index out of bounds(1)是何意思?
- 如何生成system.ini文件 谢谢大家能够关注
- 网络双绞线内有8小根,究竟起作用的有几根?
- cobi(我是小新,我只有五岁):请进,我是HGL54321
- 为何Action所指定的图标在ToolButton上显示不出来?
- 给CSDN的建议
- 有没有 DevExpress ExpressQuantumGrid Suite V3.22 For Delphi7 下载
http://community.csdn.net/Expert/topic/3252/3252515.xml?temp=.639477
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2801798