Bonjour à tous,
J'ai un message d'erreur "Type Non Valide" dans ma procédure et je ne vois vraiment pas d'ou peux venir le problème, vous pouvez m'aider ?
Voici la procédure :
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 Public Sub CreateBase() Dim strFilePathName As String = "C:\Temp\Base.mdb Dim Catalog As New ADOX.Catalog Dim MaTable As New ADOX.Table Dim Connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & strFilePathName & ";Jet OLEDB:Database Password="1234;" Catalog.Create(Connstr) MaTable.Name = "Table1" MaTable.Columns.Append("Colonne1", DataTypeEnum.adChar, 30) Catalog.Tables.Append(MaTable) ' -> Erreur : Type Non Valide MaTable = Nothing Catalog = Nothing MessageBox.Show("Table created!") End Sub
Partager