Recent

Author Topic: INSERT em base SQLite 3 não adiciona o registro no DB  (Read 4325 times)

nightrider

  • Full Member
  • ***
  • Posts: 139
INSERT em base SQLite 3 não adiciona o registro no DB
« 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

nightrider

  • Full Member
  • ***
  • Posts: 139
Re: INSERT em base SQLite 3 não adiciona o registro no DB
« Reply #1 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.

[ ]

 

TinyPortal © 2005-2018