Consulta Select con if

[giantonti]

funciona perfecta la solucion de al gonzalez, sin embargo sucede que cuando ejecuto el select y la condicion cumple con el "if" me muestra todo lo que esta en la tabla y yo quiero que me muestre solo la conulta

Código Delphi [-]
adoQuery3.SQL.Text := 'Select * From mov where cod_cli = '+QuotedStr (ADOQuery1rif.AsString);

[ecfisa]

Empezado por giantonti

funciona perfecta la solucion de al gonzalez, sin embargo sucede que cuando ejecuto el select y la condicion cumple con el "if" me muestra todo lo que esta en la tabla y yo quiero que me muestre solo la conulta

Código Delphi [-]
adoQuery3.SQL.Text := 'Select * From mov where cod_cli = '+QuotedStr (ADOQuery1rif.AsString);

Hola.

Eso indudablemente sucede por que la propiedad DataSource del TDBGrid no está relacionada con el TDataSource asociado a adoQuery3 (o de estarlo, fué modificada la sentencia SQL que mostras arriba).


Saludos.

[giantonti]

por un momento lo dude, pero revise todo y creeme el datasource esta con el adoquery

Código Delphi [-]
FormSelequipo.adoQuery1.SQL.Text := 'Select * From mov where cod_cli = '+QuotedStr(ADOQuery1rif.asstring);
    FormSelequipo.adoQuery1.Open;
    //If FormSelequipo.adoQuery1.Eof Then
    If FormSelequipo.adoQuery1.IsEmpty Then
    ShowMessage ('No se ha encontrado ningun articulo relacionado ' +
      'con el cliente.')
  Else
  Begin
    Application.CreateForm (TFormSelequipo, FormSelequipo);
     Try
      If FormSelequipo.ShowModal = mrOK Then
      Begin
        ADOQuery1equipo.asstring := FormSelequipo.adoQuery1articulo.AsString;
       ADOQuery1serial.AsString := FormSelequipo.adoQuery1serial.AsString;
      End;
    Finally  // Nos aseguramos de destruir el objeto FormSelequipo
      FormSelequipo.Free;
    End;
  End;

[ecfisa]

Hola.

Pero así pareciera que estas llamando a FormSelequipo.adoQuery1 antes de que esté creado FormSelequipo !!

Si no te lanza una excepción, es que no lo has quitado de [ Proyect -> Options -> Forms -> Auto-create forms ] y por lo tanto si adoQuery3 tiene algún dato, estas creando otra instancia de aquél ...

Si TFormSelequipo esta en Auto-create forms no es necesaria la creación, basta con llamar al método ShowModal.

Particularmente quitaría a FormSelequipo de Auto-create forms y cambiaría mi código por:

Código Delphi [-]
  with TFormSelequipo.Create(Self) do
  try
    adoQuery3.Close;  // (1)
    adoQuery3.SQL.Text := 'Select * From mov where cod_cli = ' +QuotedStr(ADOQuery1rif.asstring); // (2) 
    adoQuery3.Open;
    if adoQuery3.IsEmpty then
      ShowMessage ('No se ha encontrado ningun articulo relacionado con el cliente.')
    else
    begin
      if ShowModal = mrOK then
      begin
         ShowMessage('Aquí las acciones a realizar');
        //...
        //...
      end;
    end;
  finally
    Free;
  end;

Donde:
(1) ADOQuery3 es el TADOQuery que reside en FormSelequipo.
(2) ADOQuery1 es el TADOQuery que reside en el form que invoca al al form anterior.

Saludos.