delphi delete

Posted 2023-03-25

with data.DataM.Qproduct do
begin
close;
sql.Clear;
sql.Add('delete from Fproduct where pnumber<>:A ');
parameters.ParamByName(':a').Value :='P000000000';
execsql;
end;
总是提示A参数有问题

delphi中参数的定义用冒号加参数名来表示，本题中:A就是参数，在使用参数时只需要参数名即可，不需要再加上冒号，parameters.ParamByName(':a').Value :='P000000000';这句应改为parameters.ParamByName('A').Value :='P000000000';切记 参考技术A 改一下参数名吧，delete后面加个*号吧，还有就是，ParamByName(':a')，这里的a不能带冒号了
sql.Add('delete * from Fproduct where pnumber<>:aabb ');
parameters.ParamByName('aabb').Value :='P000000000'; 参考技术B 参数不应该带冒号啊 参考技术C cwlovemf 正解

delphi query的delete方法

procedure TForm9.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.add('select * from password where 用户名='+''''+edit1.text+''''+'and 密码='+''''+edit2.text+'''');
query1.Open;
if query1.RecordCount<>0 then
begin
query1.delete;
showmessage('删除成功');
end
else
begin
application.MessageBox('密码错误,请重新输入','提示',mb_ok);
edit1.SetFocus;
end;
end;

主要功能是实现用户名的删除
运行后提示错误:invalid use of keywords

query1.SQL.add('select * from [password] where [用户名]=''' +edit1.text+'''and [密码]='''+ edit2.text+'''');

初步估计是你的表名或字段用到了关键字，应该是你的用户名字段为user吧，两边要加上中括号
所有表名和字段都加上中括号就万无一失了 参考技术A procedure TForm9.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.add('select * from password where 用户名='+''''+edit1.text+''''+'and 密码='+''''+edit2.text+'''');
query1.Open;
if query1.RecordCount<>0 then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.add('DELETE from password where 用户名='+''''+edit1.text+''''+'and 密码='+''''+edit2.text+'''');
query1.EXECSQL;
showmessage('删除成功');
end
else
begin
application.MessageBox('密码错误,请重新输入','提示',mb_ok);
edit1.SetFocus;
end;
end;