Recent

Author Topic: Lazarus + Access 2016  (Read 3898 times)

zito

  • Newbie
  • Posts: 6
Lazarus + Access 2016
« on: May 04, 2018, 02:40:25 am »
Olá a todos, alguém já trabalhou com Lazarus + Access ?
estou com o seguinte problema, estava testando conexão e meus DBedit, mas os dados inseridos no programa não estão entrando no banco de dados, nem mesmo com a aba DBNavigator, meu banco de dados continua vazio, abaixo vou deixar uma linha de comando do meu botão Salvar, até achei que o problema era o botão que criei, ai usei o DBNavigator para tirar dúvida, deu no mesmo, conexão está Ok, drivers Ok.
Code: Pascal  [Select][+][-]
  1. procedure TFCadastro.BitSalvarClick(Sender: TObject);
  2. begin
  3.   If (DBNome.Text='')then
  4.   Begin
  5.     ShowMessage('O Nome do contato não pode ser em branco');
  6.     DBNome.SetFocus;
  7.     exit;
  8.   end
  9.   else
  10.   Begin
  11.   DM.SQLQuery1.Post;
  12.  
  13.   BitNovo.Enabled:=True;
  14.   BitSalvar.Enabled:=False;
  15.   BitAlterar.Enabled:=True;
  16.   BitCancelar.Enabled:=False;
  17.   BitExcluir.Enabled:=True;
  18.   BitPesquisar.Enabled:=True;
  19.   BitSair.Enabled:=True;
  20.  
  21.   DesabilitaCampos;
  22.   Showmessage('Registro Salvo com Sucesso !'+'Agenda de Contatos');
  23.   DM.SQLQuery1.Close;
  24.   DM.SQLQuery1.Open;
  25.   DBGrid1.Enabled:=True;
  26.   end;

jotavilela

  • Newbie
  • Posts: 5
Re: Lazarus + Access 2016
« Reply #1 on: July 30, 2018, 12:44:11 pm »
Você já experimentou usar o método Aplyupdates  no data set depois da inserção?
Eu penei ontem o dia inteiro para  abrir uma tabela Acces, usei o componente ODBC, só funcionou depois que setei false para USEPRIMARYKEY.

 

TinyPortal © 2005-2018