Bd paradox, não atualiza dados quot;Socorroquot;
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
Curtidas 0
Respostas
Vinicius2k
11/02/2004
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...
GOSTEI 0
Wall
11/02/2004
Valeu [b:e5993254cb]vinicius2K[/b:e5993254cb] agora funcionou corretamente....
Muito Obrigado.....
Muito Obrigado.....
GOSTEI 0