//参考如下代码
var
S: string
begin
Query1.SQL.Text := 'SELECT Field1 FROM Table1 WHERE Field2 = ''Value2''';
Query1.Open;
S := Query1.FieldByName(Field1).AsString;
Query1.Close;
ShowMessage(S);
end;//用SQL语句写查询,用TDataSet取字段的值
var
S: string
begin
Query1.SQL.Text := 'SELECT Field1 FROM Table1 WHERE Field2 = ''Value2''';
Query1.Open;
S := Query1.FieldByName(Field1).AsString;
Query1.Close;
ShowMessage(S);
end;//用SQL语句写查询,用TDataSet取字段的值
begin
close;
Sql.clear;
sql.add('select 字段名 from 表名 where 条件 ');
ExecSQL;
end;
变量:=query.field[0].asstring;
var:=FieldByName('Field').Value;