[D7] Access97 ldb et CompactAccessDB()

Version imprimable

02/12/2011, 03h22
vad67

[D7] Access97 ldb et CompactAccessDB()

Bonjour, quelqu'un peut-il me dire pourquoi mon AdoConnection.Close ne parvient-il pas à faire disparaître du répertoire concerné le fichier ldb de ma base. Ce P....n de fichier reste toujours présent et donc impossible d'utiliser CompactAccessDB() !
J'ai l'impression que l'utilisation dans mon source de la fonction CDS.GetFieldNames(Tstrings) semble perturber la disparation du fichier ldb.

Je précise que mon source fonctionne correctement.

Merci.
02/12/2011, 11h40
Ph. B.

Bonjour

Normalement, le fichier est supprimé à la déconnexion du dernier utilisateur.
Un des composants de l'application n'est-il toujours pas connecté (car contournant le ADOConnection) ?
Le fichier .ldb peut ne pas être supprimé si les droits de suppression de fichier ne sont pas accordés dans le contexte d'utilisation. Est ce la cas ?
Le fichier .ldb reste présent si le fichier de la base (.mdb) est endommagé.

Est ce que le fichier peut être manuellement supprimé (cela arrive) ?
Si c'est le cas, il faudrait le prendre en compte dans l'application qui réalise le compactage et/ou réparation.
--
Philippe.

Citation:

Envoyé par Ph. B.

Bonjour

Normalement, le fichier est supprimé à la déconnexion du dernier utilisateur.
Un des composants de l'application n'est-il toujours pas connecté (car contournant le ADOConnection) ?
Le fichier .ldb peut ne pas être supprimé si les droits de suppression de fichier ne sont pas accordés dans le contexte d'utilisation. Est ce la cas ?
Le fichier .ldb reste présent si le fichier de la base (.mdb) est endommagé.

Est ce que le fichier peut être manuellement supprimé (cela arrive) ?
Si c'est le cas, il faudrait le prendre en compte dans l'application qui réalise le compactage et/ou réparation.
--
Philippe.

Bonjour et merci pour la réponse.
Pour que le compactage s'effectue je suis obligé de quitter l'application (le ldb disparaît), d'y retourner et de lancer ma fonction compactage sans lancer les traitements intermédiaires.
Si dessous le code d'une procédure intermédiaire qui ne permet plus au ldb de s'effacer.
Un truc m'échappe mais quoi ?
Code:

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 44 45 46 47 48 procedure TFMAE12Form.BT_genererClick(Sender: TObject); var FieldName3 : TStrings; Line : string; i : Integer; begin FieldName3 := TStringList.Create; Savedialog2.FileName := 'Fichier.csv'; if not (Savedialog2.Execute) then exit else begin ADOQ.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=M:\MABASE.mdb;Persist Security Info=False;'; Label4.Visible := True; Application.ProcessMessages; Screen.Cursor := crSQLWait; CDS.GetFieldNames(FieldName3); FieldName3.Delimiter := ';'; memo2.Lines.Add(FieldName3.DelimitedText); end; with cds do begin active := True; First; while not eof do begin Line := ''; For i:=0 to FieldCount - 1 do begin Line := Line + ';' + Fields.Fields[i].AsString ; end; memo2.Lines.Add(Copy(line,2,length(line))); Next; end; memo2.Lines.SaveToFile(SaveDialog2.FileName); Label4.Visible := False; ShowMessage(IntToStr(RecordCount) + ' Enregistrements comptés !'); memo2.Clear; cds.Active := False; DataModule1.AdoConnection.Close; Screen.Cursor := crDefault; end; end;

05/12/2011, 18h38
philnext

En fait pour comprendre ton code il manque les déclarations. Regardes ici pour voir comment on peut ouvrir une base, récupérer le nom des tables (et des champs) et faire un compactage dessus.
06/12/2011, 05h41
vad67

On m'a filé un truc urgent à faire, donc je n'ai plus trop le temps...
Je reviendrai sur ce fil lorsque je serai moins bousculé !
Merci.
07/12/2011, 00h20
Ph. B.
Bonjour,

Je viens de regarder ton code, et bien que la partie concernant le Datamodule ne soit pas exposée, je ne suis pas surpris outre mesure... :cry:
Je pense que dans ton datamodule tu as implémenté :
1. un ADOConnection avec un paramétrage fourni dans la propriété ConnectionString.
2. un ADOQuery relié au précédent
3. un DataSetProvider relié au précédent
4. un ClientDataSet relié au précédent
Dans ta procédure, tu réaffectes la propriété ConnectionString du composant ADOQuery, ce qui réinitialise la propriété Connection. L'activation du ClientDataSet va déclencher celle du ADOQuery qui va alors créer implicitement une autre connexion pour pouvoir ramener les données. Le ADOConnection initial est complètement ignoré ! :aie:
Pour preuve, tu pourrais faire fonctionner cette méthode sans avoir passer la propriété Connected de l'ADOConnection à vrai !
Ensuite la désactivation du ClientDataSet va entrainer celle du ADOQuery, mais ne va pas forcément conduire à une déconnexion !
Appeler la méthode Close du ADOConnection ne changera rien à l'affaire.
Une connexion reste active et le compactage de la base qui nécessite un accès exclusif ne peut se faire !

Dernière chose, tu as une fuite de mémoire car la StringList FieldName3 n'est pas libérée ! :bug:
Code:

1 2 3 4 5 6 7 FieldName3 := TStringList.Create; try // Le traitement .. finally FieldName3.Free; end;
--
Philippe.

Bonjour,

Pour réaliser un compactage, il faut effective ne pas être connecter à cette base.

Je vais te proposer ce que moi j'ai mis en place :

Evenement sur un click Boutton :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TFPrincipal.Compacterunebase1Click(Sender: TObject);
Var
  i: integer;
Begin
  CheminComplet := '';
  OpenDialog1.Title := 'Recherche des données';
  OpenDialog1.Filter := 'Fichier MDB|*.Mdb';
  if OpenDialog1.Execute then
  begin
    CheminComplet := OpenDialog1.FileName;
    FAttente := TFAttente.Create(Application);
    Try
      case FAttente.ShowModal of
        mrOk     : Showmessage('Comptage terminé.');
        mrCancel : Showmessage('Le comptage n''a pas pu être réalisé.');
        mrAbort  : Showmessage('Ce type de base de données n''est pas gérée.');
      end;
    Finally
      FAttente.Release;
    end;
  end;
end

;

Fenêtre d'attente :

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
{
   _____             _____   _____
  |     |  |     |        |       |
  |  __ |  |     |      /        /
  | |__    |     |     /        /
  |     |  |     |   /        /
  |  __ |  |_____|  |_____   |_____
 
 Commencé le 11 février 2009
}
unit Attente;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TFAttente = class(TForm)
    Label1: TLabel;
//    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure WMCOMPACTING(var Message :TMessage); message WM_COMPACTING;    
  public
    { Public declarations }
  end;
 
var
  FAttente: TFAttente;
 
implementation
 
{$R *.dfm}
 
uses commun;
 
procedure TFAttente.FormShow(Sender: TObject);
begin
  PostMessage(Handle, WM_COMPACTING, 0, 0);
end;
 
procedure TfAttente.WMCOMPACTING(var Message: TMessage);
const
  ModalRes : array[Boolean] of TModalResult = (mrCancel, mrOk);
begin
  Application.ProcessMessages;
 
  Case VersionAccessDB(chemincomplet) of
    7:   ModalResult := ModalRes[CompactAccessDB(CheminComplet,'4')];
    8,9: ModalResult := ModalRes[CompactAccessDB(CheminComplet,'5')];
    else ModalResult := mrAbort;
  end;
end;
 
end.

Extrait du Fichier Commun.Pas :

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
{
   _____             _____   _____
  |     |  |     |        |       |
  |  __ |  |     |      /        /
  | |__    |     |     /        /
  |     |  |     |   /        /
  |  __ |  |_____|  |_____   |_____
 
 Commencé le 11 février 2009
}
unit Commun;
 
interface
 
uses
  SysUtils, ComObj, Windows, Variants, Classes, ADODB, Dialogs, Graphics, Math
  , Inifiles, Registry, StdCtrls, StrUtils, RichEdit, sockets;
 
  function CompactAccessDB(DB, Typ : string): Boolean;
  function VersionAccessDB(DB : string): Integer;
 
Var
  AccesMDB : String;
  CheminComplet: String;
 
// ...
 
implementation
 
function VersionAccessDB(DB : string): Integer;
Var
  DBEngine, Base: OLEvariant;
{
>> 07.53 pour Access 97 fichier mdb (version 8) Type 4
>> 08.50 pour Access 2000 fichier mdb (version 9) Type 5
>> 09.50 pour Access 2002 fichier mdb (version 10)
}
Begin
  Result := 0;
  try
    DBEngine := CreateOLEObject('DAO.DBEngine.36');
    try
      Base := DBEngine.OpenDatabase(DB);
      Result := StrToInt(AnsiMidStr(Base.Properties['AccessVersion'],2,1));
    finally
      Base := Unassigned;
      DBEngine := Unassigned;
    end;
  except
    Result := 0;
  end;
end;
 
function CompactAccessDB(DB, Typ : string): Boolean; {DB = path complet de la base Access }
var
  v: OLEvariant;
begin
  Result := False;
  try
    v := CreateOLEObject('JRO.JetEngine');
    try
      if CopyFile(PAnsiChar(DB),PAnsiChar(DB+'.bak'),False) then //sauvegarde de la base
      begin
        v.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +DB,
                          'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +DB + 'comp' +
                          ';Jet OLEDB:Engine Type=' + Typ); //compactage
        DeleteFile(PAnsiChar(DB));// suppression de la base d'origine
        RenameFile(DB+'comp',DB); // mise en place de la base compactée
        Result := True;
      end;
    finally
      V := Unassigned;
    end;
  except
    Result := False;
  end;
end;

J'ai eu beaucoup de mal à trouver, je pense qu'en plus cela interressera du monde.

PS : le systeme de modalres[] m'avais été proposé par AndNotor

a+

12/12/2011, 04h49
vad67

Solution trouvée. J'initialise mes connections par un ConnectionString sans le vider en quittant la procédure. Donc un simple ADOQ.ConnectionString := '' règle le problème.
Le source joint n'était bien sur que partiel.
Merci à tous !