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

Question

我想用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; 
非常感谢~！

Answer 1

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

Answer 2

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;

Answer 3

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

Answer 4

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;

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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;

Answer 9

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;