5,388
社区成员
发帖
与我相关
我的任务
分享修改数据库数据出错，小弟在线等，速结贴。
一段修改数据库数据的代码，执行报错：'missing right quote',估计是sql语句出错，因为showmessage('pass')可以执行.代码如下：
DataModule2.Table2.Active := true;
with DataModule2.Table2 do
begin
SetKey;
FieldByName('序号').AsString:=Edit7.Text;
if GotoKey then
begin
showmessage('pass');
DataModule2.Query1.Close;
DataModule2.Query1.SQL.Clear;
DataModule2.Query1.SQL.Add('update emailtable set 姓名 = ''+edit1.Text+'',年龄= ''+edit5.Text+'' ,班级=''+edit6.Text+'', 备注= ''+memo2.Text+'' where 序号=''+edit7.Text+');
DataModule2.Query1.ExecSQL;
showmessage('pass');
unit4.main.Refresh;
end;
end;
望高手指点，小弟在线等。
DataModule2.Table2.Active := true;
with DataModule2.Table2 do
begin
SetKey;
FieldByName('序号').AsString:=Edit7.Text;
if GotoKey then
begin
showmessage('pass');
DataModule2.Query1.Close;
DataModule2.Query1.SQL.Clear;
DataModule2.Query1.SQL.Add('update emailtable set 姓名 = ''+edit1.Text+'',年龄= ''+edit5.Text+'' ,班级=''+edit6.Text+'', 备注= ''+memo2.Text+'' where 序号=''+edit7.Text+');
DataModule2.Query1.ExecSQL;
showmessage('pass');
unit4.main.Refresh;
end;
end;
望高手指点，小弟在线等。
...全文
请发表友善的回复…
发表回复
haoguozhong 2003-10-10
- 打赏
- 举报
去掉unit4.main.Refresh试试
ranhefei 2003-10-10
- 打赏
- 举报
同上
vinsen790615 2003-10-10
- 打赏
- 举报
你在执行的时候代码窗口显示的是什么错误？？
masepu 2003-10-10
- 打赏
- 举报
太晚了，明天一早来吧。
