Que onda, lo que pasa es que trato de hacer una consulta anidada, pero pareciera que mi adoquery se queda vacio. El codigo es el siguiente
Código Delphi
[-]
disp:='Disponible';
fec:=DATETOSTR(DATETIMEPICKER1.Date);
hr:=ComboBox5.Text;
Código SQL
[-]
Datamodule4.ADOQuery3.SQL.Clear;
Datamodule4.ADOQuery3.SQL.Add('select Equipo.Folio,Nom_equipo,Marca ');
Datamodule4.ADOQuery3.SQL.Add(' from Equipo');
Datamodule4.ADOQuery3.SQL.Add(' where Equipo.Estado=:disp and Equipo.Folio not in ');
Datamodule4.ADOQuery3.SQL.Add(' (SELECT Apartado.Folio FROM Apartado WHERE Fecha_Prest=:fec AND Hr_Prest=:hr)');
DAtamodule4.ADOQuery3.Parameters.ParamByName('disp').Value:=disp;
Datamodule4.ADOQuery3.Parameters.ParamByName('fec').Value:=fec;
Datamodule4.ADOQuery3.Parameters.ParamByName('hr').Value:=hr;
Código Delphi
[-]
Datamodule4.ADOQuery3.Open;
if Datamodule4.ADOQuery3.Eof then
Showmessage('vacio');
Datamodule4.DataSource3.DataSet:=Datamodule4.ADOQuery3;
DBGrid1.DataSource:=Datamodule4.DataSource3;
El mensaje de vacio lo pongo para ver si me asigna las instrucciones a mi adoquery y siempre me manda el mensaje de vacio, osea que no tiene nada. Alg uien me puede decir donde esta el error. Porque no me manda nada a mi dbgrid, y si nada mas hago las primeras dos lineas de laconsulta,si sale y si me manda los datos al dbgrid, gracias de antemano