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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
| Public Function CreateAccessDatabase(ByVal DatabaseFullPath As String) As Boolean
Dim cat As New ADOX.Catalog()
Dim tbl1 As New ADOX.Table
Dim tbl2 As New ADOX.Table
Try
cat.Create("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & BddPath & "\Ophtalmo.accdb")
' Création de la table Praticiens
With tbl1
.Name = "Praticiens"
' le seul champ de cette table
.Columns.Append("Praticien", ADOX.DataTypeEnum.adVarWChar, 50)
End With
cat.Tables.Append(tbl1)
' Création de la table Consultations
With tbl2
.Name = "Consultations"
' les champs de la BDD
.Columns.Append("praticien", ADOX.DataTypeEnum.adVarWChar, 50)
.Columns.Append("day", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("nom", ADOX.DataTypeEnum.adVarWChar, 50)
.Columns.Append("prenom", ADOX.DataTypeEnum.adVarWChar, 50)
.Columns.Append("naissance", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("age", ADOX.DataTypeEnum.adVarWChar, 3)
.Columns.Append("oeil", ADOX.DataTypeEnum.adVarWChar, 2)
.Columns.Append("S", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("C", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Axe", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("sc", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("cc", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("ac", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("dva", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("add", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("nva", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("K1", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("K2", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("QI", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Pachy", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("ACD", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("AL", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("AD", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Pseudophake", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Pupilmeso", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Pupilphoto", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Pupilmax", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("SL", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("QL", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Q1et2", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Epsilon", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("QT", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("Qideal", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("QF", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("deltaQ", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("KIMAGE", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("TS", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("relift", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("version", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("flagimage", ADOX.DataTypeEnum.adVarWChar, 1)
.Columns.Append("qileft", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("qiright", ADOX.DataTypeEnum.adVarWChar, 10)
.Columns.Append("deltaqi", ADOX.DataTypeEnum.adVarWChar, 10)
End With
cat.Tables.Append(tbl2)
Return True
Catch Excep As System.Runtime.InteropServices.COMException
messageaff = "Database building Error"
infoaff = "Information"
MessageBox.Show(messageaff, infoaff, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return False
Finally
cat = Nothing
End Try
End Function |
Partager