10 respuestas en este tema

[fredycc]

Que tal colegas, he querido crear un parámetro por código en un ZReadOnlyQuery y auqnue no me da error en la asignación y ejecución no me devuelve nada, aunque debería hacerlo, pues creando todo en modo diseño funciona  :

delphi

var
  nParam: TParam;
begin
  ZReadOnlyQuery2.Clear;
  ZReadOnlyQuery2.SQL.Add('SELECT tUsUsuarios.CodUsuario,  tClOficinas.NomOficina, tUsUsuarios.NombreCompleto');
  ZReadOnlyQuery2.SQL.Add('FROM   tUsUsuarios INNER JOIN');
  ZReadOnlyQuery2.SQL.Add('       tClOficinas ON tUsUsuarios.CodOficina = tClOficinas.CodOficina');
  ZReadOnlyQuery2.SQL.Add('WHERE CodUsuario =  :CodUsuario');
 
  //Crear parámetro
  ZReadOnlyQuery2.Params:= TParams.Create();
  nParam:= ZReadOnlyQuery2.Params.CreateParam(ftString,'CodUsuario',ptInput);
  ZReadOnlyQuery2.Params.AddParam(nParam);
 
  ZReadOnlyQuery2.ParamByName('CodUsuario').Value := Edit1.Text;
  ZReadOnlyQuery2.Open;
.
.

Agradecería su apoyo.
Saludos

[andres1569]

Hola,

No tengo los componentes Zeos para comprobarlo pero me temo que la linea

delphi

ZReadOnlyQuery2.Params:= TParams.Create();

no hace falta puesto que "lo normal" (insisto que no tengo Zeos) es que no tengas que crear la estructura Params sino que ésta ya venga creada en el componente, tú sólo tienes que crear el parámetro que quieres añadir.

Saludos

[Wilson]

Además de lo que comenta Andres, podrías revisar que no estás colocando un espacio en blanco en la sexta y octava líneas, por lo tanto la sentencia podría quedar  "pegada".
Ensaya asi:

delphi

var
  nParam: TParam;
begin
  ZReadOnlyQuery2.Clear;
  ZReadOnlyQuery2.SQL.Add('SELECT tUsUsuarios.CodUsuario,  tClOficinas.NomOficina, tUsUsuarios.NombreCompleto');
  ZReadOnlyQuery2.SQL.Add(' FROM   tUsUsuarios INNER JOIN');
  ZReadOnlyQuery2.SQL.Add('       tClOficinas ON tUsUsuarios.CodOficina = tClOficinas.CodOficina');
  ZReadOnlyQuery2.SQL.Add(' WHERE CodUsuario =  :CodUsuario');
 
  //Crear parámetro
 
  ZReadOnlyQuery2.ParamByName('CodUsuario').Value := Edit1.Text;
  ZReadOnlyQuery2.Open;
.
.

[fredycc]

Gracias por sus comentarios, he modificado el código según sus sugerencia, pero no lo consigo aún, empiezo a pensar q es cosa de Zeos aunque tengo una de las últimas versiones, el código sin éxito es este:

delphi

  ZReadOnlyQuery2.SQL.Clear;
  ZReadOnlyQuery2.SQL.Add('SELECT tUsUsuarios.CodUsuario,  tClOficinas.NomOficina, tUsUsuarios.NombreCompleto ');
  ZReadOnlyQuery2.SQL.Add('FROM   tUsUsuarios INNER JOIN tClOficinas ON tUsUsuarios.CodOficina = tClOficinas.CodOficina ');
  ZReadOnlyQuery2.SQL.Add('WHERE CodUsuario =  :CodUsuario');
  //Crear Parametro
  //ZReadOnlyQuery2.Params:= TParams.Create();
  nParam:= ZReadOnlyQuery2.Params.CreateParam(ftString,'CodUsuario',ptInput);
  ZReadOnlyQuery2.Params.AddParam(nParam);
  ZReadOnlyQuery2.ParamByName('CodUsuario').Value := Edit1.Text;

Saludos.

[Rolphy Reyes]

Saludos.

No comprendo la necesidad de crear un parámetro, donde ya lo habías definido en tu sentencia SQL.

Te invito a probar si tu sentencia devuelve registros sin pasarle parámetros, me refiero a esto: 

delphi

  ZReadOnlyQuery2.Close;
  ZReadOnlyQuery2.SQL.Clear;
  ZReadOnlyQuery2.SQL.Add('SELECT tUsUsuarios.CodUsuario,  tClOficinas.NomOficina, tUsUsuarios.NombreCompleto ');
  ZReadOnlyQuery2.SQL.Add('FROM   tUsUsuarios INNER JOIN tClOficinas ON tUsUsuarios.CodOficina = tClOficinas.CodOficina ');
  ZReadOnlyQuery2.SQL.Add('WHERE CodUsuario =  ' + Edit1.Text);
  ZReadOnlyQuery2.Open;

Si el campo CodUsuario fuese String:

delphi

  ZReadOnlyQuery2.Close;
  ZReadOnlyQuery2.SQL.Clear;
  ZReadOnlyQuery2.SQL.Add('SELECT tUsUsuarios.CodUsuario,  tClOficinas.NomOficina, tUsUsuarios.NombreCompleto ');
  ZReadOnlyQuery2.SQL.Add('FROM   tUsUsuarios INNER JOIN tClOficinas ON tUsUsuarios.CodOficina = tClOficinas.CodOficina ');
  ZReadOnlyQuery2.SQL.Add('WHERE CodUsuario =  ' + QuotedStr(Edit1.Text));
  ZReadOnlyQuery2.Open;

Prueba y nos avisas...

[eduarcol]

No se porque lo creas, a mi asi me funciona

delphi

ZReadOnlyQuery2.SQL.Clear;
  ZReadOnlyQuery2.SQL.Add('SELECT tUsUsuarios.CodUsuario,  tClOficinas.NomOficina, tUsUsuarios.NombreCompleto ');
  ZReadOnlyQuery2.SQL.Add('FROM   tUsUsuarios INNER JOIN tClOficinas ON tUsUsuarios.CodOficina = tClOficinas.CodOficina ');
  ZReadOnlyQuery2.SQL.Add('WHERE CodUsuario =  :CodUsuario');
  //Crear Parametro
  ZReadOnlyQuery2.ParamByName('CodUsuario').AsXxxx := Edit1.Text;

[fredycc]

No comprendo la necesidad de crear un parámetro, donde ya lo habías definido en tu sentencia SQL.

Q tal Rolphy, lo mismo pensé, pero me al colocar el query en tiempo de ejecución me manda un error al querer usarlo como parámetro pues como según entendí no existe el parámetro. Cómo bien mencionas me ha funcionado.

No se porque lo creas, a mi asi me funciona

Hola eduarcol, interesante, he visto que usaste en vez de value al momento de pasar el valor al parámetro AsString, mmm lo probaré.

Aunque este en un query pequeño en comparación del resto y quiero reutilizar el objeto, me obliga en determinados casos a cambiar el query y sus parámetros del mismo, pero al fin pude agregar el parámetro correctamente en tiempo de ejecución, y lo comparto a continuación:

delphi

ZReadOnlyQuery2.Params.Clear;
ZReadOnlyQuery2.Params.CreateParam(ftString,'CodUsuario',ptInput);
ZReadOnlyQuery2.Params.AddParam(nParam);

Donde es necesario agregar: Params.Clear; y listo, al fin funcionó, agradezco su valiosa colaboración.

[Delphius]

Yo no uso Zeos pero me resulta raro que sea necesario crear el parámetro de forma explícita. Como lo han indicado los compañeros, los parámetros son creados de forma automática.

Además quisiera hacer una observación si me lo permiten: El uso de AddParam, y RemoveParam están desaconsejados, y en la misma medida también lo está CreateParam.
Se mantienen por cuestión de compatibilidad.

La ayuda (de D6) lo indica. la sentencia:

delphi

ZReadOnlyQuery2.Params.CreateParam(ftString,'CodUsuario',ptInput);
ZReadOnlyQuery2.Params.AddParam(nParam);

Lo que hace es agregar dos veces el parámetro en cuestión. CreateParam ya de por si lo crea y lo agrega.

Dices que te sale un error, ¿Podríamos saber textualmente cual es ese error? Eso nos podría ayudar a determinar verdaderamente la causa del problema. ¿Reúsas al mismo componente para ejecutar otras consultas? ¿Te aseguraste de cerrarlo apropiadamente? ¿No será que por casualidad habías creado los parámetros de forma persistente?

Me parece que hay que revisar bien que está pasando aquí. Si nos puedes aportar más información sobre tu caso...

Saludos,

[fredycc]

Hola Delphius, como bien preguntas, el detalle es que  reutilizo el mismo componente para un par de consultas distintas , ya que si solo especificaba el sql, al querer asignar valores me indicaba que tal parámetro no existia, lo encontré en un manual de Zeos que creo baje de su sitio oficial, el ejemplo era:

delphi

[color=#000081][size=2][font=couriernewpsmt]
[LEFT]Var TheStream : TMemoryStream;[/LEFT]
  Begin
  TheStream := TMemoryStream.Create;
  Try
  Image1.Picture.Bitmap.Savetostream(TheStream);
  With qryBlobInsert do Begin
  Sql.Text := 'INSERT INTO EVENTS (EventNo,EVENT_PHOTO) ' +
  'VALUES (100,:ThePicture)';
  Params.Clear;
  Params.CreateParam(ftBlob,'ThePicture', ptInput);
  ParamByName('ThePicture').LoadfromStream(TheStream,ftBlob);
  ExecSQL;
  End;
  Finally
  TheStream.Free;
  End;
  End;[/font][/size][/color]

Saludos

[Marc]

Hola.

Hola Delphius, como bien preguntas, el detalle es que  reutilizo el mismo componente para un par de consultas distintas ,

En ese caso normalmente es mejor utilizar tantos componentes como consultas distintas tienes.

NOTA: Siempre puedes jugar con el control DataSource para que los controles dataaware se enlacen con la consulta utilizada en cada momento.

[Delphius]

Hola fredycc,
Al decir cosas como:

al querer asignar valores me indicaba que tal parámetro no existia

Pero ello en realidad no nos aclara bien del todo cual es la causa real del problema. Más bien obscurece el panorama. Insisto en conocer el error exacto que te arroja, con nombres y apellidos...

Sabiendo que reutilizas, es muy posible que el error venga arrastrado de algún otro lado, una consulta anterior mal cerrada, un parámetro persistente... en fin, hay unas cuantas posibilidades y sin tener un conocimiento más profundo de lo que estás realizando lo veo un tanto complicado hallar una respuesta certera.

Saludos,