* * *

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

zito

  • New member
  • *
  • 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;

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus