procedure TForm1.Button1Click(Sender: TObject); begin with ADOQuery1 do begin if Active then Close; SQL.Clear; SQL.Add('select * from tablename where'); sql.Add(' rq between :#start and :#end'); Parameters.ParamByName('#start').Value := edit1.text; Parameters.ParamByName('#end').Value := edit2.text; try Open; except ShowMessage('fuck ,那么搞呢??^_^'); end; end; end;
begin
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
SQL.Add('select * from tablename where');
sql.Add(' rq between :#start and :#end');
Parameters.ParamByName('#start').Value := edit1.text;
Parameters.ParamByName('#end').Value := edit2.text;
try
Open;
except
ShowMessage('fuck ,那么搞呢??^_^');
end;
end;
end;