CRÉATION DE BASES DE DONNÉES, TABLES ET CHAMPS AVEC ADOX

'création de la base
'frmParamTable est le nom du formulaire de création de tables

Private Sub cmdCreate_Click()
    Dim Ctl As New Catalog
    Dim tbl As New Table
    
    If txtBase = "" Then
        MsgBox ("Chemin de la base obligatoire"), vbInformation
        txtBase.SetFocus
        Exit Sub
    End If
    If txtNomBase = "" Then
        MsgBox ("Nom de la base obligatoire"), vbInformation
        txtNomBase.SetFocus
        Exit Sub
    End If
    
    If Dir(txtBase & "\" & txtNomBase) <> "" Then
        Kill txtBase & "\" & txtNomBase
    End If
    
    Ctl.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\projet\new.mdb "
    frmParamTable.Show 1
End Sub


Private Sub Dir1_Change()
txtBase = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error Resume Next
    Dir1.Path = Drive1
End Sub


'création de tables

    Dim tbl As New Table
    Dim cat As New adox.Catalog

   ' Ouvre le catalogue.
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data     Source=c:\projet\new.mdb"
    tbl.Name = "Table1"
    tbl.Columns.Append "NomChamps","type","size"   
    cat.Tables.Append tbl