用ADOQUERY为何不能带参数删除？？

[gzrex]

DEPTID:='001';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('DELETE DEPT WHERE DEPTID=:SPDEPTID')
dept.Parameters.ParamByName('spdeptid').asstring:=deptid;
dept.ExecSQL;
请问以上代码为何不能编译。

DEPTID:='DELETE DEPT WHERE DEPTID='+'001';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD(deptid)
dept.ExecSQL;
以上代码能编译，但不删除001记录。

请各位大虾释疑。

[jiaorg]

dept.Parameters.ParamByName('spdeptid').asstring:=deptid;
dept.ExecSQL;

改称

ADOQUERY1.Parameters.ParamByName('spdeptid').asstring:=deptid;
ADOQUERY1.ExecSQL;

[gzrex]

不好意思，刚刚写错了，应是以下代码出问题。
DEPTID:='001';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('DELETE DEPT WHERE DEPTID=:SPDEPTID') adoquery1.Parameters.ParamByName('spdeptid').asstring:=deptid;
adoquery1.ExecSQL;
请问以上代码为何不能编译。
DEPTID:='DELETE DEPT WHERE DEPTID='+'001';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD(deptid) dept.ExecSQL;
以上代码能编译，但不删除001记录。 请各位大虾释疑。

[luoshumeng]

你只用改为
ADOQUERY1.Parameters[0].asstring:=deptid;
ADOQUERY1.ExecSQL;
如果有多个参数的话就依次了
如：
ADOQUERY1.Parameters[1].asstring:=deptid;
ADOQUERY1.ExecSQL;

[luoshumeng]

老兄，帮忙看一下我的问题吧，没有人回复呢，关于注册表的

[Carfield]

DEPTID:='001';
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('DELETE from DEPT WHERE DEPTID=:SPDEPTID')
ADOQUERY1.Parameters.ParamByName('spdeptid').asstring:=deptid;
ADOQUERY1.ExecSQL;

[jiaorg]

>不好意思，刚刚写错了，应是以下代码出问题。
>DEPTID:='001';
>ADOQUERY1.CLOSE;
>ADOQUERY1.SQL.CLEAR;
>ADOQUERY1.SQL.ADD('DELETE DEPT WHERE DEPTID=:SPDEPTID')

>adoquery1.Parameters.ParamByName('spdeptid').value:=deptid;
//修改在这里
>adoquery1.ExecSQL;

请问以上代码为何不能编译。

》DEPTID:='DELETE DEPT WHERE DEPTID='+'001';
》ADOQUERY1.CLOSE;
》ADOQUERY1.SQL.CLEAR;
》ADOQUERY1.SQL.ADD(deptid)
》dept.ExecSQL;
该成adoquery1.execsql;

[gzrex]

不行，编译时出错[Error] unit_dept.pas(98): Undeclared identifier: 'asstring'

[dream_y]

在dephi中的SQL语句中的数字是不能有引号的！
如果DEPTID:='001';是数字形：>DEPTID:=001;
ADOQUERY1.CLOSE;
ADOQUERY1.SQL.CLEAR;
ADOQUERY1.SQL.ADD('DELETE DEPT WHERE DEPTID=:'+inttostr(SPDEPTID));

adoquery1.Parameters.ParamByName('spdeptid').value:=deptid;
adoquery1.ExecSQL;



如果DEPTID:='001';是字符形：>DEPTID:='001';
>ADOQUERY1.CLOSE;
>ADOQUERY1.SQL.CLEAR;
>ADOQUERY1.SQL.ADD('DELETE DEPT WHERE DEPTID=:'''+SPDEPTID+'''');

>adoquery1.Parameters.ParamByName('spdeptid').value:=deptid;
>adoquery1.ExecSQL;

[snowmiao2002]

我以前也遇到类似的问题
在使用时要有关键字from.
ADOQrySave.SQL.Clear ;
ADOQrySave.Parameters.Clear;
ADOQrySave.SQL.Add ('delete from dept where deptid='='001');
ADOQrySave.ExecSQL ;
ADOqrysave.Close ;

[gzrex]

已解决问题，多谢各位相助。谢谢。