Hej
Jeg arbejder med en db app, som skal have samkørt data fra 2 tabeller, via
en tredie... Her er koden:
begin
ADOT6.First;
While Not (ADOT6.Eof) Do
Begin
Buffer := ADOT6Call.Value;
if (ADOT2.Locate('Call',Trim(Buffer) ,[loPartialKey])) Then
Begin
Edit2.Text := IntToStr(ADOT2.RecNo);
ADOT1.Locate('MedlemsNr',ADOT2MedlemsNr.Value,[]);
ADOT6.Edit;
ADOT6Navn.Value := ADOT1Navn1.Value;
ADOT6CONavn.Value := ADOT1Navn2.Value;
ADOT6Adresse.Value := ADOT1Adresse.Value;
ADOT6LokalNavn.Value := '';
ADOT6PostNr.Value := ADOT1PostNr.AsString;
ADOT6AdrKilde.Value := 'EDR Medlems Kartotek';
ADOT6Oprettet.Value := Date;
ADOT6.Post;
End;
ADOT6.Next;
End;
Det virker fint, men efter 10-11 poster melder den fejl.
" Nøglefeltoplysninger er forkerte eller mangelfulde. Opdateringen berører
for mange rækker. "
Det skal siges, at alle Call's findes i ADOT2 og alle fundne MedlemsNr
findes i ADOT1, så jeg er ikke helt med hvad hulen der går galt...
Nogen ideer??
/Finn
|