SQLite 3 --> Capturar el contenido de los campos en una variable

[kakarotv5]

Hola, necesito capturar el contenido de los campos de una base de datos SQLite en una variable de tipo string.

Si hago esto:

Código Delphi [-]
while not dsTest.EOF do
 begin
  DataToSend := DataToSend + 
  dsTest.FieldValues['Code'] + '\' +
  dsTest.FieldValues['Name'] + '\' + 
  dsTest.FieldValues['Address'] + '#';
  dsTest.Next;
 end;

Obtengo el siguiente mensaje de error:

Project raised exception class 'RunError(231)'.

Si hago esto entonces funciona:

Código Delphi [-]
while not dsTest.EOF do
 begin
  Cod := dsTest.FieldValues['Code'];
  Nam := dsTest.FieldValues['Name'];
  Addr := dsTest.FieldValues['Address'];
  DataToSend := DataToSend + Cod + '\' + Nam + '\' + Addr + '#';
  dsTest.Next;
 end;

Pero tengo que declarar tres variables de tipo string (Cod, Nam and Addr).

¿Alguien me ayuda?

[[basti]]

Probablemente el error provenga de algún tipo de conversión automática de Variant con los operadores '+'.

Prueba con

Código Delphi [-]
      DataToSend := DataToSend + 
                             dsTest.FieldByName['Code'].AsString + '\' +
                             dsTest.FieldByName['Name'].AsString + '\' + 
                             dsTest.FieldByName['Address'].AsString + '#';

[afxe]

El problema es que si accedes a la propiedad FieldValues de los campos obtienes un Variant, es decir un dato de tipo variable, que hasta que no sea usado no se define su tipo. Por eso te funciona cuando lo asignas a variables, porque la variable ya tiene tipo. Utiliza la propiedad FieldByName o los campos persistentes más el tipo de aceso que le quieras hacer: .AsInteger, .AsString, .AsDateTime....

oops.. veo que se me han adelantado en la respuesta.

Saludos-

[kakarotv5]

Lo he cambiado por esto:

Código Delphi [-]
while not dsTest.EOF do
 begin
  DatosAEnviar := DatosAEnviar +
                        dsTest.FieldValues['Código'].AsString + '\' +
                        dsTest.FieldValues['Nombre'].AsString + '\' +
                        dsTest.FieldValues['Dirección'].AsString + '#';
  dsTest.Next;
 end;

y me da este error:

Project raised exception class 'EVariantInvalidOpError'

EDITO: Al final lo he solucionado así:

Código Delphi [-]
while not dsTest.EOF do
 begin
  DatosAEnviar := DatosAEnviar +
                         dsTest.FieldByName('Código').AsString + '\' +
                         dsTest.FieldByName('Nombre').AsString + '\' +
                         dsTest.FieldByName('Dirección').AsString + '#';
  dsTest.Next;
 end;

Por cierto, veo que sabeis de SQLite, yo no he encontrado mucha información al respecto de esta base de datos, ¿sabéis de algún buen manual?

Gracias a todos y un saludo.

[afxe]

No he trabajado nunca con SQLite, lo que pasa es que tu duda era sobre el acceso a la clase TField de un TDataSource, y ese es un problema de uso de dichas clases, independientemente del motor de base de datos que elijas. Es decir, te hubiese pasado lo mismo si hubieras usado Firebird, Interbase, Paradox o Dbase.

Saludos.