我先把TASDOQUERY进行了查询操作,紧接着用TADOQUERY进行修改
程序就会报错!我用的是同一个 TADOQUERY;以下是我的程序,其中AQ是TADOQUERY控件;
谢谢!
procedure TFrm_manage_vip.BtnModifyClick(Sender: TObject);
var
strSql : string;
begin
strSql := ’select * from smp124 where dcUserMobile = ’’’;
strSql := strSql + self.EditMobile.Text + ’’’’;
aq.Close ;
aq.SQL.Clear;
aq.SQL.Add(strSql);
aq.Open ;
if aq.RecordCount <= 0 then
begin
showmessage(’没有符合条件的记录!’);
exit;
end;
strSql := ’update smp124 set dcUserName = ’’’ + self.EditUserName.Text + ’’’’;
strSql := strSql + ’dcusermemo = ’’’ + self.RichEditMemo.Text + ’’’’;
aq.Close ;
aq.SQL.Clear;
aq.SQL.Add(strSql);
try
aq.ExecSQL ; //程序在这里报错!
except
showmessage(’修改失败!’);
end;end;
程序就会报错!我用的是同一个 TADOQUERY;以下是我的程序,其中AQ是TADOQUERY控件;
谢谢!
procedure TFrm_manage_vip.BtnModifyClick(Sender: TObject);
var
strSql : string;
begin
strSql := ’select * from smp124 where dcUserMobile = ’’’;
strSql := strSql + self.EditMobile.Text + ’’’’;
aq.Close ;
aq.SQL.Clear;
aq.SQL.Add(strSql);
aq.Open ;
if aq.RecordCount <= 0 then
begin
showmessage(’没有符合条件的记录!’);
exit;
end;
strSql := ’update smp124 set dcUserName = ’’’ + self.EditUserName.Text + ’’’’;
strSql := strSql + ’dcusermemo = ’’’ + self.RichEditMemo.Text + ’’’’;
aq.Close ;
aq.SQL.Clear;
aq.SQL.Add(strSql);
try
aq.ExecSQL ; //程序在这里报错!
except
showmessage(’修改失败!’);
end;end;
解决方案 »
- 请教一个问题:C++这段代码如何转化成DELPHI的代码
- SQL语句中单引号转义符的问题
- 我刚完成了一个小程序,请大帮我评价一下,主要从界面定制方面评价。评者都有分。
- 如何检测数据库连接是否正常?
- 在dbgrid控件中,当按下ctrl+del 时,是删除意思。我想把这个2个键屏蔽掉,怎么写?
- 在delphi7下用Rave实现报表功能-看看我的操作步骤有什么错。
- 请教:我用Delphi6写了一个ActiveForm,用Delphi的run|Register ActiveX Server注册就可以用,但自己做的CAB注册的就用不了,我查了注册
- 如何设回屏幕的分辨率?
- 打印的问题,急!!!!
- 高分求救存储过程执行错误
- 这是什么病毒啊,我完蛋了。
- 动态数组问题
’,dcusermemo = ’’’
你俩个字段间差一个符号: ,
ADOConnection.Execute('update sometable set...');
strSql := ’update smp124 set dcUserName = ’’’ + self.EditUserName.Text + ’’’’;
strSql := strSql + ’dcusermemo = ’’’ + self.RichEditMemo.Text + ’’’’;
dcusermemo : 加空格
2.再你检查了Sql语句没有问题时,就是ADO驱动的问题了;我原来也遇到过莫名其妙的错误,代码对的,就是更新时无法执行。