Consulta:='Select Rpm, Marcha From TbDatos';
//...
Adoquery1.Sql.Add(Consulta);
Adoquery1.ExecSql; // no no no
para comandos select usa Open o Active
Adoquery1.Open; o Adoquery1.Active := true;
luego para acceder a los valores de RPM y Marcha usa FieldByName()
with Adoquery1 do
begin
Close;
Adoquery1.Sql.Clear;
Adoquery1.Sql.Add(Consulta);
Adoquery1.Open;
while not Eof do
begin
ShowMessage(FieldByName('RMP').AsString);
ShowMessage(FieldByName('Marcha').AsString);
Next;
end;
end;
Saludos,
|