capability not supported

[gonza_619]

hola a todos, bueno miren estoy intentando ejecutar dos sentecnias ala vez, en la primera que me saq un valor q lo necesito para la 2da sentencia

Código Delphi [-]
  query1.SQL.Clear;
  query1.SQL.text:='select max(cuota) as cuo from cobranzas where   alucurso='+inttostr(y);
  query1.Active:=true;
  nro:=query1.fieldbyname('cuo').asinteger;

  if nro=2 then
  begin
  showmessage('es 2');
  end;

  query1.Active:=false;
  query1.SQL.Clear;
  query1.SQL.add('select min(saldo) as sal from cobranzas where (alucurso=inttostr(y)) and (cuota=inttostr(nro))');
  query1.Active:=true;
  sa:=query1.fieldbyname('sal').asinteger;

  if sa=10 then
  begin
  showmessage('si es 10');
  form1.Show;
  end;

el nro=2 si me lo muestra pero ahora lo qiero utilizar para referenciar en la 2da sentencia y me tira error , capabylty not supported, en la fila de:
sa:=query1.fieldbyname('sal').asinteger;

ademas nose como hacer mas simple esta sentencia:

query1.SQL.add('select min(saldo) as sal from cobranzas where (alucurso=inttostr(y)) and (cuota=inttostr(nro))');

el valor Y lo saque de una seleccion de un dbgrid anteriormente
bueno si me pueden dar una mano estaria bueno, muchas gracias igualmente

[[Caral]]

Hola

Código Delphi [-]
  query1.SQL.text:='select max(cuota) as cuo from cobranzas where alucurso = '+inttostr(y);
  query1.Active:=true;
  nro:=query1.fieldbyname('cuo').asinteger;

  if nro = 2 then
  begin
  showmessage('es 2');
  end;

  query1.Active:=false;
  query1.SQL.text:='select min(saldo) as sal from cobranzas where alucurso = '+inttostr(y)+' and cuota = '+inttostr(nro);
  query1.Active:=true;
  sa:=query1.fieldbyname('sal').asinteger;

  if sa = 10 then
  begin
  showmessage('si es 10');
  form1.Show;
  end;

Saludos

[gonza_619]

bien ahora si me mostro el 10 gracias

[[Caral]]

Hola
No se......

Código Delphi [-]
  query1.SQL.text:='select max(cuota) as cuo, min(saldo) as sal from cobranzas where alucurso = '+inttostr(y);
  query1.Active:=true;
  nro:= query1.fieldbyname('cuo').asinteger;
  sa:= query1.fieldbyname('sal').asinteger;

  if nro = 2 then
  begin
  showmessage('es 2');
  end;
  if sa = 10 then
  begin
  showmessage('si es 10');
  form1.Show;
  end;

Saludos

[gonza_619]

bien asi puse antes, pero no me tiraba el sal minimo que yo queria (10), sino me tiraba 0, osea el minimo que existia, pero el ultimo que me diste si me agarro el 10, es decir funciono referenciandolo por la cuo y el Y

[[Caral]]

Hola
Solo por jugar.....

Código Delphi [-]
  query1.SQL.Clear;
  query1.SQL.text:='select max(cuota) as cuo, min(saldo) as sal from cobranzas where alucurso = '+inttostr(y);
  query1.Active:=true;
  nro:=query1.fieldbyname('cuo').asinteger;

  if nro = 2 then
  begin
  showmessage('es 2');
  end;

  query1.Active:=False;
  query1.SQL.ADD(' and cuota = '+inttostr(nro));
  query1.Active:=true;
  sa:=query1.fieldbyname('sal').asinteger;

  if sa = 10 then
  begin
  showmessage('si es 10');
  form1.Show;
  end;

Saludos