Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2007-11

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

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Daniel Rincón García

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

Si hago esto:

   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:

   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?
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20071126/2e819688/attachment.html>

Reply by email

javivf
to Daniel Rincón García

Daniel Rinc�n Garc�a escribi�:

Show quoted text 32 lines
Hola, necesito capturar el contenido de los campos de una base de datos SQLite en una variable de tipo string. Si hago esto: 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: 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?

Hablo sin exceso conocimiento de causa pero parece que alg�n campo se puede interpretar como alg�n tipo que no sea String, para ello puedes usar algo as� y asegurarte de que trabajas con Strings:

DataToSend := DataToSend + dsTest.FieldbyName['Code'].AsString + '\' +
dsTest.FieldbyName['Name'].AsString + '\' +
dsTest.FieldbyName['Address'].AsString + '#';

Se que la explicaci�n no es muy buena pero el c�digo deber�a ser suficiente , si no lo es intentare explicarme mejor ;)

Show quoted text 7 lines
------------------------------------------------------------------------ _______________________________________________ Lazarus-es mailing list Lazarus-es en lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es

------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20071126/4167d548/attachment.html>

Reply by email