Erreur dans un script sql sous ADOCommand

Version imprimable

Je place le sql suivant dans dans CommandText d'un ADOCommand
Code:

1 2 3 4 5 6 7 8 9 10 11 12 CREATE TABLE TCollection ( IDCollection INTEGER NOT NULL, Name VARCHAR(50) NOT NULL, PRIMARY KEY(IDCollection) ); CREATE TABLE TCollectionKeywords ( IDCollection INTEGER NOT NULL, IDKeywords INTEGER NOT NULL, PRIMARY KEY(IDCollection, IDKeywords) );
Résultat: "Erreur de syntax dans la commande CREATE TABLE"

Si je m'arrête au premier ; soit à la fin du premier Create Table, pas de problème 8O Une idée ?

01/11/2007, 09h32
Cl@udius

Salut

Pour cette raison simple, précisée dans l'aide:

Citation:

Envoyé par Aide de Delphi 7

Vous pouvez aussi utiliser le composant TADOCommand, objet léger permettant d'exécuter une série de commandes, à raison d'une commande à la fois.

Donc envois une à une tes commandes, ou peut-être l'utilisation d'une procédure stockée.

@+ Claudius

Ah... je suis aveugle semble-t-il :roll:

J'ai donc codé ceci, pas très beau mais bon...:

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
 
function AccessDatabaseCreator(_FileName : String) : String;
var catalog : OLEVariant;
begin
  result := '';
  try
    catalog := CreateOleObject('ADOX.Catalog');
    catalog.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_Filename+';');
    catalog := NULL;
 
    DataModule6.ADOConnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_Filename+';Persist Security Info=False';
    DataModule6.ADOConnection2.Connected:=true;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TCollection (IDCollection INTEGER NOT NULL, Name VARCHAR(50) NOT NULL, PRIMARY KEY(IDCollection));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TCollectionKeywords (IDCollection INTEGER NOT NULL,  IDKeywords INTEGER NOT NULL,  PRIMARY KEY(IDCollection, IDKeywords));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TCollectionPhoto ( IDCollection INTEGER NOT NULL,  IDPhoto INTEGER NOT NULL,  PRIMARY KEY(IDCollection, IDPhoto),   INDEX TCollectionTCollectionPhoto(IDCollection),  INDEX TPhotoTCollectionPhoto(IDPhoto));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TFormat ( IDFormat INTEGER NOT NULL,  Format VARCHAR(50) NOT NULL,  PRIMARY KEY(IDFormat), INDEX FormatFormat(Format));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TGPSData ( IDGpsData INTEGER NOT NULL,  Latitude VARCHAR(50) NOT NULL,  Longitude VARCHAR(50) NOT NULL,  Altitude VARCHAR(50) NOT NULL,  TimeStamp DATETIME NOT NULL,  GPSReferenceCoordonate INTEGER NOT NULL,  PRIMARY KEY(IDGpsData));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TKeywords (  IDKeywords INTEGER NOT NULL,  KeywordText VARCHAR(50) NOT NULL,  PRIMARY KEY(IDKeywords));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TMetaData (  IDMetaData INTEGER NOT NULL,  ImageWidth INTEGER NOT NULL,  ImageHeight INTEGER NOT NULL,  BitsPerComponent INTEGER NOT NULL,  ImageResolution INTEGER NOT NULL,  ShutterSpeed INTEGER NOT NULL,'+'ApertureValue INTEGER NOT NULL,  ISOSetting INTEGER NOT NULL,  MeteringMode INTEGER NOT NULL,  FlashUsed INTEGER NOT NULL,  ExposureBias INTEGER NOT NULL,  PRIMARY KEY(IDMetaData));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TPhoto ( IDPhoto INTEGER NOT NULL,  Thumbnail INTEGER NOT NULL,  Filename VARCHAR(50) NOT NULL,  PathToFile VARCHAR(50) NOT NULL,  Format INTEGER NOT NULL,  ImportDate DATETIME NOT NULL,'+'GPSData INTEGER NOT NULL,  Photographer INTEGER NOT NULL,  ExifData INTEGER NOT NULL,  PRIMARY KEY(IDPhoto),  INDEX FormatPhoto(Format), INDEX GPSDataPhoto(GPSData),  INDEX TMetaDataTPhoto(ExifData),  INDEX TPhotographerTPhoto(Photographer));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TPhotographer ( IDPhotographer INTEGER NOT NULL,  Firstname VARCHAR(50) NOT NULL,  Lastname VARCHAR(50) NOT NULL,  Nickname VARCHAR(50) NOT NULL,  Email VARCHAR(50) NOT NULL,  PRIMARY KEY(IDPhotographer));';
    DataModule6.CreationScript.Execute;
    DataModule6.CreationScript.CommandText:='CREATE TABLE TPhotoKeyword (  IDPhoto INTEGER NOT NULL,  IDKeywords INTEGER NOT NULL,  PRIMARY KEY(IDPhoto, IDKeywords),  INDEX TKeywordsTPhotoKeyword(IDKeywords),  INDEX TPhotoTPhotoKeyword(IDPhoto));';
    DataModule6.CreationScript.Execute;
 
    DataModule6.ADOConnection2.Connected:=false;
 
  except
    on e : Exception do result := e.message;
  end;
end;

Résultat: "Erreur de syntaxe dans la définition de champ"
Ce sont les Index on dirait qui ne passe pas. Je dois faire ça séparément ?

As tu testé ces commandes directement dans Access ?

Ps: Va falloir apprendre a utiliser les with :p

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
 
function AccessDatabaseCreator(_FileName : String) : String;
var catalog : OLEVariant;
begin
  result := '';
  try
    catalog := CreateOleObject('ADOX.Catalog');
    catalog.create ('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_Filename+';');
    catalog := NULL;
 
  With Datamodule6 do
  begin
    ADOConnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_Filename+';Persist Security Info=False';
    ADOConnection2.Connected:=true;
    With CreationScript do
    begin
      CommandText:='CREATE TABLE TCollection (IDCollection INTEGER NOT NULL, Name VARCHAR(50) NOT NULL, PRIMARY KEY(IDCollection));';
      Execute;
      CommandText:='CREATE TABLE TCollectionKeywords (IDCollection INTEGER NOT NULL,  IDKeywords INTEGER NOT NULL,  PRIMARY KEY(IDCollection, IDKeywords));';
      Execute;
      CommandText:='CREATE TABLE TCollectionPhoto ( IDCollection INTEGER NOT NULL,  IDPhoto INTEGER NOT NULL,  PRIMARY KEY(IDCollection, IDPhoto),   INDEX TCollectionTCollectionPhoto(IDCollection),  INDEX TPhotoTCollectionPhoto(IDPhoto));';
      Execute;
      CommandText:='CREATE TABLE TFormat ( IDFormat INTEGER NOT NULL,  Format VARCHAR(50) NOT NULL,  PRIMARY KEY(IDFormat), INDEX FormatFormat(Format));';
      Execute;
      CommandText:='CREATE TABLE TGPSData ( IDGpsData INTEGER NOT NULL,  Latitude VARCHAR(50) NOT NULL,  Longitude VARCHAR(50) NOT NULL,  Altitude VARCHAR(50) NOT NULL,  TimeStamp DATETIME NOT NULL,  GPSReferenceCoordonate INTEGER NOT NULL,  PRIMARY KEY(IDGpsData));';
      Execute;
      CommandText:='CREATE TABLE TKeywords (  IDKeywords INTEGER NOT NULL,  KeywordText VARCHAR(50) NOT NULL,  PRIMARY KEY(IDKeywords));';
      Execute;
      CommandText:='CREATE TABLE TMetaData (  IDMetaData INTEGER NOT NULL,  ImageWidth INTEGER NOT NULL,  ImageHeight INTEGER NOT NULL,  BitsPerComponent INTEGER NOT NULL,  ImageResolution INTEGER NOT NULL,  ShutterSpeed INTEGER NOT NULL,'+'ApertureValue INTEGER NOT NULL,  ISOSetting INTEGER NOT NULL,  MeteringMode INTEGER NOT NULL,  FlashUsed INTEGER NOT NULL,  ExposureBias INTEGER NOT NULL,  PRIMARY KEY(IDMetaData));';
      Execute;
      CommandText:='CREATE TABLE TPhoto ( IDPhoto INTEGER NOT NULL,  Thumbnail INTEGER NOT NULL,  Filename VARCHAR(50) NOT NULL,  PathToFile VARCHAR(50) NOT NULL,  Format INTEGER NOT NULL,  ImportDate DATETIME NOT NULL,'+'GPSData INTEGER NOT NULL,  Photographer INTEGER NOT NULL,  ExifData INTEGER NOT NULL,  PRIMARY KEY(IDPhoto),  INDEX FormatPhoto(Format), INDEX GPSDataPhoto(GPSData),  INDEX TMetaDataTPhoto(ExifData),  INDEX TPhotographerTPhoto(Photographer));';
      Execute;
      CommandText:='CREATE TABLE TPhotographer ( IDPhotographer INTEGER NOT NULL,  Firstname VARCHAR(50) NOT NULL,  Lastname VARCHAR(50) NOT NULL,  Nickname VARCHAR(50) NOT NULL,  Email VARCHAR(50) NOT NULL,  PRIMARY KEY(IDPhotographer));';
      Execute;
      CommandText:='CREATE TABLE TPhotoKeyword (  IDPhoto INTEGER NOT NULL,  IDKeywords INTEGER NOT NULL,  PRIMARY KEY(IDPhoto, IDKeywords),  INDEX TKeywordsTPhotoKeyword(IDKeywords),  INDEX TPhotoTPhotoKeyword(IDPhoto));';
      Execute;
    end; // With
    ADOConnection2.Connected:=false;
  end; // with
  except
    on e : Exception do result := e.message;
  end;
end;

02/11/2007, 14h17
thibouille
Tu as raison ça ne marche pas :(

apparemment il faut le faire dans une autre command sous la forme:
Code:

1 2 CREATE INDEX IdxCollection on TCollectionPhoto (IDCollection);
Grrr encore plein de commandes à rajouter 8O

Pour les WITH, oui je me suis dit que je devrais régler ça mais comme jene suis pas à l'aise du tout avec le DB et pas trop trop à l'aise avec Delphi, je voulais être certain de ce que je tapais. Mais c'est vrai qu'à la longue c'est plus clair et plus lisible.

Merci ;)

A tester, au lieu d'utiliser un TAdoCommand, utilises un TAdoQuery. je pense que cela focntionnera mieux et je pense que le multi command fonctionnera.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
With TAdoQuery.create(self) do
try
  Connection := AdoConnection2;
  SQL.Add(' CREATE TABLE TCollection (IDCollection INTEGER NOT NULL, Name VARCHAR(50) NOT NULL, PRIMARY KEY(IDCollection));';
  SQL.Add('CREATE TABLE TCollectionKeywords (IDCollection INTEGER NOT NULL,  IDKeywords INTEGER NOT NULL,  PRIMARY KEY(IDCollection, IDKeywords));';
// ...
  SQL.Add('CREATE TABLE TCollectionPhoto ( IDCollection INTEGER NOT NULL,  IDPhoto INTEGER NOT NULL,  PRIMARY KEY(IDCollection, IDPhoto),   INDEX TCollectionTCollectionPhoto(IDCollection),  INDEX TPhotoTCollectionPhoto(IDPhoto));';
  ExecSQL;
finally
  free;
end;

Avec bien sur, les corrections dans tes requetes (bien penser à mettre le ; à la fin de chaque requete).

02/11/2007, 17h02
thibouille

Merci je vais essayer ça..