Foros Club Delphi - Problema con consulta SQL sencilla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Problema con consulta SQL sencilla (https://www.clubdelphi.com/foros/showthread.php?t=83860)

sac	07-08-2013 17:08:01

Problema con consulta SQL sencilla

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

07-08-2013 17:25:28

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

07-08-2013 18:13:56

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	08-08-2013 12:44:38

Eh...

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

08-08-2013 17:59:18

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

08-08-2013 21:21:25

Cita:

Empezado por sac (Mensaje 465158)

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

Alejandro73

08-08-2013 22:24:46

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

08-08-2013 23:04:40

Cita:

Empezado por Alejandro73 (Mensaje 465226)

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

09-08-2013 23:16:00

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	13-08-2013 15:41:40

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

13-08-2013 19:26:09

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

La franja horaria es GMT +2. Ahora son las 21:18:15.