Discussion :

[GoustiFruit]

Bonjour,

Je souhaite "dumper" le contenu de mes tables vers un ou plusieurs fichiers au format SQL. Comment faire pour les champs BLOB ?

Pour les autres types de champs, pour l'instant je fais quelque chose comme ça (code simplifié ne prenant pas en compte les éventuelles valeurs NULL):

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
 
var
  slFichierSQL: TStringList;
begin
  slFichierSQL := TStringList.Create;
 
  with tbl1 do begin
    TableName := 'Projets';
    Open;
    First;
    while not Eof do begin
      slFichierSQL.Add('INSERT INTO Projets VALUES (');
      slFichierSQL.Add(FieldByName('ID').AsString + ',');
      slFichierSQL.Add(FieldByName('ChampNum1').AsString + ',');
      slFichierSQL.Add(QuotedStr(FieldByName('ChampTxt1').AsString));
      slFichierSQL.Add(');');
      Next;
    end;
    Close;
  end;
 
  slFichierSQL.SaveToFile('dump.sql');
  slFichierSQL.Free;
end;

Mais je ne vois pas comment faire pour les champs BLOB ? Si je dumpe directement la valeur "AsString", mon fichier texte contient des caractères illisibles: il faut probablement que j'encode la sortie, mais quel encodage utiliser pour être sûr que je pourrai de nouveau importer ces données dans une autre BDD plus tard ?

[philnext]

Indépendamment de ta question je pense que tu vas avoir un pb de taille de champ car les champs 'string', quelque soit la BDD, n'ont pas une longueur infinie.

[GoustiFruit]

Qu'est-ce que tu veux dire par là ?
Mon code permet seulement de générer un fichier SQL de ce genre:

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
INSERT INTO Projets VALUES ('
1,
17,
'TexteA'
');
 
INSERT INTO Projets VALUES ('
2,
49,
'TexteB'
');
 
INSERT INTO Projets VALUES ('
3,
21,
'TexteC'
');

Je ne comprends pas la remarque sur la longueur des chaînes ?

[philnext]

Je voulais simplement dire que un champ 'string' a une taille max. (ex 255 dans Access) alors que le Blob a une taille 'infinie'.
Donc tu auras des erreurs si tu mets un Blob dans un champ string.

Mais c'est peut être pas ce que tu voulais faire...

Sinon : http://delphi.about.com/od/database/a/record2blob.htm

[GoustiFruit]

Mes fichiers (blobs) sont déjà stockés dans mes tables comme dans le lien que tu donnes. Ce que je veux c'est exporter le contenu de ces tables vers des fichiers SQL (fichiers texte contenant des commandes INSERT) pour les réinjecter dans une autre base de données.
Pour info la base de destination est au format SQLite, j'ai déjà essayé de transférer directement de tables à tables (entre TDataSource) mais j'ai des quelques problèmes, alors je fais un essai avec un export/import SQL.
Mais je ne sais pas comment exporter les blobs en commandes SQL, sous quel format/encodage je dois les exporter !?