SQL查询后赋值问题！

Question

想要将“select devicexzb from mapinf where device:=edit1.text”得到的值赋给一个变量，代码应该怎么写？

Answer 1

AdoQuery1.Connection := con_bakDataBase;
    AdoQuery1.Close;
    AdoQuery1.SQL.Text := 'select count(distinct userid) from AwardLog';
    AdoQuery1.Open;
    stText1.Caption := AdoQuery1.Fields[0].AsString;

Answer 2

AdoQuery1.Connection := con_bakDataBase;
AdoQuery1.Close;
AdoQuery1.SQL.Text := 'select devicexzb from mapinf where device='''+edit1.text+'''';
AdoQuery1.Open;

Answer 3

procedure TForm2.Button3Click(Sender: TObject);
type TDrawline=record
     qdx:integer;
     qdy:integer;
     zdx:integer;
     zdy:integer;
end;
var DrawLine:TDrawLine;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select devicexzb from mapinf where device="'+edit1.text+'"';
ADOQuery1.Open;
Drawline.qdx:=ADOQuery1.Fields[4].AsInteger;
Drawline.qdy:=ADOQuery1.Fields[5].AsInteger;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select devicexzb from mapinf where device="'+edit2.text+'"';
ADOQuery1.Open;
Drawline.zdx:=ADOQuery1.Fields[4].AsInteger;
Drawline.zdy:=ADOQuery1.Fields[5].AsInteger;
form1.Image1.Canvas.MoveTo(Drawline.qdx,Drawline.qdy);
form1.Image1.Canvas.LineTo(Drawline.zdx,Drawline.zdy);
end;错误：标准表达式中数据类型不匹配。哪里出错了呢？

Answer 4

将'select devicexzb from mapinf where device="'+edit1.text+'"';中的devicexzb改成 * 之后，可以用DBGrid可以显示正确的查询结果，但是就是画不出线来。

Answer 5

ADOQuery1.SQL.Text:='select devicexzb from mapinf where device='+Trim(edit2.text);你的device是数字型的。