atualizando form

[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;

[Jhonas]

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

[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.

[Jhonas]

Se voce esta usando um DBgrid ou outro componente para visualizar os registros ??

[Guest --VAGNER --]

os cadastros aparecem em um combobox.

cmbNome.Items.add(dm.zquery1.FieldByName('nome').asString);

[Jhonas]

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

[Buz]

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 Maio 27, 2008 por Buz