Questions concernant la création d'une table MDB en VBA Excel

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

Je souhaite créer une une base de donnée MDB à partir de VBA Excel. Après diverses recherches sur le net, j'en suis arrivé à utiliser deux méthodes, mais j'ai quelques questions à leur propos.

1- en utilisant une requête SQL
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim cnn As Object Dim cat As Object Set cnn = CreateObject("ADODB.Connection") Set cat = CreateObject("ADOX.Catalog") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Engine Type=5; Data Source=E:\2017\Bilan.mbd" cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\2017\Bilan.mbd" cnn.Execute "CREATE TABLE Files (Id INT PRIMARY KEY NOT NULL, Path VARCHAR(255))", adCmdText + adExecuteNoRecords 'cnn.Execute "CREATE UNIQUE INDEX UX_Id ON Files (Id )", adCmdText cnn.Close Set cat = Nothing Set cnn = Nothing
Ce code me crée bien ma base et ma table.

Pièce jointe 261419

En utilisant cette méthode, y-a-t-il un moyen de faire en sorte que le champ Id s'auto-incrémente au fur et à mesure des ajouts d'enregistrements?

1- en utilisant ADOX
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 cnn As Object Dim cat As Object Dim objTable As Object Dim objKey As Object Set cnn = CreateObject("ADODB.Connection") Set cat = CreateObject("ADOX.Catalog") Set objTable = CreateObject("ADOX.Table") Set objKey = CreateObject("ADOX.Key") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Engine Type=5; Data Source=E:\2017\Bilan.mbd" cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\2017\Bilan.mbd" Set cat.ActiveConnection = cnn objTable.Name = "Files" With objTable.Columns .Append "Id", adInteger .Append "Path", adWChar, 255 End With objKey.Name = "Id" objKey.Type = adKeyPrimary objKey.Columns.Append "Id" objTable.Keys.Append objKey cat.Tables.Append objTable cnn.Close Set objTable = Nothing Set cat = Nothing Set cnn = Nothing
Pièce jointe 261444

Même question, y-a-t-il un moyen de faire en sorte que le champ Id s'auto-incrémente au fur et à mesure des ajouts d'enregistrements?

N'étant pas un expert en VBA et bases de données, quels sont les avantages / inconvénients de ces deux méthodes?

Voyez vous dans ces deux codes des erreurs ou choses choquantes? :aie:

Merci.

Ikes qui ne demande qu'à apprendre et comprendre.:mrgreen:

05/04/2017, 19h44
Ikes72000

1 pièce(s) jointe(s)

Bon, je me répond à moi même, j'ai trouvé une réponse pour l'auto-incrémentation avec ADOX. :mouarf:

J'ai trouvé l'info ici, c'est plutôt complet et bien expliqué. Et ça fonctionne!

Pièce jointe 261450

Bon, par contre je suis toujours preneur pour des réponses à mes autres questions.

Edit: j'ai aussi trouvé des infos sur l'implémentation de l'auto-incrémentation là.
05/04/2017, 21h38
Invité

bonsoir,

Code:

cn.Execute "CREATE TABLE Files (Id AUTOINCREMENT PRIMARY KEY NOT NULL, Path VARCHAR(255))"
06/04/2017, 17h27
Ikes72000

Merci dysorthographie.

Pour le choix de la méthode, y-a-t-il des avantages à utiliser l'une plutôt que l'autre (hors le fait que celle en SQL soit plus simple à écrire)?
06/04/2017, 17h45
Invité

Bonjour,
Je ne sais pas si ça répond à ta question, mais en 20 d'expérience je n'ai jamais utilisé Adodx!

2 pièce(s) jointe(s)

Bonjour,

Bon, j'ai suivi tes conseils dysorthographie et me suis donc lancer dans la création de mes tables à l'aide de requêtes SQL. :)
Et après pas mal de recherches et d'essais, j'arrive presque à mes fins. :mrgreen:

J'ai pour l'instant deux petits soucis. Pour le premier, l'une des colonnes doit s'appeler Year, sauf que c'est un mot clé et du coup j'ai une erreur lors de l’exécution de la requête. J'ai donc mis 'Year', ça fonctionne, mais du coup j'ai aussi les simples cotes dans le nom de la colonne. Y-a-t-il une syntaxe spécifique pour utiliser un mot clé comme nom de colonne ou n'est-ce tout simplement pas possible?

Mon code actuel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
   cnn.Execute "CREATE TABLE t_Imputation (Id int NOT NULL IDENTITY(1, 1) PRIMARY KEY," _
                & "FilePath varchar(255) NOT NULL," _
                & "FileName varchar(8) NOT NULL," _
                & "'Year' int NOT NULL," _
                & "Week int NOT NULL," _
                & "ProjectNumber varchar(6) NULL," _
                & "ProjectElement varchar(6) NULL," _
                & "TacheCode varchar(3) NULL," _
                & "Imputation real NOT NULL," _
                & "CONSTRAINT fk_FilePath_FileName FOREIGN KEY (FilePath, FileName) REFERENCES t_Files(Path, Name) ON DELETE CASCADE ON UPDATE NO ACTION," _
                & "CONSTRAINT chk_ProjectNumber CHECK (ProjectNumber LIKE '[0-9][0-9][0-9][0-9][0-9][0-9]')," _
                & "CONSTRAINT chk_ProjectElement CHECK (ProjectElement IN ('IMP01','ETU01','ETU02','ETU03','ETU05','DEPL01','CHA02','ATE01','SYCN01','SYDE01'))," _
                & "CONSTRAINT chk_TacheCode CHECK (TacheCode IN ('30','75','150','V','JS','VT','X','VX')))", adCmdText + adExecuteNoRecords

Pour le deuxième problème, cela concerne les nombres. Dans le code ci-dessus, j'ai des soucis avec la colonne Imputation. Par exemple, si je rentre la valeur 33,2 dans ma base, je me retrouve avec la valeur 33.2016971 après validation. :weird:
Pour cette colonne, j'ai essayé différents formats (decimal(x,y), numeric(x,y)), mais à chaque fois je me retrouve avec un format currency dans la base et ça merdouille lorsque je saisis une valeur et que je tente de valider. J'ai à chaque fois un message d'erreur.

Pièce jointe 266572

Pièce jointe 266577

Sinon, voici le code complet de création de mes tables. Avez-vous des remarques qui me permettrait d'améliorer celui-ci? :D

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
44
45
46
47
48
Sub CreateNewMDBSQL()
 
'***************************************************************************
'Création de la base de données bilan
'***************************************************************************
 
'Déclaration
    Dim cnn As Object
    Dim cat As Object
 
'Initialisation
    Set cnn = CreateObject("ADODB.Connection")
    Set cat = CreateObject("ADOX.Catalog")
 
'Création de la base de données Bilan.accdb
    cat.Create "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ThisWorkbook.Path & "\Bilan.accdb; Mode =" & adModeShareExclusive
    Set cnn = cat.ActiveConnection
 
'Création de la table Files
    cnn.Execute "CREATE TABLE t_Files (FileId int NOT NULL IDENTITY(1, 1) PRIMARY KEY," _
                & "Path varchar(255) NOT NULL," _
                & "Name varchar(8) NOT NULL," _
                & "DateLastModified datetime NOT NULL," _
                & "UpdateRequired bit DEFAULT True," _
                & "Excluded bit DEFAULT False," _
                & "CONSTRAINT chk_FileExist UNIQUE (Path,Name)," _
                & "CONSTRAINT chk_FileName CHECK (Name LIKE '[Ss][0-5][1-9].xlsm')," _
                & "CONSTRAINT chk_DateLastModified CHECK (DateLastModified >= #01/01/2017# AND DateLastModified <= date()))", adCmdText + adExecuteNoRecords
 
'Création de la table Imputation
   cnn.Execute "CREATE TABLE t_Imputation (Id int NOT NULL IDENTITY(1, 1) PRIMARY KEY," _
                & "FilePath varchar(255) NOT NULL," _
                & "FileName varchar(8) NOT NULL," _
                & "'Year' int NOT NULL," _
                & "Week int NOT NULL," _
                & "ProjectNumber varchar(6) NULL," _
                & "ProjectElement varchar(6) NULL," _
                & "TacheCode varchar(3) NULL," _
                & "Imputation decimal(2,2) NOT NULL," _
                & "CONSTRAINT fk_FilePath_FileName FOREIGN KEY (FilePath, FileName) REFERENCES t_Files(Path, Name) ON DELETE CASCADE ON UPDATE NO ACTION," _
                & "CONSTRAINT chk_ProjectNumber CHECK (ProjectNumber LIKE '[0-9][0-9][0-9][0-9][0-9][0-9]')," _
                & "CONSTRAINT chk_ProjectElement CHECK (ProjectElement IN ('IMP01','ETU01','ETU02','ETU03','ETU05','DEPL01','CHA02','ATE01','SYCN01','SYDE01'))," _
                & "CONSTRAINT chk_TacheCode CHECK (TacheCode IN ('30','75','150','V','JS','VT','X','VX')))", adCmdText + adExecuteNoRecords
    cnn.Close
    Set cat = Nothing
    Set cnn = Nothing
 
End Sub

20/04/2017, 17h49
Invité

bonjour,
les mots réservés comme les mots composés s'écrivent entre crochets!

D'une marnière général les champs s'écrivent entre crochets!

Code:

"[year],[la Date],[l''apostrophe]

dans le nom des champs on proscrira les apostrophe!
21/04/2017, 08h44
Ikes72000

Oui, effectivement c'est bien ça. J'avais trouvé de la doc là dessus, mais impossible de la retrouver. :aie:
Merci dysorthographie.

Par contre, pour mes problèmes de nombre, une idée?
21/04/2017, 09h08
Invité

Bonjour,

Citation:

Par contre, pour mes problèmes de nombre, une idée?

NUMBER(18, 2)
21/04/2017, 09h21
Ikes72000

Mon code, il n'en veut pas du format number. :)
Et avec numeric ou decimal, toujours impossible de valider l'enregistrement.
21/04/2017, 10h01
Invité

j'ai test "CREATE TABLE BOF (Id AUTOINCREMENT PRIMARY KEY NOT NULL, Path NUMERIC (18,2))" et ça fonction!
21/04/2017, 10h38
Ikes72000

1 pièce(s) jointe(s)

Et bien chez moi, ça ne veut pas. :(
Que je crée ma table avec une requête SQL ou que je passe par ADOX, je me retrouve avec un format currency dans ma base et l'impossibilité de valider les enregistrements.
J'ai ce beau message d'erreur :

Pièce jointe 266768

Si je ne trouve pas la solution, je vais me limiter au format float.