谁来帮我啊~！？？？？关于ADOQUERY

[fenzi]

我想用adoquery控件实现下面的同样功能应该怎么写？

INSERT INTO WORKERS(No#,Name,Sex,Age,Depart) VALUES
(:No#,:Name,:Sex,Age,:Depart)
在程序中则应该加入下列语句:
Query1.Close;
Query1.ParamByName(‘No#').asintegar:=2717;
Query1.ParamByName(‘Name').asstring:=‘李四';
Query1.ParamByName(‘Sex').asstring=‘男';
Query1.ParamByName(‘Age').asinteger:=40;
Query1.ParamByName(‘Depart').asstring:=‘品质管理’;
Query1.ExecSQL;
非常感谢~！

[suiyuxing]

With ADOQuery1 do
begin
Close;
with SQL do
begin
Clear;
Add(.......');
ParamByName().asstring:='11';
end;
open;

[zsjzwj]

ADOQuery1.Close;
ADOQuery1.ParamByName(‘No#').asintegar:=2717;
ADOQuery1.ParamByName(‘Name').asstring:=‘李四';
ADOQuery1.ParamByName(‘Sex').asstring=‘男';
ADOQuery1.ParamByName(‘Age').asinteger:=40;
ADOQuery1.ParamByName(‘Depart').asstring:=‘品质管理’;
ADOQuery1.ExecSQL;

[jpyc]

INSERT INTO WORKERS(No#,Name,Sex,Age,Depart) VALUES
(2717,'李四','男',40,'品质管理' )

[tiexinliu]

WITH ADOQuery1 DO
BEGIN
Close;
SQL.CLEAR;
SQL.ADD('INSERT INTO WORKERS(No#,Name,Sex,Age,Depart)
VALUES (:No#,:Name,:Sex,:Age,:Depart)');
ParamByName(‘No#').asintegar:=2717;
ParamByName(‘Name').asstring:=‘李四';
ParamByName(‘Sex').asstring=‘男';
ParamByName(‘Age').asinteger:=40;
ParamByName(‘Depart').asstring:=‘品质管理’;
TRY
ExecSQL;
EXCEPT
END;
END;

[fenzi]

楼上的兄弟们！~adoquery的parambyname好象不能用？你们是不是有点照葫芦画瓢啊？

[雨后阳光2000]

Parameters[0].asintegar:=2717;
Parameters[1].asstring:=‘李四';
Parameters[2].asstring=‘男';
Parameters[3].asinteger:=40;
Parameters[4].asstring:=‘品质管理’;

[fenzi]

楼上兄弟你试过没有？parameters[0]后面是没数据类型！编译出错啊~！

[fhuibo]

ADOQuery1.Close;
ADOQuery1.ParamByName('No#').asintegar:=2717;
ADOQuery1.ParamByName('Name').asstring:='李四';
ADOQuery1.ParamByName('Sex').asstring='男';
ADOQuery1.ParamByName('Age').asinteger:=40;
ADOQuery1.ParamByName('Depart').asstring:='品质管理';
ADOQuery1.ExecSQL;

[fenzi]

感谢‘雨后阳光’问题解决了，，感谢你的提示，

[caiyiming]

var s:string;
begin
s := 'INSERT INTO WORKERS(No#,Name,Sex,Age,Depart)';
s := s + 'VALUES(''%s'',''%s'',''%s'',''%s'') ';
s := Format(s,['2717',‘李四',‘男','40',‘品质管理’]);
Query1.Close;
Query1.sql.text := s;
Query1.ExecSQL;