Consultas Múltiples

[theloren07]

Bueno aquí esta la estructura de código que utilizo...

Código Delphi.
--------------------------------------------------------------------------------

Código Delphi [-]
procedure TFrmMConsultas.Button1Click(Sender: TObject);
begin
Dmodulo.ADOQuery1.Close;
Dmodulo.ADOQuery1.SQL.Clear;
Dmodulo.ADOQuery1.Sql.Add('Select * From Empleados ');
Dmodulo.ADOQuery1.Sql.Add('Where estadocivil = '+QuotedStr(Combobox1.Text));
Dmodulo.ADOQuery1.Open;
//QrListado.preview;
if Dmodulo.ADOQuery1.eof then
begin
if application.messagebox('Registros no encontrados','Salir',mb_yesno+mb_iconquestion)=idyes then
CLOSE;
end else
begin
QrListado.preview;
end;
end;
end.

--------------------------------------------------------------------------------

Aún no me funciona...

[[Caral]]

Hola
De momento se me ocurre que el campo estadocivil debe ser texto, entonces no veo la necesidad de la trasformacion, por otro lado yo lo haria en un solo codigo, algo asi:

Código Delphi [-]
procedure TFrmMConsultas.Button1Click(Sender: TObject);
begin
Dmodulo.ADOQuery1.Close;
Dmodulo.ADOQuery1.Sql.Text:= 'Select * From Empleados Where estadocivil = ' +Combobox1.Text;
Dmodulo.ADOQuery1.Open;

Primero, al usar text, se borra lo que hay en el query sin hacer nada.
Segundo, es mas clara la sentencia en un solo paso.
Tercero, como dije, me parece que el campo estadocivil, debe ser un campo tipo texto.
Recuerda, ayuda de novato, no te fies mucho, solo prueba.
Saludos

[[egostar]]

Tienes un pequeño detalle y es lo que te está creando el conflicto mental

No uses la comparación de EoF, siempre será verdad con o sin registros, mejor usa RecordCount.

Código Delphi [-]
procedure TFrmMConsultas.Button1Click(Sender: TObject);
begin
  Dmodulo.ADOQuery1.Close;
  Dmodulo.ADOQuery1.SQL.Clear;
  Dmodulo.ADOQuery1.Sql.Add('Select * From Empleados ');
  Dmodulo.ADOQuery1.Sql.Add('Where estadocivil = '+QuotedStr(Combobox1.Text));
  Dmodulo.ADOQuery1.Open;
  if Dmodulo.ADOQuery1.RecordCount = 0 then begin //Esta es la comparación que debe de ir
     if application.messagebox('Registros no encontrados','Salir',mb_yesno+mb_iconquestion)=idyes then
        Close;
     end 
     else begin
            QrListado.preview;
     end;
  end;
end;

Salud OS.

[theloren07]

Muy cierto caral, el campo que utilizo es tipo texto, ya hace lo quería que hiciera, esta la estructura por si alguien más la llega a necesitar.

********************************************************

Código Delphi [-]
procedure TFrmMConsultas.Button1Click(Sender: TObject);
begin
Dmodulo.ADOQuery1.Close;
Dmodulo.ADOQuery1.SQL.Clear;
Dmodulo.ADOQuery1.Sql.Add('Select * From empleados ');
Dmodulo.ADOQuery1.Sql.Add('Where estadocivil='+#39+Combobox1.Text+#39);
Dmodulo.ADOQuery1.Open;
QrListado.preview;
end;
end.

Les agradezco a marcozorilla, egostar y caral por ayudarme en este problema, muchas gracias nuevamente por su tiempo invertido y dar gracias a DIOS que existen personas como ustedes, que DIOS LE BENDIGA.