Problema con consulta SQL sencilla

[sac]

Tengo un problema pero no veo cuál es...
en un sql agrego éste texto:

Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text:='SELECT Max(Cod_Ventas) +1 as CV FROM Libreria_Venta';
Query2.Open;
CodigoVenta.Caption := query2.FieldByName('CV').AsString ;

Sin embargo cuando corro el programa me dice que el "field cv" no lo reconoce...

...?

[ecfisa]

Hola sac.

Acordate de usar las etiquetas [delphi] [/delphi] cuando incluyas código Delphi.

El código que mostras no tendría que darte ese error, es muy extraño.... ¿ Con que gestor de bd estas trabajando ?

Saludos.

[defcon1_es]

Por probar...

Código Delphi [-]
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text:='SELECT (Max(Cod_Ventas) +1) as CV FROM Libreria_Venta';
Query2.Open;
CodigoVenta.Caption := query2.FieldByName('CV').AsString ;

[sac]

Sorry Ecfica por lo de las etiquetas...
Peor todavía. Ahora tengo miedo que sea una cosa tan tonta que... Me pasa que el código antes funcionaba pero no veo el error. Estoy trabajando con Paradox y delphi 7.
Las tablas están activas... no se donde mirar ya.
De ante mano si es algo tonto disculpas.
Pero acepto cualquier otra sugerencia.

[Alejandro73]

Estimado

Probastes el codigo que dejo defcon1_es, yo tengo una consulta similar a la expuesta por defcon1_es y funciona perfectamente.

PD: No hay peor diligencia que la que no se hace

Saludos

[[oscarac]]

Empezado por sac

Tengo un problema pero no veo cuál es...
en un sql agrego éste texto:

Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Text:='SELECT Max(Cod_Ventas) +1 as CV FROM Libreria_Venta';
Query2.Open;
CodigoVenta.Caption := query2.FieldByName('CV').AsString ;

Sin embargo cuando corro el programa me dice que el "field cv" no lo reconoce...

...?

me parece que el error esta en el tipo de Dato, estas diciendo que te muestre CV.Asstring cuando deberia ser cv.AsInteger

[Alejandro73]

Estimado

el codigoventa.caption recibe string, si lo pasas como integer debes aplicar un IntToStr antes, ya que de lo contrario te indicara error en el tipo de dato.

Saludos

[[oscarac]]

Empezado por Alejandro73

Estimado

el codigoventa.caption recibe string, si lo pasas como integer debes aplicar un IntToStr antes, ya que de lo contrario te indicara error en el tipo de dato.

Saludos

Código Delphi [-]
Query2.Close; 
Query2.SQL.Clear; 
Query2.SQL.Text:='SELECT (Max(Cod_Ventas) +1) as CV FROM Libreria_Venta'; 
Query2.Open; 
CodigoVenta.Caption := InttoStr(query2.FieldByName('CV').AsInteger) ;

[orodriguezca]

Para mi el código es 100% correcto, por favor coloca el mensaje de error exacto que muestra la aplicación, tal vez sea un problema de interpretación del mensaje de error.

[sac]

Hola de nuevo gente.
Les quiero contestar/agradecer.

No se todavía que pasó pero juro que revisé el código varias veces, lo compilé etc,etc y... No andaba.
Bueno. Seguí un poco con otra parte del código y cuando compilé me encuentro con que también me fucionó ésta consulta sql. Por qué? no sé, pero ahora anda perfecto asi que gracias.

Ya tengo otra consulta pero eso es otra historia.

[[oscarac]]

la consulta si esta perfecta, lo que no esta bien es como pretendes obtener el dato de la consulta