Discussion :

[colorid]

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 ?

[ShaiLeTroll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADOTable.ReadOnly;

A quoi sert cette ligne !
ReadOnly est une propriété, tel que tu l'utilise tu en récupère la valeur mais sans la stocker ! Inutile !

Pourquoi Edit ET Insert ? c'est soit l'un soit l'autre ! PAS LES DEUX !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if N>0 then result:= N else result:=0;

N est initialisé à 0
Ensuite il est incrémenté !
C'est donc inutile, ceci suffit !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

result:= N;

Pire, tu as de Exit avec des Result pouvant avoir une valeur aléatoire !


Pourquoi une Boucle pour CountFromTable ?
Le SQL propose des fonctions optimisées pour cela !

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT COUNT(*) FROM TABLE

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT MAX(NOM DE COLONNE) FROM TABLE

RecNo ?
Evite d'appeler une variable RecNo pour stocker ta clé Primaire, PrimaryID serait plus judicieux !
RecNo est une propriété du TADOTable, sa valeur est trop volatile !
Tu risques de les confondre un jour !
Le résultat sera désastreux !

Il faut utiliser le champ clé primaire, si possible un AUTO-INC !
SEGNOMINAL_NO semble être cela !

[colorid]

Bonjour,

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  qry.Close;
  qry.Connection := ADOConnection1;
  qry.SQL.Clear;
  qry.SQL.Text:= 'SELECT COUNT(*) FROM '+TableName;
  qry.ExecSQL;

Comment récupérer le résultat ?

[ShaiLeTroll]

Depuis le temps, tu devrais le savoir ou l'avoir lu !

Tout SELECT s'utilise avec Open()
Les autres SQL comme INSERT\UPDATE\DELETE...GRANT\CREATE\DROP... avec ExecSQL()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  qry.Close;
  qry.Connection := ADOConnection1;
  // qry.SQL.Text:= 'SELECT COUNT(*) FROM '+TableName;
  qry.SQL.Text:= 'SELECT COUNT(*) as CountValue FROM '+TableName;
  qry.Open();
  // Nombre := qry.FieldByName('COUNT(*)').AsInteger;
  Nombre := qry.FieldByName('CountValue').AsInteger;
  ...

Je ne connais pas ACCESS, certaines DB fourni COUNT(*) comme nom du champ automatiquement, je préfère la valeur avec un Alias, plus prudente

COUNT pour ce type de calcul n'est pas fiable, cela ne gère pas les suppressions, tu avoir inserer 1 à 10, effacer 5 à 8, il ne reste donc que 1,2,3,4,9 et 10 donc 6, l'indice suivant sera 7, cela passe car il a été supprimé, mais ensuite, c'est 8 puis 9, collision !
MAX est plus lent mais aura une valeur plus fiable !

Tout dépend si Suppression possible ou pas !

[colorid]

Comme tu peux en juger les bases de données ne sont pas mon truc ! et surtout pas Acces vraiement peinible avec ses contrôles intempestifs !

Le problème c'est que je suis obligé de gérer les données pour l'appli de traitement d'image que je développe... Le traitement d'image c'est plus mon truc.

A propos, j'ai prévu des suppressions virtuelles, celà me parait plus simple avec ACCESS, dans tous les enregistrements j'ai placé un champ booléen qui est mis à false à la place de la suppréssion physique, et que je vérifie dans tous les appels pour prendre en compte la ligne de la table si ce champ est à true.

Si tu y vois un inconvenient signale le moi.


Merci et bonne journée

Je coche résolu

[ShaiLeTroll]

Idem, la DB, c'est utile mais pénible !
ACCESS c'est quand même une vrai merde !
Une bonne DB embarqué comme MySQL avec un SQL puissant, c'est tout de même mieux !
Pour les contrôles, et encore tu ne connais pas les Trigger, les Constraints et le bazard des vrais SGBD comme MySQL5, Oracle, SQL Server ...

Pour la suppression par Flag, grand classique, dans certains logiciels c'est même obligatoire, à cause des loi, on peut supprimer un élément, souvent il passe en mode Archive, il n'est plus actif mais toujours là au besoin !
Cela peut être poussé à l'extrème pour faire du versionning !

Si ton volume de données n'augmente pas trop, ça tiendra !
mais ACCESS cela reste ...