adoquery如何插入数据(30分)

function selectquery(sql : string) :TADOQuery ;
var aQuery : tadoquery;
begin
aQuery := TADOQuery.Create(nil);
aQuery.Connection := dmaconnection.adoconnection1;
aQuery.SQL.Add(sql);
aquery.Close;
aquery.open;
result := aquery;
end;


运行
var aquery2 : tadoquery;
begin
aquery2 := selectquery('insert into username(用户名,密码,姓名) values (''b'',''bb'',''bbb'')');
aquery2.Free;
系统提示出错
请问哪里错了

function selectquery(sql : string) :TADOQuery ;
var aQuery : tadoquery;
begin
aQuery := TADOQuery.Create(nil);
aQuery.Connection := dmaconnection.adoconnection1;
aQuery.SQL.Add(sql);
aquery.execsql;//不是open
result := aquery;
end;

对了，应该整一个ExecQuery的function，把两种不同的操作分开，或是在一个函数里面判断一下，对于insert update delete这样的语句都是要用execsql的

function selectquery(sql : string,type:integer) :TADOQuery ;
var aQuery : tadoquery;
begin
aQuery := TADOQuery.Create(nil);
aQuery.Connection := dmaconnection.adoconnection1;
aQuery.SQL.Add(sql);
if type=1 then aquery.open;///1为查询
if type=2 then aquery.execsql;////更新或别的什么
aquery.free;
result := aquery;
end;

是我就直接把TADOQuery 当参数传了,当过程写!再说,你那个不是执行了吗?怎么要返回个值再free,直接free掉不可以吗?不明白你想干什么!如果就为了free一下传过来没什么必要吧!

同意以上所说

多人接受答案了。