Remobjects 如何执行更新数据的SQL - (Oracle数据库)(50)

  • 主题发起人 主题发起人 mofaser
  • 开始时间 开始时间
M

mofaser

Unregistered / Unconfirmed
GUEST, unregistred user!
对REMObjects不是很熟悉,照着例子写个测试程序,在调用 SQLExecuteCommand('delete from xxx')时报错“No more results”熟悉的朋友能否提醒一下需要注意哪些地方,先谢谢了。
 
这样写: strSQL := 'delete from t_user where FItemID=' + inttostr(FItemID); RemoteDataAdapter.GetDataCall.ParamByName('aSQLText').AsString := strSQL; RemoteDataAdapter.GetDataCall.Execute;
 
谢谢,我试过还是不行,不知道是不是控件属性设置不对。出错提示还是“No more results”
 
GetDataCall 的属性MethodName设置成:SQLExecuteCommand
 
我也试过修改MethodName,还是报那个错误。能占用你一点时间,我把我的例子发给你,你帮我看看可以么?
 
发到我的邮箱
 
不好意思,你的个人信息中没找到你的邮箱地址。
 
是Oracle吧!
 
To Wql,对的,是Oracle,难道是数据库的问题?
 
是的!exe运行时屏蔽即可!调试时候会出现!tryexcept ;end;
 
这样是不会报错,但是好像不能成功执行SQL。procedure TClientForm.Button2Click(Sender: TObject);var aRowsAffacted: integer;begin try aRowsAffacted := FService.SQLExecuteCommand(AnsiToUtf8(Memo.Text)); ShowMessage('aRowsAffacted:'#9 + intToStr(aRowsAffacted)); except //on e: Exception do // ShowMessage(e.Message); end;end;
 
up一下。连接SQL2000数据库是可以执行的。
 
有朋友用过RemObjects么?为什么Oracle数据库不能执行SQLExecuteCommand,项目卡在这里做不下去了。网上能搜到的资料实在是太少了。
 
upup,分不够可以重新开贴,熟悉RemObject的朋友帮忙看看。
 
换一种方法,写一个方法进行更新,前台传个参数到后台试试
 
to littlefish_yxp,再次感谢感谢你对帖子的关注,你是说在服务端自定义一个执行SQL的函数,通过客户端调用吗?怎么定义这个方法,我目前还不知道怎么实现,你那有例子么?
 
再顶,希望遇到用remobject连接oracle的朋友。
 
我实在找不出原因所在,只好把uDAADODriver.pas中调用ExecSQL的函数修改了一下,注释掉异常处理就可以了,但是不知道会不会产生什么影响。 function TDAEADOQuery.DoExecute: integer; begin result := TADOQuery(Dataset).ExecSQL; //if TADOQuery(Dataset).Connection.Errors.Count>0 then //raise Exception.Create(TADOQuery(Dataset).Connection.Errors.Item[0].Description); end; 结贴了,谢谢各位关注的朋友,希望熟悉RO的朋友能告知真正的原因。
 
后退
顶部