query1.close;
query1.SQL.Clear;
query1.sql.add('insert into ttt (id,name,mony) values ('000001','ljf','13')');
query1.ExecSql;
query1.SQL.Clear;
query1.sql.add('insert into ttt (id,name,mony) values ('000001','ljf','13')');
query1.ExecSql;
调试欢乐多
改为:
query1.Execsql;当TQuery用于select ... from ...时用Open;
否则用execsql,如insert, update, delete ...
THANK DELPHI FAN !