Pasar el resultado de un Zquery a una variable

[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