Lazarus

Other Languages => Portuguese => Topic started by: nightrider on September 25, 2011, 01:26:26 pm

Title: INSERT em base SQLite 3 não adiciona o registro no DB
Post by: nightrider on September 25, 2011, 01:26:26 pm

Estou usando TSlite3Dataset. Entao eu faco:

if eh-inclusao then
begin;
   if cdsInventario.Active then cdsInventario.Close;
   // O SELECT abaixo sempre retornara zero linhas
   cdsInventario.SQL := 'select * from tbl795 where nridbem = -69';
   try
     cdsInventario.Open;
     cdsInventario.Insert;
   except
      erro de erro open/insert bla bla bla
   end;
   try
     cdsInventario.FieldByName('cdnivelctl').AsInteger := 0;
     ----
     // diversas atribuicoes como a acima
     ----
     ShowMessage('vai fazer o POST');
     cdsInventario.Post;
   except
      erro de insert bla bla bla
  end;
  if cdsInventario.AppyUpdates then
    ShowMessage('Erro ApplyUpdates');
  ShowMessage('final da insercao');
end; // if eh-inclusao

- Recebo a msg que vai fazer o POST
- Nao recebo mensagem de erro no ApplyUpdates
- Recebo a mensagem de final de insercao

Só que o registro nao aparece no DB.

Alguem saberia me dizer onde estou errando?

Saudacoes desde Sao paulo - SP

Ricardo

Title: Re: INSERT em base SQLite 3 não adiciona o registro no DB
Post by: nightrider on September 27, 2011, 08:27:13 pm

Resolvi o problema gerando um comando INSERT normal do SQL e executando-o com o método ExecuteDirect.

[ ]