Dados não aparecem na tabela
Tenho um form de cadastro, inclui os campos nele, salvei, mas quando vou olhar na tabela os campos estão em branco. Eu fiz dois cadastros, na tabela aparece que foi feito, mas estão em branco. Será que alguém saberia o que é.
Fabricius
Curtidas 0
Respostas
Guigao
07/01/2004
Qual é a Base de dados que vc está usando, e como é que vc esta fazendo o procedimento de gravacao?
GOSTEI 0
Fabricius
07/01/2004
Estou trabalhando com Interbase e o procedimento para gravação
if dm.t_clientesNOM_CLI.Value = ´´ then
dm.t_clientesNOM_CLI.Value := ´ ´;
:
:
dm.t_clientes.Post;
dm.t_clientes.ApplyUpdates;
dm.t_clientes.Refresh;
dm.t_clientes.Open;
if dm.t_clientesNOM_CLI.Value = ´´ then
dm.t_clientesNOM_CLI.Value := ´ ´;
:
:
dm.t_clientes.Post;
dm.t_clientes.ApplyUpdates;
dm.t_clientes.Refresh;
dm.t_clientes.Open;
GOSTEI 0
Nigro
07/01/2004
Suas tabelas estão abertas? Estão em modo de edição ou inserção?
GOSTEI 0
Fabricius
07/01/2004
as tabelas são abertas no formShow e em modo de inserção quando eu clico no botão para incluir
procedure Tf_cad_empresas.FormShow(Sender: TObject);
begin
dm.t_empresa.Open;
end;
procedure Tf_cad_empresas.BtInserirClick(Sender: TObject);
begin
...
dm.t_empresa.Insert;
...
end;
procedure Tf_cad_empresas.FormShow(Sender: TObject);
begin
dm.t_empresa.Open;
end;
procedure Tf_cad_empresas.BtInserirClick(Sender: TObject);
begin
...
dm.t_empresa.Insert;
...
end;
GOSTEI 0
Nigro
07/01/2004
e se você colocar o insert uma linha logo acima do if?
GOSTEI 0