Criar tabela em tempo de execução

[ppoluis]

Olá,

Como eu faço para criar uma tabela em tempo de execução caso ela não exista?

Estou utilizando o Lazarus com SQLite.

Obrigado

Editado:

Resolvi o meu problema com os seguintes comandos:

Code: [Select]

query.SQL.Text:= 'create table if not exists usuarios (nome varchar(100), email varchar(100))';
query.ExecSQL;
transaction.Commit;

Existe um modo melhor de fazer isso?

Obrigado

[ezlage]

Bom cara,

Nunca trabalhei com Lazarus e SQL Lite, mas se ele possuir um componente Table, talvez possa fazer o que eu faço com o DBF:

Code: [Select]

              with Central.configDBF do begin
                Close;
                with FieldDefs do begin
                  Clear;
                  Add('campo1_cfg',ftInteger,1);
                  Add('campo2_cfg',ftBoolean);
                end;
                CreateTable;
                Open;
Ainda acho melhor criar via script mesmo, mas cada necessidade é uma necessidade.
Abraço.