14 replies to this topic

[FGarcia]

Hola!

Para los que se quedaron en casa y no fueron de vacaciones una preguntita.

Estoy usando Delphi XE2, SQLite, UniDac 5.0.2

En un query tengo esta sentencia:

delphi

SELECT MAX(ID) AS max_id FROM CAPDATA;

El campo max_id me aparece como de tipo BLOB type ftMemo, sin embargo el campo ID de CAPDATA esta declarado como Integer y es la Primary Key

Como frontend para SQLite estoy usando SQLiteSpy y al ejecutar la sentencia me aparece el resultado correcto.

En delphi estoy haciendo esto:

delphi

procedure TdmCnx.InsertarTotales(datos: real);
var
  maxId: integer;
begin
   //SELECT MAX(id) FROM TuTabla
 
   qyMaxId.Open;
   maxId := qyMaxId.FieldByName('max_id').Value;
 
end;

el resultado de esto es:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDatabaseError with message 'qyMaxId: Type mismatch for field 'max_id', expecting: Memo actual: LargeInt'.
---------------------------
Break  Continue  Help 
---------------------------

Aqui la pregunta ¿Es posible convertir el blob memo a integer? o como debo de tratar esto.


Saludos!!

[FGarcia]

¿Nadie?

¿Ningun comentario?

[Delphius]

Utiliza .AsInteger en lugar de .Value.
Tampoco descartaría, si los campos son persistentes, que el error se deba a que accidentalmente hayas cambiado sus propiedades y configurarlo del tipo memo.

Saludos.

[FGarcia]

El uso de .AsInteger ya lo habia intentado y no, me continua marcando error.
Lo de haber cambiado accidentalmente el tipo de campo tambien lo pense e hice algunas modificaciones que no tuvieron exito.
Ahora he vuelto a retomar el tema y lo que hice fue borrar el query anterior y borrar la referencia que hacia de el en la ejecucion del programa, he ejecutado el programa sin errores, salve cambios, cerre el IDE, reinicie la maquina y volvi al proyecto. He creado un nuevo query con un nombre diferente pero la misma sentencia sql y si, efectivamente el campo se crea por defecto como ftMemo   

Cosas raras...... 

[Rolphy Reyes]

Saludos.

En un select Id from CAPDATA ¿Cómo lo ve Delphi?.

Por ultimo, puedes probar lo siguiente

delphi

SELECT CAST(MAX(ID) AS INTEGER) AS max_id FROM CAPDATA

[FGarcia]

Saludos.

En un select Id from CAPDATA ¿Cómo lo ve Delphi?.

Como AutoNumeric por lo que supongo es un LongInt.

Por ultimo, puedes probar lo siguiente

delphi

SELECT CAST(MAX(ID) AS INTEGER) AS max_id FROM CAPDATA

El detalle es que max_id es ftMemo y es el que brinca el error, intente hacer un cast ahi pero me marca errores de sintaxis

Near "(": sintax error

Ya busque informacion en la documentacion de sqlite y no hay nada de informacion especial sobre la clausula AS.

[FerCastro]

Hola!

Andaba de vaca no había visto tu mensaje. Trabajo SQLite y Unidac así que quizá pudiera ayudarte.

Yo uso el max pero es sobre un integer, y bien a bien no he entendido bien que es lo que haces tu.

delphi

try
    With DM.qComEvento do
      Begin
      Close;
      SQL.Text := '';
      SQL.Text := 'select max(id_evento) as id_evento from evento';
      Open;
    End;
  Except
    MessageDlg('La Base de Datos no está disponible', mtError, [mbOK], 0);
    exit;
  end;
 
  nID   := DM.qComEvento.FieldByName('ID_Evento').AsInteger;

Algo así es lo que tengo (a grandes rasgos, no tengo el código exacto por si alguien quiere comenzar a decir que faltan cosas). Ahora bien, CREO que no hay manera de hacer un max sobre un blob al menos cobn SQLIte.

Saludos!

[poliburro]

Se me hace amigo, que se autocrearon los campos en tu componente Query. Revisa y si es el caso bórralos.

Saludos.

[FGarcia]

Hola!

Andaba de vaca no había visto tu mensaje. Trabajo SQLite y Unidac así que quizá pudiera ayudarte.

Yo uso el max pero es sobre un integer, y bien a bien no he entendido bien que es lo que haces tu.

delphi

try
    With DM.qComEvento do
      Begin
      Close;
      SQL.Text := '';
      SQL.Text := 'select max(id_evento) as id_evento from evento';
      Open;
    End;
  Except
    MessageDlg('La Base de Datos no está disponible', mtError, [mbOK], 0);
    exit;
  end;
 
  nID   := DM.qComEvento.FieldByName('ID_Evento').AsInteger;

Algo así es lo que tengo (a grandes rasgos, no tengo el código exacto por si alguien quiere comenzar a decir que faltan cosas). Ahora bien, CREO que no hay manera de hacer un max sobre un blob al menos cobn SQLIte.

Saludos!

Pues solo hago esto dentro del editor del UniQuery (SQL statement):

delphi

//Original
SELECT MAX(ID) FROM CAPDATA;
 
//Modificado
SELECT MAX(ID) AS max_id FROM CAPDATA;

ID es la clave primaria autonumerica por lo que su naturaleza es de tipo integer.

En ambas sentencias me regresa que MAX(ID) y max_id son campos de tipo BLOB = ftmemo

Y no, no se autocrean los campos (poliburro) ya intente cambiar el tipo pero no, los errores persisten.

Lo que hice fue esto:

delphi

SELECT * FROM capdatos
ORDER BY ID DESC
LIMIT 1;

y de ahi tome el campo ID y funciona bien

No se si sea detalle de los UniDac con SQLite o yo ando queriendo inventar el hilo negro

[Delphius]

Pues la verdad amigo es que es raro lo que nos describes. La última que me ocurre es que se trata de un bug en UNIDac; al menos en la versión con la que trabajas. 
No debería ser necesario hacer esos pasos indirectos para evitar el problema. Pero mientras así ande, pues que se va a hacer.

Deberías consultar al área de soporte de UNIDac.

Saludos,

[FerCastro]

Pues la verdad amigo es que es raro lo que nos describes. La última que me ocurre es que se trata de un bug en UNIDac; al menos en la versión con la que trabajas. 
No debería ser necesario hacer esos pasos indirectos para evitar el problema. Pero mientras así ande, pues que se va a hacer.

Deberías consultar al área de soporte de UNIDac.

Saludos,

Hola Delphius, no creo que sea bug del Unidac, al menos no en las versiones que he trabajado.

Saludos!!

[FerCastro]

Como adición:

delphi

CREATE TABLE [evento] (
  [ID_Evento] INT NOT NULL,

Así es como está definido el campo en  mi tabla. Ahora bien, podrías indicarme cómo estás declarando el objeto query de unidac??

Saludos!!

skype: gersomfernando

[Delphius]

Pues la verdad amigo es que es raro lo que nos describes. La última que me ocurre es que se trata de un bug en UNIDac; al menos en la versión con la que trabajas. 
No debería ser necesario hacer esos pasos indirectos para evitar el problema. Pero mientras así ande, pues que se va a hacer.

Deberías consultar al área de soporte de UNIDac.

Saludos,

Hola Delphius, no creo que sea bug del Unidac, al menos no en las versiones que he trabajado.

Saludos!!

Si no lo digo por ti, sino por FGarcia. Capaz que el tiene una versión que posee un bug.

Saludos,

[FGarcia]

delphi

CREATE TABLE [evento] (
  [ID_Evento] INT NOT NULL,

Saludos!!

Mi tabla esta declarada asi:

delphi

CREATE TABLE "CAPDATOS" (
  "ID" INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
  "EQUIPO" INTEGER NOT NULL DEFAULT 0,
  "HORAFECHA" TEXT NOT NULL default CURRENT_TIMESTAMP,
  "DATOS" REAL NOT NULL DEFAULT 0
);

El query pues solo lo arrastro de la paleta de componentes al modulo de datos y le cambio el nombre. Automáticamente la propiedad "Connection" se engancha al UniConnection. Declaro la sentencia SQL en el UnyQuery Editor.

La versión de UniDac es 5.0.2 Pro para Delphi XE2

[FGarcia]

Bueno, con la asesoria del gran Jefe Mapache llegamos a esta conclusion y ya funciona todo.

delphi

//Sentencia declarada en el editor 'select max(id) from capdatos;'
  try
    qyMaximo.Close;
    qymaximo.Open;
    //qymaximo.Execute;
    maxId := qyMaximo.FieldByName('max(id)').AsInteger;
  except
    MessageDlg('Error al realizar la consulta', mtError, [mbOK],0);
  end;

Habra sido la falta del close?
algun dcu no actualizado?

Ya funciona! 

Es mediodia y la hora del aperitivo 


Saludos!!


p.d. como se marca que el asunto esta resuelto?