Discussion :

[chpog]

Bonjour,

Alors je crée une table access via des requêtes SQL et des TADOCOmmand.
Seulement je voudrais aussi quand je crée mes champs leur affecter une valeur par défaut.
J'ai vu que Access n'acceptait pas le mot clef default dans les requête SQL.
Je cherche donc un moyen de le faire via ADO mais je ne trouve pas.
Merci d'avance.

[ShaiLeTroll]

Tu devrais regarder ce que propose ADOX.Catalog, Tables, Fields ou Columns pour arriver enfin à Property.Value

le tout en OLEVariant, c'est pénible à écrire avec OlePropertyGet et OlePropertySet

ça doit ressembler à
[code purement théorique]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  Variant ADOXCatalog = Variant::CreateObject("ADOX.Catalog");
  ADOXCatalog.OlePropertySet("ActiveConnection", ADOConnection); // un TADOConnection
 
  Variant TablesCollection  = ADOXCatalog.OlePropertyGet("Tables");
  Variant TableItem         = TablesCollection.OlePropertyGet("Item",TableName.c_str()); // TableName est un String
  Variant ColumnsCollection = TableItem.OlePropertyGet("Columns");
  Variant ColumnItem        = ColumnsCollection.OlePropertyGet("Item",Field.Name.c_str()); // Field est un TField
  Variant Properties        = ColumnItem.OlePropertyGet("Properties");
  Variant PropertyItem      = Properties.OlePropertyGet("Item", "Value");
  ShowMessage(PropertyItem); // si le Variant l'autorise, cela converti la valeur en chaine et l'affiche
  Properties.OlePropertySet("Item", NewValue); // NewValue un variant contenant la nouvelle valeur

[chpog]

Merci beaucoup pour ces infos et oui effectivement j'ai chois de passer par ADOX. En fait j'ai importé le "package ADOX" et donc C++ Xe m'a génére des classe de wrappers pour pouvoir utilisé ADOX.
Seulement j'ai un souci le code fonctionne seulement à la fin quand je regarde dans ma base sous access les tables que j'ai voulu ajouter n'existe pas!!
Du code simplifié ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#define PROVIDER_SOURCE "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
UnicodeString Provider  = PROVIDER_SOURCE + Filename; 
Olevariant Prov = Provider;
  TADOXCatalog *Catalog = new TADOXCatalog(NULL);
  Catalog->set_ActiveConnection(Prov);
  Catalog->Connect();
 
  Catalog->Tables->Append((OleVariant)"TOTO");
  Catalog->InitServerData();
  Catalog->Disconnect();

Je ne comprends pas pourquoi il doit me manquer quelque chose genre un Catalog->Save mais cette fonction n'existe pas !!!

[blondelle]

Si tu utilise les composants ADO pour quoi ne pas faire comme ceci

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
 
vADO.OleFunction("create", provider.c_str());
// on connecte avec ADOConnection
        Form1->ADOConnection1->ConnectionString = provider;
        Form1->ADOConnection1->LoginPrompt = false;
        Form1->ADOCommand1->Connection = Form1->ADOConnection1;
// on cree une Table vide au nom de DossierSociete
        Form1->ADOCommand1->CommandText = "CREATE TABLE DossierSociete";
        Form1->ADOCommand1->Execute();
// on cree le champ ID_Ste defini comme compteur
        Form1->ADOCommand1->CommandText = "ALTER TABLE DossierSociete ADD ID_Ste COUNTER";
        Form1->ADOCommand1->Execute();
// on defini le champ compteur ID_Ste en clef primaire
        Form1->ADOCommand1->CommandText = "CREATE UNIQUE INDEX idxPrimary ON DossierSociete (ID_Ste) WITH PRIMARY";
        Form1->ADOCommand1->Execute();
AnsiString ChampSte;
// on defini un champ texte TEXT(NB caracteres)
        ChampSte = "ALTER TABLE DossierSociete ADD NomRaison TEXT(50),";
        Form1->ADOCommand1->CommandText = ChampSte;
        Form1->ADOCommand1->Execute();
// on defini un champ int
        ChampSte = "ALTER TABLE DossierSociete ADD NoClass INTEGER,";
        Form1->ADOCommand1->CommandText = ChampSte;
        Form1->ADOCommand1->Execute();
// on defini un champ bool
        ChampSte = "ALTER TABLE DossierSociete ADD Instance YESNO,";
        Form1->ADOCommand1->CommandText = ChampSte;
        Form1->ADOCommand1->Execute();

[chpog]

Tout bêtement parce que les composants ADO ne permettent d’accéder aux propriétés des tables comme la valeur par défaut par ex.
Et Access n'accepte pas le mot clef DEFAULT en SQL. Donc si je veux définir une valeur par défaut je n'ai pas le choix je dois passer par ADOX.
Sinon pour enregistrer la table dans mon catalogue ADOX j'ai aussi essayé le code qui suit mais cela n'as pas l'air de marcher beaucoup mieux :

Code :

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

1
2
3
4
 
  OleVariant TableOle = (IDispatch*) TableToAdd->GetDefaultInterface();
  Catalog->Tables->Append(TableOle);
  Catalog->Disconnect();

Mais ça ne marche pas non plus aucune table n'est ajouté à la base qui pourtant est bien crée.

[ShaiLeTroll]

as-tu essayé ceci

Code :

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

1
2
3
4
  TADOXCatalog *Catalog = new TADOXCatalog(NULL);
  Catalog->ActiveConnection = ADOConnection1; // un TADOConnection
 
Catalog->Tables->Item[TableName]->Columns ...

Car la propriété ActiveConnection accete un objet Connection et non une chaine !

Pour l'import de ADOX, as-tu suivi cette méthode de http://delphi.about.com

To use ADOX in Delphi, you should establish a reference to the ADOX type library.
1. Select Project | Import Type Library
2. Choose "Microsoft ADO Ext 2.x for DDL and Security (Version 2.x)"
3a. Change "TTable" to "TADOXTable"
3b. Change "TColumn" to "TADOXColumn"
3c. Change "TIndex" to "TADOXIndex"
3d. Change "TKey" to "TADOXKey"
3e. Change "TGroup" to "TADOXGroup"
3f. Change "TUser" to "TADOXUser"
3g. Change "TCatalog" to "TADOXCatalog"
4. Press Install button (rebuilding packages)
5. Press OK once and Yes twice
6. File | Close All | Yes

Sinon Append réclame comme paramètre une interface Table, il faut utiliser un TADOXTable et l'instancier avec Create et non un simple OleVariant casté !
Tu dois en théorie pouvoir écrire

Code :

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

1
2
3
4
  TADOXTable TableOle = new TADOXTable();
  TableOle->Columns->Append( "Column1", adInteger);
  Catalog->Tables->Append(TableOle);
  Catalog->Disconnect();

voir le neccessité d'un delete TableOle ou l'utilisation de DelphiInterface

[chpog]

Bon j'ai réussi à résoudre ce problème de nom de table tout simplement en mettant le nom dans une OleVaraint et je passe le OleVariant plutôt que le pointeur sur la chaîne.

oui mais en fait Item n'est pas accessible.
J'ai accès à get_item. Et là j'arrive à récupérer la Table ou le champ désiré.
sinon pour info si je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 UnicodeString ne = "TOTO3";
  // Ouverture de la connexion à la base
  Prov = Provider;
  Catalog->set_ActiveConnection(Prov);
  Catalog->Connect();
 
  TableToAdd->Name = ne.t_str();
 
  TableOle = (IDispatch*) TableToAdd->GetDefaultInterface();
  Catalog->Tables->Append(TableOle);
  Catalog->Disconnect();

J'ai bien une table de créer, par contre mon souci c'est que au lieu de s'appeler "TOTO3" elle ne s’appelle que "TO" je ne comprends pas pourquoi cela ne prends que les deux premiers caractères.

[chpog]

as-tu essayé ceci

Code :

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

1
2
3
4
  TADOXCatalog *Catalog = new TADOXCatalog(NULL);
  Catalog->ActiveConnection = ADOConnection1; // un TADOConnection
 
Catalog->Tables->Item[TableName]->Columns ...

Je vais essayer avec un connection ADO en paramètres même si j'arrive quand même bien à accéder à la base en passant une chaine.

Pour l'import de ADOX, as-tu suivi cette méthode de http://delphi.about.com

Alors oui j'ai suivi exactement ce qui est dit du moins j'ai fait la même sur C++ builder XE
Menu Composant
Importer un composant
Importer une bibliothèque de types
"Microsoft ADO ExT. 2.8 for DLL and Security"
puis j'ai effectivement changer les noms de classe et générer les wrappers.

Sinon Append réclame comme paramètre une interface Table, il faut utiliser un TADOXTable et l'instancier avec Create et non un simple OleVariant casté !
Tu dois en théorie pouvoir écrire

Code :

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

1
2
3
4
  TADOXTable TableOle = new TADOXTable();
  TableOle->Columns->Append( "Column1", adInteger);
  Catalog->Tables->Append(TableOle);
  Catalog->Disconnect();

Alors en fait non je ne peux pas écrire ce code car Append attend un tagVariant Item. Voilà, pourquoi je fait un cast. Car il ne sait pas transformer mon TADOXTable en variant.

voir le neccessité d'un delete TableOle ou l'utilisation de DelphiInterface

La dessus je crois que je suis d'accord avec toi !!
Je vais essayer avec un new pour chaque création de table et chaque column puis un delete.

En tout cas merci beaucoup pour tes réponses et les différents pistes que tu me propose.

[chpog]

Bon aprés quelques tests si je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 // Création d'une Table
  OleVariant Name;
  OleVariant ColName;
  TADOXTable *TableToAdd = new TADOXTable(NULL);
  Name =  DesTab->Nom;
  TableToAdd->Name = Name;
 
  TableOle = (IDispatch*) TableToAdd->GetDefaultInterface();
  Catalog->Tables->Append(TableOle);
  delete TableToAdd;
  Catalog->Disconnect();

J'arrive à créer toutes mes tables avec les bons noms de table.

Par contre si je fais :

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
 
 // Création d'une Table
  OleVariant Name;
  TADOXTable *TableToAdd = new TADOXTable(NULL);
  Name =  DesTab->Nom;
  TableToAdd->Name = Name;
 
 for(int chp=0; chp < NbChamps; chp++)
  {
	ColName = Nom[NbChamps];
	    TableToAdd->Columns->Append(ColName,TypeADOX,Taille);
  } 
 
  TableOle = (IDispatch*) TableToAdd->GetDefaultInterface();
  Catalog->Tables->Append(TableOle);
  delete TableToAdd;
  Catalog->Disconnect();

Alors là cela ne fonctionne plus!!!!!!! Aucune Table n'est crée !!!!
Je vais quand même pas être obligé de créer toutes les tables puis ensuite de récupérer ma table et de lui ajouter les champs qui vont bien !!!

[chpog]

Pour ceux que ça intéresse j'arrive finalement a créer mes tables et mes colonnes.
Le problème des mes colonnes venait du fait que "je suppose" ACCESS n'accepte pas le type adBigInt de ADOX
http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx
En remplaçant tous les adBigInt par des adInteger là ça fonctionne !!!
Et en regardant sous ACCESS j'ai bien des entier long!!! Va savoir Charles.

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
 
  // Ouverture de la connexion à la base
  Prov = Provider;
  Catalog->set_ActiveConnection(Prov);
  Catalog->Connect();
 
  TableName = Nom;
  TableToAdd->Name = TableName;
  for(int chp=0; chp < ChampsCount; chp++)
  {
 
	ColName = Nom[chp];
	TableToAdd->Columns->Append(ColName,TypeADOX[chp],Taille[chp]);
  }
  TableOle = (IDispatch*) TableToAdd->GetDefaultInterface();
  Catalog->Tables->Append(TableOle);
  delete TableToAdd;
  Catalog->Disconnect();