Discussion :

[vexal]

Bonjour,

Je veux effacer une table qui contient une colonne blob.
Quand j'efface depuis l'explorateur SQL, (DELETE FROM data), je n'ai aucun probleme.
Quand j'efface depuis mon code delphi, il m'efface la table mais me sort une exception EDBEngineError avec le message 'Le BLOB a été modifié'.
Et je ne comprends pas pourquoi.
Cette portion de code fonctionne très bien pour l'effacement d'une autre table.
Avez-vous une idée ?

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
Function TForm1.MajTableBDE(lalias:string; letitre:string; larequete:string; lelog:string):integer;
var
  BDE_Requete : TQuery;
begin
  result := 0;
  LBL_etat.Caption := letitre;
  LBL_etat.refresh;
  ecritlog(letitre + ' en cours');
 
  BDE_Requete:= TQuery.Create(nil);
 
  try
    BDE_Requete.DatabaseName := lalias;
    BDE_Requete.SQL.Clear;
    BDE_Requete.SQL.Add(larequete);
    BDE_Requete.ExecSQL;
    ecritlog(lelog);
    ecritlog('---');
    BDE_Requete.close;
  Except
   On e: Exception do
    begin
      result := 1;
      ecritlog('Erreur lors de la ' + letitre + ' avec le message suivant : ' + e.Message);
      BDE_Requete.close;
    end;
  end;
end;

[vexal]

J'ai eu le même message dans l'explorateur SQL et il m'a donné un numéro d'erreur (13058). De là j'ai trouvé ceci :

Question:
I got an error message "Blob has been modified" - what can I do?


Answer:
This means that a table has become corrupted. Here are the most likely reasons that can cause this to happen:
One ore more workstations may not have set LOCAL SHARE to TRUE. ALL multi-user applications MUST CHANGE the local share to TRUE – otherwise your data files may become corrupted.
Ensure that your application - when shutting down - accurately closes all files.
Ensure that the application sets the Session.PrivateDir property to a local not shared directory.
Make sure all workstations point to the same shared directory for the NET DIR setting (Session.NetFileDir).
Go in the registry and disable Opportunistic Locking on Windows NT/2000 workstations and file servers:
http://support.microsoft.com/default...;en-us;Q296264
If any system on the network is running Windows 95 and has an older version of VREDIR.VXD (4.00.1113 or 4.00.1114) update that workstation.
Also try to set NetBEUI as all workstation's default networking protocol.

J'ai fait une vérif de mes tables (pdxrbld : paradox tables check and repair utility) et elles n'ont pas d'erreurs :'(

[vexal]

Je n'ai pas trouver donc j'ai contourner le probleme.
J'ai vidé mes tables préalablement et je les ai stocké dans un répertoire.
Au lieu de les vider dans mon code, je recopie le répertoire de mes tables vides.
Pas super mais j'ai pas mieux pour le moment.

[ALWEBER]

Tu peux aussi utiliser

Code :

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

1
2
3
4
5
6
  Tb1 := TTable.Create(nil) ;
  Tb1.DatabaseName := '...' ; // Mettre le chemin ou l''alias
  Tb1.TableType := ttParadox	 ;
  Tb1.TableName := 'maTable.DB' ;
  Tb1.EmptyTable ;
  Tb1.free ;

[vexal]

Merci