Discussion :

[Ikes72000]

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 :

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

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.



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 :

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
    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

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?

Merci.

Ikes qui ne demande qu'à apprendre et comprendre.

[Ikes72000]

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

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



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à.

[Invité]

bonsoir,

Code :

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

cn.Execute "CREATE TABLE Files (Id AUTOINCREMENT PRIMARY KEY NOT NULL, Path VARCHAR(255))"

[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)?

[Invité]

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

[Ikes72000]

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.

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 :

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

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.
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.





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

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
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

[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 :

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

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

dans le nom des champs on proscrira les apostrophe!

[Ikes72000]

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

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

[Invité]

Bonjour,

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

NUMBER(18, 2)

[Ikes72000]

Mon code, il n'en veut pas du format number.
Et avec numeric ou decimal, toujours impossible de valider l'enregistrement.

[Invité]

j'ai test "CREATE TABLE BOF (Id AUTOINCREMENT PRIMARY KEY NOT NULL, Path NUMERIC (18,2))" et ça fonction!

[Ikes72000]

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 :



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