Question

delphi操作access数据库update语句错误

update语句我用messagebox显示了，但是执行后还是显示update语句错误。

procedure TUpdate_Form.btn1Click(Sender: TObject);
var
i : Integer;
begin
i:=Main_DB.DBGrid1.SelectedField.Value; //获得主窗口鼠标选中的行号
Main_DB.ADOQuery1.SQL.Clear; //清空sql语句
Main_DB.ADOQuery1.SQL.Add('UPDATE table1 set money='+edt1.Text); //添加sql执行语句
Main_DB.ADOQuery1.SQL.Add(',name='+edt2.Text);
Main_DB.ADOQuery1.SQL.Add(',thing='+mmo1.Text);
Main_DB.ADOQuery1.SQL.Add('where id='+ IntToStr(i));
// Main_DB.ADOQuery1.Parameters.ParamByName('qian').Value:= edt1.Text;
// Main_DB.ADOQuery1.Parameters.ParamByName('mingzi').Value:= edt2.Text;
// Main_DB.ADOQuery1.Parameters.ParamByName('shi').Value:= mmo1.Text;
// Main_DB.ADOQuery1.Parameters.ParamByName('num').Value:= IntToStr(i);
ShowMessage(Main_DB.ADOQuery1.SQL.Text);
Main_DB.ADOQuery1.ExecSQL; //执行sql语句
// Main_DB.ADOQuery1.FieldByName('money').Value := edt1.Text;
// Main_DB.ADOQuery1.FieldByName('name').Value := edt2.Text;
// Main_DB.ADOQuery1.FieldByName('thing').Value := mmo1.Text;
// Main_DB.ADOQuery1.Post; //提交，使添加生效
MessageBox(0,'数据更新成功！','提示...',MB_ICONINFORMATION);
end;

语句如上

Answer 1

从截图看：

毛毛 应该是字符型字段，办了一张会员卡 可能是字符型或是 备注型 字段。因此，应该用单引号或是双引号括起来，类似以下：

UPDATE table1 SET money=-30, name='毛毛', thing='办了一张会员卡' WHERE id=27

Answer 2

Main_DB.ADOQuery1.SQL.Add('UPDATE table1 set money='+edt1.Text);
Main_DB.ADOQuery1.SQL.Add(',name='''+edt2.Text+'''');
Main_DB.ADOQuery1.SQL.Add(',thing='''+mmo1.Text+'''');
Main_DB.ADOQuery1.SQL.Add('where id='''+ IntToStr(i));

你现在SQL中文哪里没引号.肯定不行

Answer 3

字段是varchar()类型的，也就是string类型的，一定要加引号的！