高手帮忙！！数据库操作

Question

var a:string;
begin
a:='delete from ruku where 品名='+trim(edit1.text);
query1.close;
query1.sql.add(a);
query1.open;
执行时报错啊！！！我想做删除和修改！！高手大哥帮我啊！

Answer 1

我用的是delphi自带的数据库！！

Answer 2

a:='delete from ruku where 品名='''+trim(edit1.text)+''';

Answer 3

除了Select操作，其余的SQL操作请使用query1.ExecSQL执行！

Answer 4

除了Select操作，其余的SQL操作请使用query1.ExecSQL执行！
当然，如果你的‘品名’字段是字符型，请这样写SQL字符:
a:='delete from ruku where 品名='+#39+trim(edit1.text)+#39;
#39代表单引号，当然你也可以用参数的形式！

Answer 5

var a:string;
begin
a:='delete from ruku where 品名='''+trim(edit1.text)+'''';
query1.close;
query1.sql.add(a);
query1.ExecSQL;//执行sql操作
query1.open;

Answer 6

a:='delete from ruku where 品名='+trim(edit1.text);
改为->
a:='delete from ruku where 品名='+Quotedstr(trim(edit1.text));
//Quotedstr函数就是处理字符串加单引号的

Answer 7

var a:string;
begin
a:='delete from ruku where 品名='''+trim(edit1.text)+'''';
query1.close;
query1.sql.add(a);
query1.ExecSQL;//执行sql操作