Bonjour,

J'ai besoin d'effectuer des enregistrements dans une boucle "for k:=0 to count-1 do".
Je prend la précaution dans la procédure d'enregistrement de bien vérifier que l'ID de l'enregistrement (clé primaire) est incrémenté tel que :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
  ADOTable.Close;
  ADOTable.ConnectionString:= Format(_ConnString,[_UserName,_PassWord,MDBFile]);
  ADOTable.TableName:= 'MATABLE';
  ADOTable.Open;
  ADOTable.ReadOnly;
  ADOTable.Last;
  if ADOTable.FieldByName('SEGNOMINAL_NO').AsInteger=RecNo then inc(RecNo);
  ADOTable.Edit; //set to edit mode for insertion of data  //begin insert
  ADOTable.Insert;  //set values
Recno est un paramètre initialisé avant l'appel de l'enregistrement par la fonction RecNo:= succ(CountFromTable( MATABLE))
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
function CountFromTable( const TableName: string ): Integer;
var
  N: Integer;
begin
  { Set up the connection string. }
  ADOConnection1.Close;
  qry.Close;
  ADOConnection1.ConnectionString := Format(_ConnString,[_UserName,_PassWord,MDBFile]);
  ADOConnection1.LoginPrompt := False;
  try
    ADOConnection1.Connected := True;
  except
    on e: EADOError do
    begin
      MessageDlg('Error while connecting', mtError,[mbOK], 0);
      Exit;
    end;
  end;
  qry.Connection := ADOConnection1;
  qry.SQL.Clear;
  qry.SQL.Add('SELECT * FROM '+TableName);
  qry.Prepared := true;
  try
    qry.Active := True;
  except
    on e: EADOError do
    begin
      MessageDlg('Error while doing query', mtError,[mbOK], 0);
      Exit;
    end;
  end;
  N:=0;
  with qry do
  begin
    First;
    while not EOF do
    begin
      inc(N);
      next;
    end;
  end;
  if N>0 then result:= N else result:=0;
 end;
De fait Access semble plus lent que Delphi car la boucle s'interrompt avec le message "risque de doublon"

Quelqu'un peut-il m'aider ?