sqlstr :='select * from T_table where name=''1''';with Query1 do begin Close; Sql.Clear; Sql.Text := sqlstr; Open; end;
var sqlstr:string; begin ADOQuery1.close; sqlstr:='select * from T_table where name='''+edit1.text+''''; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sqlstr); ADOQuery1.Open; end;
with ADOQuery1 do begin close; sql.clear; sql.text:=sqlstr; open; end;
begin
Close;
Sql.Clear;
Sql.Text := sqlstr;
Open;
end;
begin
ADOQuery1.close;
sqlstr:='select * from T_table where name='''+edit1.text+'''';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADOQuery1.Open;
end;
begin
close;
sql.clear;
sql.text:=sqlstr;
open;
end;