Error extrañisimo en un Tquery

[lucasarts_18]

Hola a todos:

Tengo el siguiente código de SQL en un Tquery:


With Qry_DatosDoc do
Begin
Close;
SQL.Clear;
SQL.Add('SELECT Doc_Fecha_Ingreso,');
SQL.Add('Doc_Porcen_Descuento,');
SQL.Add('Doc_Total_Descuento,');
SQL.Add('Doc_Total,');
SQL.Add('Vend_Numero,');
SQL.Add('Flag_Cambio ');
SQL.Add('FROM PREVENTA ');
SQL.Add('Where Nro_Atencion = :Nro_Atencion');
ParamByName('Nro_Atencion').AsInteger :=
StrtoInt(vNro_Atencion.text);
//Open;
Active := True;
ShowMessage(IntToStr(Qry_DatosDoc.FieldCount));
//Exit;
ShowMessage(IntToStr(Qry_DatosDoc.ParamByName('Vend_Numero').AsInteger));


Pero me dice que no existe el parametro Vend_numero, pero sin embargo esa consulta la estoy mostrando también en un DbGrid y aparecen los datos y además la columna se llama de ese modo. :eek:

Espero sus ayudas amigos, gracias

Hasta Luego -

[epuigdef]

Buenas!

A lo mejor se está liando un poco porque el nombre del parámetro es igual al nombre del campo. Prueba esto:



SQL.Add('Where Nro_Atencion = :param1');
ParamByName('param1').AsInteger :=
StrtoInt(vNro_Atencion.text);




Un saludo

Edu

[Bicho]

Yo lo que creo es que quien se ha liado ha sido el amigo lucasarts_18, Vend_Numero no es un parámetro en esa Query, sino un campo, si quieres visualizar su contenido deberías hacer lo siguiente:

ShowMessage(IntToStr(Qry_DatosDoc.FieldByName('Vend_Numero').AsInteger));

Espero te sirva.

Saludos

[lucasarts_18]

Amigo bicho, al parecer tienes razón, no tengo delphi en estos momentos para probarlo, cuando llegué a caso veo si es así, nos vemos y gracias..

[lucasarts_18]

Hola:

Solucionado, había que utilizar FieldByName,¿ cómo me pudo pasar desapercibido este error de lógica? :mad: .

Hasta Luego y Gracias..

[Bicho]

Tranquilo a uno que te escribe tambien le pasaron cosas así (http://www.clubdelphi.com/foros/showthread.php?t=28704#5) :D

Saludos