with myxdatas.QAccounts do
begin
close;
sql.Clear;
sql.Add('UPDATE accounts ');
sql.Add('SET password='''+Edit2.text+''' ');
sql.Add('WHERE accounts='''+ComboBox2.text+''' ');
ExecSQL;
end;
运行到ExecSQL就出错,数据库是Access;
begin
close;
sql.Clear;
sql.Add('UPDATE accounts ');
sql.Add('SET password='''+Edit2.text+''' ');
sql.Add('WHERE accounts='''+ComboBox2.text+''' ');
ExecSQL;
end;
运行到ExecSQL就出错,数据库是Access;
解决方案 »
- 请教mysql的数据备份怎么做!用程序作语句怎么写,我写的SQL语句怎么不对,请大家帮我看看,谢谢了!!!
- 我怎么读出Access数据库中表的记录,并产生数据集?高分回报!
- 请各位在数据库方面成功的大哥帮助
- 送分题,关于TTimer的使用
- xywhx(xywhx)进来拿分(4)
- 请问:哪里有pqmagic可下载???或者其他能使 Fat32转成 Fat16的工具?非常感谢
- ▲▲▲关于dbgrid的中某一列值可以象combobox一样可以选择值的?在线等!!!
- 请教关于DCOM和COM+运行环境的问题
- 暂时找不到好的方法,可使用这种方法为什么还是不能删除记录呢?请帮忙!
- 请问如何能返回正确路径???
- 加密问题:怎样用DES加密?
- 急招用Delphi开发人员
写成这样也错误
with myxdatas.QAccounts do
begin
close;
sql.Clear;
sql.Add('UPDATE accounts ');
sql.Add('SET password= :pw ');
sql.Add('WHERE accounts= :accountsName ');
parameters.paramByName('accountsName').value:= ComboBox2.text;
parameters.paramByName('pw').value:= edit2.text;
ExecSQL;
end;
parameters.params[0].asString:= ComboBox2.text;
parameters.params[1].asString:= edit2.text;
如果還不行:
var s:string;s:=' UPDATE accounts SET password='+''''+Edit2.text+''''+
' WHERE accounts='+''''+ComboBox2.text+'''';sql.Add(s);
ExecSQL;
where之前是否空点?
begin
close;
sql.Clear;
sql.Add('UPDATE accounts SET password= :pw WHERE accounts= :accountsName ');
parameters.parameters[1].value:= ComboBox2.text;
parameters.parameters[0].value:= edit2.text; //不要用简写
ExecSQL;
end;
' WHERE accounts='+''''+ComboBox2.text+'''';