★★★delphi中的sql语句执行问题

Question

select distinct name from people
where id = 001

Answer 1

var
  sqlstr : string;
  name : string;
begin
  sqlstr := 'select name from people where id = '+''''+'001'+'''';
  AdoQuery1.close;
  AdoQuery1.sql.clear;
  AdoQuery1.sql.add(sqlstr);
  AdoQuery1.open;
  name := AdoQuery1.FieldByName('name').asstring;
end;

Answer 2

用FieldByName方法,如:
var
  sPeopleId: string;
  sPeopleName: string;
sPeopleId := FieldByName('id').AsString;
sPeopleName := FieldByName('name').AsString;也可以通过字段序号来访问,如:
DataSet.Fields.Fields[index]
index是字段的序号. 

Answer 3

用debug，找一个段点将sqlstr，放到sqlpuls里执行就可以看到。

Answer 4

不知能不能帮你搜索
 Str:='Select Name From people Where id='+''''+'001'+'''';
 Query1.close; 
  Query1.sql.clear;
 Query1.sql.a(Str);
query1.open;
  如果要将搜索的字段显示出来：
  
   
   Edit1.text:=Query1.FieldByName('name').AsString;