with adoquery1 do begin close; sql.clear; sql.text := 'insert into tablename(field1.. ) values(:1,:2..)'; parameters.parambyname('1').value := edit1.text; .. execsql; end;
with query1 do close; sql.add(insert into tablename values(字段)); parambyname('字段')as..:=...
with query1 do close; sql.add(insert into tablename values(字段)); parambyname('字段')asstring:=edit.text; exec.sql;
with ADOQUERY1 do begin close; sql.clear; sql.add('insert into tablename(ziduan1,ziduan2,...) values(:1,:2,..)'); parameters.parambyname('1').value:=yourvalue; parameters.parambyname('2').value:=yourvalue2; ; execsql;
同意 wyr521(论坛王子),你照他的做,绝对没问题
with ADOQUERY1 do begin close; sql.clear; sql.add('insert into tablename(ziduan1,ziduan2,...) values(:1,:2,..)'); parameters.parambyname('1').value:=yourvalue; parameters.parambyname('2').value:=yourvalue2; ; execsql;注意:一定要用execsql语句执行没有返回结果的sql语句! 和普通查询是不一样的!
query.Insert;
query.fieldByName(...).AsString:=...;
...
query.post;
...
begin
close;
sql.clear;
sql.text := 'insert into tablename(field1.. ) values(:1,:2..)';
parameters.parambyname('1').value := edit1.text;
..
execsql;
end;
close;
sql.add(insert into tablename values(字段));
parambyname('字段')as..:=...
close;
sql.add(insert into tablename values(字段));
parambyname('字段')asstring:=edit.text;
exec.sql;
begin
close;
sql.clear;
sql.add('insert into tablename(ziduan1,ziduan2,...) values(:1,:2,..)');
parameters.parambyname('1').value:=yourvalue;
parameters.parambyname('2').value:=yourvalue2;
;
execsql;
begin
close;
sql.clear;
sql.add('insert into tablename(ziduan1,ziduan2,...) values(:1,:2,..)');
parameters.parambyname('1').value:=yourvalue;
parameters.parambyname('2').value:=yourvalue2;
;
execsql;注意:一定要用execsql语句执行没有返回结果的sql语句!
和普通查询是不一样的!