sql 语句在delphi中的应用！！在线等

Question

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select *');
adoquery1.SQL.Add('from kuwzmx');
adoquery1.SQL.Add(where ID > ''id''');//其中ID,id均为integer型，且ID在表kuwzmx里是主键
adoquery1.SQL.Add('order by ID desc');
adoquery1.Open;
我的目的是找出表kuwzmx中 ID大于 id 的所有纪录，可是上面的做法不能实现，请高手指点

Answer 1

注意空格：
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.text:='select * from kuwzmx where ID>'+id+' order by ID desc';//其中ID,id均为integer型，且ID在表kuwzmx里是主键
adoquery1.Open;
我的目的是找出表kuwzmx中 ID大于 id 的所有纪录，可是上面的做法不能实现，请高手指点

Answer 2

注意空格：
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from kuwzmx where ID>' + IntToStr(id) + ' order by ID desc');
adoquery1.open;

Answer 3

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from kuwzmx where ID > :id order by ID desc');
adoquery1.Parameters.ParambyName('id').value := StrToInt(edit1.text);
//Change here!
adoquery1.Open;

Answer 4

假设
var
id:integer;
begin
id:=strtoint(edit1.text);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from kuwzmx where ID>''' +inttostr(id)+ ''' order by ID desc');
adoquery1.open;

Answer 5

同意Kshape([伟大的大伟!]/一心考研中!) 的作法。
adoquery1.Parameters.ParambyName('id').value := StrToInt(edit1.text);
不转换成int类型也可以的。

Answer 6

adoquery1.SQL.Add(where ID > ''id''');
改为：adoquery1.SQL.Add('where ID > '''+id+'''');
是下应该行；
如果是Access则
adoquery1.SQL.Add('where ID > '+id+);
具体Id根据实际转化成字符型应该可以了

Answer 7

能不分行写的尽量不分开写.
adoquery1.SQL.add('select * from kuwzmx where ID>''' +inttostr(id)+ ''' order by ID desc');

Answer 8

UP....
adoquery1.SQL.add('select * from kuwzmx where [ID]>''' +inttostr(id)+ ''' order by ID desc');

Answer 9

var
id:integer;
begin
with adoquery1 do begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from kuwzmx where ID> :id order by ID desc');//ID与id都为整型
adoquery1.Parameters.ParambyName('id').value := StrToInt(edit1.text);
adoquery1.open;
end ;