Pasar el resultado de un Zquery a una variable

[marcoszorrilla]

Aunque con el Zquery no he trabajado, supongo que el problema venga dado por no tener declarados los campos como persistentes.

Te pongo un ejemplo con un Tquery por si fuese de aplicación al Zquery.

Código Delphi [-]
idCategoria:=Tquery.Fields[0].AsInteger;

Un Saludo.

[NeWsP]

Gracias por contestar marcos,

he probado como comentas y me da error de Out of Bounds (0)

Lo he probado asi

Código Delphi [-]
Zquery1.SQL.Clear; // liampiamos query
  Zquery1.sql.add('select `id` from '+Edit5.Text +'.'+Edit6.text+ '_sections');  //memorizamos la nueva ID de la categoria
  Zquery1.SQL.add('WHERE name='+quotedstr(edit1.Text));
  Zquery1.execsql;
  idcategoria:=Zquery1.Fields[0].AsInteger;


  label9.Caption:=inttostr(idcategoria);

Tambien he probado de hacer el execsql despues de la linea

Código Delphi [-]
  idcategoria:=Zquery1.Fields[0].AsInteger;

pero siempre con el mismo Out Of Bounds

pensaba que habria alguna forma de meter el resultado del sql en una variable, ya que hay casos como este, que unicamente puede dar un resultado.

Bueno, seguire mirando a ver si encuentro algo, muchas gracias

[marcoszorrilla]

He estado buscando y he encontrado el siguiente código:

Código Delphi [-]
function getsqlsubquerydatax(sql:string):string;
begin
  result:='';
  zquery.close;
  zquery.sql.text:=sql;
  zquery.open;
  zquery.first;
    while not zquery.eof do
    begin
       if result='' then result:=''''+zquery.fields[0].asstring+'''' else
       result:=result+','''+zquery.fields[0].asstring+'''';

       zquery.next;
    end;
  zquery.close;
    if result='' then result:='''''';

end;

Lo cual me confirma que el código que puse de ejemplo tiene que funcionar, claro que si la consulta no devuelve registros entonces te dara error porque no hay nada que cargar en la variable y por lo tanto la matriz de campos no existe.

Puedes utilizar si Zquer1.RecordCount o IsEmpty para comprobar primero que realmente ha devuelto registros y no acceder de esta manera a una matriz vacía.

Un Saludo.

[roman]

Lo que pasa es que en el código, NeWsP está usando

Código Delphi [-]
Zquery1.execsql;

cuando debería ser

Código Delphi [-]
Zquery1.Open;

como hace Marcos. ExecSQL, al no estar pensada para consultas que devuelven registros, pues se ve que no prepara el dataset para ello.

// Saludos

[marcoszorrilla]

Pues no me había dado cuenta de ese detalle Román, daba por hecho que hacia un Open.

Sin duda por ahí viene el problema.

Un Saludo.

[NeWsP]

Buenas tardes

pues si era eso U_U

Lo tenia que hacer con open, en vez de execsql ... ains

Muchisimas gracias por toda la ayuda que me estais dando, espero algun dia aprender lo suficiente, para poder ayudar a alguien U_U

Saludos