Fórum Bd paradox, não atualiza dados quot;Socorroquot; #213178
11/02/2004
0
Tenho uma tabela chamada Tab_Clientes, como teste cadastrei 7 novos clientes, os quais aparecem logo abaixo, o codigo deles é tipo AutoIncremento, mas quando abro no Database Desktop aparece como mostrado abaixo.
Tab_clientes Codigo Nome Endereço
. . . .
. . . .
245 252teste 1rua do teste
246 253teste 2rua dos testes
247 254teste 3tua dos testes
248 255teste 3tua dos testes
249 256teste 4rua teste
250 257teste 4rua dos testes
251 258do testerua do teste
O sequencial aparece como se existissem 251 registros, mas na verdade possuo 258, os dados só atualizam quando eu desligo a maquina e ligo novamente, ai quando eu fecho o programa e abro novamente, tento cadastrar um cliente noov e me dá key violation, acredito que seja devido a falta de atualização no numero de registros, alguem pode me dar uma dica de como fazer com que a base de dados se atualize sem ter que desligar a maquina..
utilizo o seguinte codigo para salvamento...
Clientes.Open;
Clientes.Insert;
CLientes.FieldByName(´Nome´).AsString:=EdNome.Text;
CLientes.FieldByName(´Endereco´).AsString:=EdEnde.Text;
CLientes.FieldByName(´Cidade´).AsString:=EdCidade.Text;
CLientes.FieldByName(´Cpf´).AsString:=EdCPF.Text;
CLientes.FieldByName(´Data_Nasc´).AsString:=MeNasc.Text;
CLientes.FieldByName(´Fone´).AsString:=Mefone.Text;
CLientes.FieldByName(´Operador´).AsString:=FrmVendas.LbOperador.Caption;
Clientes.FieldByName(´mes´).AsString:=Copy(MeNasc.Text,4,2);
Clientes.Post;
Clientes.Close;
Alguem por favor poderia me auxiliar.....?
Grato pela auxilio...!
Tab_clientes Codigo Nome Endereço
. . . .
. . . .
245 252teste 1rua do teste
246 253teste 2rua dos testes
247 254teste 3tua dos testes
248 255teste 3tua dos testes
249 256teste 4rua teste
250 257teste 4rua dos testes
251 258do testerua do teste
O sequencial aparece como se existissem 251 registros, mas na verdade possuo 258, os dados só atualizam quando eu desligo a maquina e ligo novamente, ai quando eu fecho o programa e abro novamente, tento cadastrar um cliente noov e me dá key violation, acredito que seja devido a falta de atualização no numero de registros, alguem pode me dar uma dica de como fazer com que a base de dados se atualize sem ter que desligar a maquina..
utilizo o seguinte codigo para salvamento...
Clientes.Open;
Clientes.Insert;
CLientes.FieldByName(´Nome´).AsString:=EdNome.Text;
CLientes.FieldByName(´Endereco´).AsString:=EdEnde.Text;
CLientes.FieldByName(´Cidade´).AsString:=EdCidade.Text;
CLientes.FieldByName(´Cpf´).AsString:=EdCPF.Text;
CLientes.FieldByName(´Data_Nasc´).AsString:=MeNasc.Text;
CLientes.FieldByName(´Fone´).AsString:=Mefone.Text;
CLientes.FieldByName(´Operador´).AsString:=FrmVendas.LbOperador.Caption;
Clientes.FieldByName(´mes´).AsString:=Copy(MeNasc.Text,4,2);
Clientes.Post;
Clientes.Close;
Alguem por favor poderia me auxiliar.....?
Grato pela auxilio...!
Wall
Curtir tópico
+ 0
Responder
Posts
11/02/2004
Vinicius2k
Colega,
vc precisa forçar a gravação em disco dos dados em cache... isso evita, inclusive, problemas com queda de energia...
no evento AfterPost da sua tabela use :
acrescente na lista de uses a unit ´BDE´...
espero ter ajudado...
vc precisa forçar a gravação em disco dos dados em cache... isso evita, inclusive, problemas com queda de energia...
no evento AfterPost da sua tabela use :
dbiSaveChanges(Nome_da_tabela.Handle);
acrescente na lista de uses a unit ´BDE´...
espero ter ajudado...
Responder
Gostei + 0
11/02/2004
Wall
Valeu [b:e5993254cb]vinicius2K[/b:e5993254cb] agora funcionou corretamente....
Muito Obrigado.....
Muito Obrigado.....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)