Cobol + Sqlite

[Joseg]

Para quem pretende aceder ao Sqlite sem ter que fazer nenhuma instalação.
Acesso muito rápido.
Tenho um sistema em produção que movimenta Gbytes sem qualquer problema.

Um exemplo:

01 comando.
03 pic x(15) value "sqlite3 ex1.db ".
03 mystring pic x(200).

- Nova base de dados:
INVOKE pow-self "Execute" USING 'sqlite3.exe ex1.db .quit' POW-SWHIDE

- Nova tabela
INVOKE pow-self "ExecuteSync" USING 'sqlite3 ex1.db ";create table tb1 (tb1key INTEGER
PRIMARY KEY,data TEXT,num double,timeEnter DATE);";' POW-SWHIDE


- Atualizar
string '";insert into tb1 (data,num) ' delimited by size "values ('Linha1,9);" delimited by
size '";' delimited by size into mystring
INVOKE pow-self "Execute" USING comando POW-SWHIDE

string '";insert into tb1 (data,num) ' delimited by size "values ('Linha2,19);" delimited by
size '";' delimited by size into mystring
INVOKE pow-self "Execute" USING comando POW-SWHIDE

string '";insert into tb1 (data,num) ' delimited by size "values ('Linha3,212);" delimited by
size '";' delimited by size into mystring
INVOKE pow-self "Execute" USING comando POW-SWHIDE

- query
INVOKE pow-self "ExecuteSync" USING 'sqlite3 ex1.db ";select * from tb1";; >teste.txt' POW- SWHIDE

- ver resultado:
Processar teste.txt
ou
move "CommandLine" OF pow-self to "Caption" OF CmStatic1 ----> não testei isto, não sei se funciona