[vb6] Modifier structure table Access sous VB6

Version imprimable

24/03/2004, 10h58
jlvalentin

[Résolu] [vb6] Modifier structure table Access sous VB6

Salut,

Voilà, je souhaite sous vb, creer des tables dans une base, mais aussi pouvoir modifier des tables existantes.
J'ai bien trouvé un post qui m'a bien éclairé en ce qui concerne la création en passant par l'utilisation de ADOX, mais je ne parvient pas avec cette méthode à faire des ALTER TABLE.

Est-ce que quelqu'un sait comment faire ?

D'avance merci.

Jean-Luc

Bonjour !

L'automation Access permet cela.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Déclaration des variables utilisées
Dim oAccess As Access.Application 'Application Access
Dim oDataBase As Database 'Base de données
Dim oTableDef As TableDef 'Table
Dim oField As Field 'Champ
 
'Ouverture du fichier mdb
Set oAccess = New Access.Application
oAccess.NewCurrentDatabase Nom_du_Fichier_mdb_a_ouvrir
Set oDataBase = oAccess.CurrentDb
Set oTableDef = oDataBase.CreateTableDef(Nom_de_la_table_a_creer)
 
'Définition d'un champ
Set oField = oTableDef.CreateField(Nom_du_champ, Type_du_champ, Longueur)
oTableDef.Fields.Append oField
oDataBase.TableDefs.Append oTableDef

Voilà.

J'espère avoir pu t'aider.

24/03/2004, 15h09
jlvalentin

Salut,

Merci pour le coup de main. Je galère un peu sur ce truc. La table existe déjà et je veux juste pouvoir ajouter ou supprimer des champs dans la table.
En fait, il s'agit de pouvoir permettre à tout utilisateur d'upgrader une base de données lors de la mise en place d'une nouvelle révision de mon application. Donc, il faut que je puisse :
- ajouter ou supprimer des tables
- ajouter ou supprimer des colonnes dans une table existante

Encore merci d'avance,

Jean-Luc

Est-ce que c'est possible de faire de l'ALTER TABLE (ou toute autre commande pour modifier une structure de données dans Access) ?

J'ai regardé le tuto sur ADOX, mais je n'ai rien vu sur la modification de table...

J'ai essayé la méthode suivante, mais cela ne donne rien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim BaseCat As ADOX.Catalog Dim MgtTable As ADOX.Table Dim MgtColumn As ADOX.Column ' Set BaseCat = New ADOX.Catalog Set BaseCat.ActiveConnection = BaseConnect Set MgtTable = New ADOX.Table MgtTable.Name = "R_Products" Set MgtColumn = New ADOX.Column With MgtColumn .Name = "Product_Valid" .Type = adBoolean .ParentCatalog = BaseCat End With MgtTable.Columns.Append MgtColumn
Je n'ai pas d'erreur, mais ma colonne n'est pas créé dans ma table. J'ai peut-etre omis une déclaration .... En fait, je ne vois pas comment relier la création de cette colonne à mon Catalog 'BaseCat'

25/03/2004, 10h17
AdHoc

bonjour,
:?: ALTER TABLE est une instruction du langage SQL. Il suffit de l'utiliser dans une requete.
Tu peux meme la tester directement sous access (comme avec la pluspart des SGBD qui utilisent SQl).
RAPPEL: Il y a un tutoriel sur l'ADO.

Tout d'abord, merci de ta réponse, et d'essayer de m'aider.

En fait, mon soucis lors de la nouvelle version d'un programme, est de permettre à celui-ci d'upgrader la database de facon automatique. Je parviens bien à créer des tables, mais je ne parviens pas à modifier les tables existantes.
J'ai essayé de lancer des requetes SQL de type ALTER TABLE, mais je ne parviens pas avec ADO à les lancer sur une base (et non, comme un SELECT, sur une Table). Utiliser ALTER TABLE dans un ordre SQL comme un SELECT conduit à une erreur.
On m'a donc indiqué ADOX. J'ai lu le tutoriel. Mais à chaque fois, et sur le site de Microsoft, toutes les explications et les exemples se font lors de la création de tables et non lors de la modification.
Pourtant, si sur un objet de type Column j'ai l'ordre Delete, il me semble donc que cela ne doit pas s'appliquer à une création de table, mais bien à une modification.
Le code suivant ne me donne aucun message d'erreur, mais ne fait rien.
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 Dim BaseCat As ADOX.Catalog Dim MgtTable As ADOX.Table Dim MgtColumn As ADOX.Column Dim BaseConnect As ADODB.Connection ' Set BaseConnect = New ADODB.Connection BaseConnect.CursorLocation = adUseClient BaseConnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrGloNomBase & ";Persist Security Info=False" BaseConnect.Open ' Set BaseCat = New ADOX.Catalog Set BaseCat.ActiveConnection = BaseConnect ' Set MgtTable = New ADOX.Table MgtTable.ParentCatalog = BaseCat MgtTable.Name = "R_Products" Set MgtColumn = New ADOX.Column With MgtColumn .Name = "Product_Valid" .Type = adBoolean .ParentCatalog = BaseCat End With MgtTable.Columns.Append MgtColumn Set BaseCat = Nothing Set MgtTable = Nothing
Est-ce que quelqu'un aurait un exemple de modification de table existante ? (avec un ALTER TABLE ou ADOX ou autre chose encore, mais sous VB et non avec le GUI d'Access)

25/03/2004, 12h00
AdHoc

Bonjour,
dans le forum Langage SQL, il y a un message qui conseillait lors d'une modification de table de:
1) sauvegarder la table dans une autre
2) effacer tous les enregistrements
3) faire la modif
4) relire les enregistrements
Est-ce que cela pourrait s'appliquer à ton cas ?

Je reitère mon conseil de tester les requetes SQl directement avec le SGBD car je ne vois pas la différence entre une execution en DAO, ADO par Vb et par l'interface SQL du sgbd. Il peut y avoir d'autres problèmes, mais au moins on est sûr que cela ne vient pas de la requete elle-meme (syntaxe, etc).
25/03/2004, 12h10
jlvalentin

OK pour le conseil, c'était meme ma premiere idée. De plus, je suis ouvert à toutes les solutions pour ce problème.

Mais comment fais-tu pour éxècuter une requete SQL de type CREATE TABLE ou ALTER TABLE sur une base Access 2000 avec VB6 ? En fait, c'est cela qu'il me faudrait, la méthode et un petit exemple.

Je n'ai rien trouvé sur le sujet avec ALTER TABLE, à part un post concernant VB4 et qui ne répond pas à ma question.

Sinon, encore merci pour ton aide, j'apprécie.
25/03/2004, 13h23
AdHoc

Le message c'est:
http://www.developpez.net/forums/vie...ighlight=alter

Pour executer ma requete SQL sous access:
- soit je la recupere dans une variable espion en mode interprété, puis copier sous vb, coller dans une nouvelle requete sous access;
- soit si elle est simple, je la tape directement sous access.

Si tu n'as pas access, utilise visdata, fourni avec les vb
25/03/2004, 13h48
jlvalentin

Mon problème n'est pas de connaitre la requete SQL mais de savoir comment la faire executer sous VB.

:D :D :D :D Bon, après deux jours de galères, je vous donne la solution que j'ai trouvé.... (merci a JM Rabilloud :wink: pour son tutoriel sur ADOX qui m'a aiguillé sur la solution).

Je passe bien par l'exécution d'une requete SQL.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim BaseConnect As ADODB.Connection Dim SqlCommand As ADODB.Command ' Set BaseConnect = New ADODB.Connection With BaseConnect .Provider = "Microsoft.Jet.OLEDB.4.0" .CursorLocation = adUseClient .Mode = adModeShareExclusive .Open "Data source=Nom_Complet_de_ma_base" End With ' Set SqlCommand = New ADODB.Command SqlCommand.ActiveConnection = BaseConnect SqlCommand.CommandType = adCmdText SqlCommand.CommandText = "ALTER TABLE R_Products " & _ "ADD COLUMN Product_Valid BIT;" Set rssql = SqlCommand.Execute
Et cela fonctionne... Le type de commande SQL peut aussi etre un fichier (je n'ai pas testé, mais je vais le faire). Cela peut etre interessant pour avoir un fichier texte contenant l'ensemble des commandes de modifications de la base.

A noter, le type de données BIT pour une donnée de type Booléen (Oui/Non). J'ai trouvé cette infos dans l'aide d'access qui permet d'obtenir tous les types de données au format SQL.

OUF... :twisted: ..

Jean-Luc