客户端sql执行
2016-10-13 本文已影响0人
风语007
1,INewService的AllowExecuteSQL设置为true。NewService_Impl单元右击,属性编辑器里面设置。
2,具体代码如下。需要引入服务端定义接口的单元。
var
FService:INewService;
aRow: Integer;
begin
FService := ClientDataModule.RemoteService as INewService;
aRow := FService.SQLExecuteCommand('update stu set name = concat(name,''2'')');
ShowMessage(IntToStr(aRow));
end;