|
Marco,
Eu utilizo esta fun��o para alguns
campos long string no meu banco. � simples.
Antes de incluir este campo no
banco, compacte-o com a fun��o.
...
Call SalStrCompress( lsObservacao )
- Esta fun��o retorna a mesma vari�vel e ficar� com dois sinais, maior e
menor ( >< )
Call SqlPrepareAndExecute( hSql,
'
insert into XXXX ( ..., :OBSERVACAO, ...
) values ( ..., :lsObservacao, ... )' )
Quanto vc for fazer o select desta
tabela, selecione normalmente e depois descompacte-o,
assim:
Call
SqlPrepareAndExecute( hSql,'
Select ... OBSERVACAO, ... from XXXXX into ..., :lsObservacao, ...
)
Call SqlFetchNext( hSql, nFetch ) Call SalStrUncompress( lsObservacao ) O
proprio campo, no caso um list box, onde vc vai "jogar" a informa��o �
descompactado.
Espero
que ajude.
Ricardo Ranzatti
|
