Créer une table dans une base existante mdb

Version imprimable

17/11/2010, 14h08
alexsolex

Créer une table dans une base existante mdb

Bonjour

J'ai une base de données mdb dans laquelle je souhaiterais créer une nouvelle table avec ses champs, le tout depuis vba excel.

J'ai tenté de trouver une solution avec les exemples là :
http://excel.developpez.com/faq/index.php?page=Access

Mais je ne m'en sort pas. J'ai l'impression que ce ne doit pas être bien compliqué mais je ne trouve pas.

Merci d'avance
17/11/2010, 19h07
jfontaine

Bonjour,

As tu bien créé la référence "Microsoft ADO Ext x.x for DLL and Security" come stipulé en commentaire?
17/11/2010, 23h23
alexsolex

oui oui tout à fait.

En fait j'arrive à faire fonctionner tous les exemples, mais maintenant j'aimerais pouvoir créer de nouvelles tables au sein même d'une base.

En fait je prévois d'écrire mes données dans une base mdb depuis différents classeurs avec la correspondance : un classeur == une table

Mes différents soucis sont donc de détecter si la base existe, ensuite si la table existe, sinon la créer et la remplir.

donc oui je n'étais peut être pas très clair. Je n'ai pas de soucis pour faire fonctionner les exemples, mais j'aimerais savoir simplement comment écrire une nouvelle table dans une base existante
18/11/2010, 05h18
Invité

Bonjour

Citation:

Envoyé par alexsolex

En fait je prévois d'écrire mes données dans une base mdb depuis différents classeurs avec la correspondance : un classeur == une table

Le principe que tu veux faire n'est pas vraiment l'utilisation que l'on fait d'une base de donnée, à quoi peut te servir le fait d'affecter une table à un classeur ?

L'intérêt d'avoir une base Access avec des classeurs Excel en interface est d'avoir vraiment un partage des données, car les classeurs partagés ce n'est pas le top.

Philippe
18/11/2010, 10h14
alexsolex

Bonjour

Merci de l'intérêt que tu portes à ma question.

Citation:

Envoyé par Philippe JOCHMANS

Le principe que tu veux faire n'est pas vraiment l'utilisation que l'on fait d'une base de donnée, à quoi peut te servir le fait d'affecter une table à un classeur ?

Effectivement, et j'en suis bien conscient. Et je répondrais simplement en vous citant :

Citation:

Envoyé par Philippe JOCHMANS

L'intérêt d'avoir une base Access avec des classeurs Excel en interface est d'avoir vraiment un partage des données, car les classeurs partagés ce n'est pas le top.

C'est typiquement mon cas. Je n'ai pas de license Access et je n'ai de toutes facons pas la possibilité d'utiliser ce logiciel.
Le seul moyen à ma disposition pour mes besoins est Excel est ses capacités (ou les miennes appuyées de celles du forum) pour faire un simulacre de base de donnée pour de nombreux utilisateurs.

Excel sera dans ce cas une simple interface pour mettre à jour les données de la base. Un autre classeur excel sera porteur d'une application plus complexe qui puisera dans les infos de la base de données.

Ma question reste à priori entière :
Comment puis-je ajouter une table dans une base mdb existante ?

Merci

Bon j'ai bidouillé pour finalement me dire que peut être une requête SQL me permettrais simplement de créer cette table.

J'ai donc utilisé ADODB pour faire ma requête :
Code:

1 2 3 4 5 6 7 StrConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & CheminBase & ";" & _ "Persist Security Info=False" Set Conn = New ADODB.Connection Set Rs = New ADODB.Recordset Conn.Open StrConnexion Conn.Execute("CREATE TABLE T_CLIENT (CLI_NOM CHAR(32), CLI_PRENOM VARCHAR(32))")
Ca fonctionne (j'ai juste exécuté la requête de création de la table depuis la fenêtre Exécution de VBA) et je vais voir pour intégrer tout ca correctement.

Néammoins ca me gêne un peu, j'aurais préféré pouvoir lire chaque entête de colonnes de mon classeur pour créer les champs dans la table. Donc si vous avez d'autres solutions qui passent un peu plus par le code, je suis preneur.

Merci

Le code ci dessous créais une requete de creation de table en utilisant les en tetes de colonne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim C As Integer
Dim StrSQL As String
 
StrSQL = "CREATE TABLE ("
 
 
For C = 1 To Rows("1:1").End(xlToRight).Column
 
    If C > 1 Then StrSQL = StrSQL & ","
 
    StrSQL = StrSQL & Cells(1, C).Value & " CHAR(32)"
 
 
Next C
 
StrSQL = StrSQL & ")"

18/11/2010, 15h07
alexsolex
oui pas mal !

Par contre là les champs sont configurés sur un type de donnée 'char' d'une longueur de 32 octets. Le type de donnée ne me dérange pas, mais est t'il possible de créer les champs sans spécifier la taille ? (même si je crois savoir que ce n'est pas une très bonne idée, mais je n'en suis pas sur)

Je me suis déjà amusé avec SQLite qui a comme propriété de ne pas obliger le forcage du typage des données. Je ne sais pas si je peux faire pareil.

Par exemple le code suivant :
Code:

1 2 3 4 5 6 7 8 For c = 1 To Col With MaTableIndex .Name = nomtable With .Columns .Append Cells(1, c).Value End With End With Next
me permet de créer des champs dans une table sans forcer ni le type, ni la taille des données.
N'y aurait t'il pas une méthode similaire ?
18/11/2010, 15h58
jfontaine

Je ne vois pas comment créer une table "dans les règles de l'art" sans étudier par avance les besoins de chaque champ.
Il va falloir faire un choix
19/11/2010, 13h17
alexsolex

Je suis prêt à oublier les règles de l'art...

Comme tu peux voir dans l'exemple cité précédemment, la table est créée sans définir ni le type ni la taille des champs. Et pourtant ca fonctionne convenablement...