Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   capability not supported (https://www.clubdelphi.com/foros/showthread.php?t=69962)

gonza_619 21-09-2010 22:04:37

capability not supported
 
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 21-09-2010 22:12:46

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 21-09-2010 22:35:42

bien ahora si me mostro el 10 gracias

Caral 21-09-2010 23:02:36

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 21-09-2010 23:07:27

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 21-09-2010 23:13:22

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


La franja horaria es GMT +2. Ahora son las 04:35:11.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi