Warning molesto sobre campos de texto en queries ODBC-sqlite

[Víctor de Buen Remiro]

Cualquier consulta a una base de datos sqlite vía ODBC que incluya cualquier campo de texto (char, varchar,text) funciona correctamente , pero nos muestra un molesto warning como éste:

Warning: [1] (Funcion DBTable) La consulta debería devolver un texto, una fecha o un número en el campo 2

Habría que revisarlo no sea que esté escondiendo algún problema importante. Para chequearlo, necesitamos crear un origen de datos ODBC llamado a un archivo local de base de datos sqlite. Luego sólo hay que correr este código TOL.

NameBlock db = DBConnect::Create (
      "sqlite_test","","", 
      "ODBC", "sqlite_test", "", 
      "sqlite test database");

Real db::Open(?);

Real DBExecQuery("
drop table if exists t1;

create table if not exists t1 (
  t1key INTEGER PRIMARY KEY,
  data TEXT,
  num DOUBLE);
insert into t1 (data,num) values ('This is sample data',3);
insert into t1 (data,num) values ('More sample data',6);
insert into t1 (data,num) values ('And a little more',9);
");

Set DBTable("select * from t1 ");

Real db::Close(?);