在服务器添加一个方法GetData([in] BSTR str, [out] VARIANT * data, [out] short * succ );
当客户端传个sql语句给服务器像这样,下面是客户端的代码
var
data:OleVariant;
succ:integer;
begin
dm.SocketCon.AppServer.getdata('select * from t1',data,succ);
if succ=1 then
dm.CDS_dept.Data:=data;
end;
在服务器这个getdata这个方法的代码要怎么写
当客户端传个sql语句给服务器像这样,下面是客户端的代码
var
data:OleVariant;
succ:integer;
begin
dm.SocketCon.AppServer.getdata('select * from t1',data,succ);
if succ=1 then
dm.CDS_dept.Data:=data;
end;
在服务器这个getdata这个方法的代码要怎么写
begin
try
// 假定用 ADOQuery 组件,可以是静态创建或动态创建
with ADataSetProvider.DataSet as TADOQuery do
begin
Close;
SQL.Text:=str;
Open;
end;
Data:=ADataSetProvider.Data;
succ:=True;
except
succ:=False;
end;
end;