Ir para conteúdo
Fórum Script Brasil
  • 0

atualizando form


Guest --vagner --

Pergunta

Guest --vagner --

Pessoal, tenho em um form um formulario para cadastro no banco de dados mysql, e utilizo os componentes da pallete Zeos Access (zconnection, zquery), e em outro form no evento oncreate do formulario, é listado todos os cadastros, porem quando eu faço o cadastro depois abro o outro form ele não esta atualizando, tenho q fechar o programa e abrir novamente para aparecer o ultimo cadastro realizado.

Código para o cadastro

dm.ZQuery1.Active:= false;
  dm.ZQuery1.SQL.Clear;
  dm.ZQuery1.SQL.Add('insert into materia_prima (nome, un) values ('''+edtNome.Text+''','''+cmbUn.Text+''')');
  dm.ZQuery1.ExecSQL;
  showmessage('Salvo com sucesso!');
  edtNome.Clear;
  cmbUn.ItemIndex:= -1;
  edtNome.SetFocus;
evento oncreate (visualizar os cadastros)
dm.ZQuery1.SQL.Clear;
  dm.ZQuery1.SQL.Add('SELECT nome');
  dm.ZQuery1.SQL.Add('FROM materia_prima');
  dm.ZQuery1.Open;

while not dm.zquery1.eof do
begin
  cmbNome.Items.add(dm.zquery1.FieldByName('nome').asString);
  dm.zquery1.next;
end;

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
eu faço o cadastro depois abro o outro form ele não esta atualizando, tenho q fechar o programa e abrir novamente para aparecer o ultimo cadastro realizado.

Pense na ação que voce teve que fazer ( fechar o programa e abrir novamente para aparecer o ultimo cadastro realizado ) .... isto significa que para atualizar os dados voce acabou indiretamente fechando e abrindo o seu banco de dados.

Desta maneira bastaria então fechar e abrir a sua query novamente, ou tentar dar um comando Refresh na query

exemplo:

dm.ZQuery1.Close;

dm.ZQuery1.Open;

ou

dm.Zquery1.Refresh;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
Guest --vagner --
eu faço o cadastro depois abro o outro form ele não esta atualizando, tenho q fechar o programa e abrir novamente para aparecer o ultimo cadastro realizado.

Pense na ação que voce teve que fazer ( fechar o programa e abrir novamente para aparecer o ultimo cadastro realizado ) .... isto significa que para atualizar os dados voce acabou indiretamente fechando e abrindo o seu banco de dados.

Desta maneira bastaria então fechar e abrir a sua query novamente, ou tentar dar um comando Refresh na query

exemplo:

dm.ZQuery1.Close;

dm.ZQuery1.Open;

ou

dm.Zquery1.Refresh;

abraço

Olá Jhonas, também pensei nisso mais não esta funcionando.

Link para o comentário
Compartilhar em outros sites

  • 0

Tente esta modificação:

dm.ZQuery1.SQL.Clear;
  dm.ZQuery1.SQL.Add('SELECT nome');
  dm.ZQuery1.SQL.Add('FROM materia_prima');
  dm.ZQuery1.Open;

cmbNome.Items.Clear;  // limpar o combobox.

while not dm.zquery1.eof do
begin
  cmbNome.Items.Append(dm.zquery1.FieldByName('nome').asString);
  dm.zquery1.next;
end;

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

Tente o seguinte:

dm.ZQuery1.Active:= false;
  dm.ZQuery1.SQL.Clear;
  dm.ZQuery1.SQL.Add('insert into materia_prima (nome, un) values ('''+edtNome.Text+''','''+cmbUn.Text+''')');
  dm.ZQuery1.ExecSQL;

  dm.ZQuery1.Commit; //Comitar os dados no banco de dados

  showmessage('Salvo com sucesso!');
  edtNome.Clear;
  cmbUn.ItemIndex:= -1;
  edtNome.SetFocus;

Editado por Buz
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...