Discussion :

[pcvesoul]

Bonjour à tout le monde.

Comment puis-je faire, depuis mon programme écrit en VB6, pour ajouter un champ dans une table Access.

P.S. : J'utilise une connection ADO.

Merci d'être précis dans vos explications car je suis débutant.

Bonsoir tout le monde.

(je suis poli hein)...

[bidou]

donc si tu utilises une connexion ADO

Code :

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

Conn.Execute "ALTER TABLE Table1 ADD COLUMN MonChamp TEXT(25);"

Pour les explications, je t'invite à lire les cours sur ADO présent sur le site, ils seraient bien plus complet que ma réponse

[pcvesoul]

Merci de ta réponse et je suis désolé pour ce qui c'est passé tout à l'heure : problème de compréhension de message.

Avant de poser ma question j'ai effectivement cherché mais je n'ai pas réussi à trouver quelque chose d'exploitable pour moi.

Je vais m'y remettre.

[pcvesoul]

Je suis enfin arrivé au but recherché et je souhaite faire partager ma recherche à ceux qui auraient le même besoin que moi.

Ajouter Référence : Mircosoft ADO 3.6

Code :

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

1
2
3
4
5
Dim dbs As Database
 
Set dbs = OpenDatabase(Chemin & "\" & "Base.mdb")
dbs.Execute "ALTER TABLE [Table] " & "ADD COLUMN [Champ] INTEGER;"
dbs.Close

Merci à ceux qui m'ont aidé.

[bidou]

je pense que c'est DAO 3.6 que tu as ajouté.

Pour ma curiosité, pourquoi n'as tu pas continué d'utiliser ADO ?

[pcvesoul]

Oui, toutes mes excuses. C'est bien Microsoft DAO 3.6

En fait j'ai trouvé ce code qui a fonctionné du 1er coup et je n'ai pas trop cherché + loin.

[pcvesoul]

Et pour conclure, effectivement, avec une connection ADO c'est encore + simple

Reference : Microsoft ADO Ext. 2.7

Rx0.Open "ALTER TABLE [NomTable] ADD COLUMN [NomChamp] Integer;"

Pas de close.

[bidou]

ok. Merci