gracias LEPE por la aclaracion ya que fue de mucha ayuda para poder
ubicarme pensar en este codigo que tiene algo de relacion a lo que me pusiste
este codigo esta en un boton
Cita:
procedure Taulas.busca_diaClick(Sender: TObject);
var fecha_pres : string ;
begin
fecha_pres := datetostr(fecha_dia.datetime);
with ADOCommand1 do begin
CommandText := 'SELECT cod_aul, fecha_prest,nombre_presta,apellido_presta FROM presto_ WHERE cod_aul = :codigo_aula and ((hora_entrada > :hora_ent and hora_entrada < :hora_sal) or (hora_salida > :hora_ent and hora_salida < :hora_sal )) and fecha_prest = :fecha_prestamo ';
CommandType := cmdText;
Parameters.ParamByName('codigo_aula').Value := aula_dia.text;
Parameters.ParamByName('hora_ent').Value := dia_hora1.text;
Parameters.ParamByName('hora_sal').Value := dia_hora2.text;
Parameters.ParamByName('fecha_prestamo').DataType:=ftdatetime;
Parameters.ParamByName('fecha_prestamo').Value := fecha_dia.datetime
end;
ADODataSet1.Recordset := ADOCOMMAND1.Execute;
if ADODataset1.Recordset.RecordCount = 0 then
begin
showmessage((' El Aula ingresada esta siendo acupada por: ')+adodataset1.FieldByName('nombre_presta').Value); //aqui es donde recide mi problema porque cuando se ejecuta este error me dice "invalid variant type conversion" y no asi cuando lo anulo porque ya me salen el showmessage((' El Aula ingresada esta siendo acupada por: ') pero todas la aulas aunque no este en la base de datos almacenada
guardar.Enabled:=false;
end
else
begin
showmessage('No se a encontrado niguna reserva');
guardar.Enabled:=true;
end;
end;
|
como te habras de dado cuenta que persisto en sacar el showmessage ya que para esta aplicacion es indispensable y necesario y tiene que aparecer el nombre y apellido del que ha reservado y bueno
Gracia una vez mas y que tengan un buen dia
