Comment créer une base (pas une table) au format ACCESS 2002 avec ADO ?

Question

Comment cr&#233;er une base (pas une table) au format ACCESS 2002 avec ADO ?

ta4444 · Answer

Ajouter les r&#233;f&#233;rences :
Microsoft ActiveX Data Object 2.x
Microsoft ADO Ext 2.x for dll

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim MaBase  As ADOX.Catalog
    Dim MaTable As ADOX.Table
    Dim NomMaBase As String

    Set MaBase = New ADOX.Catalog
    MaBase.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & NomMaBase & ";" & _
            "Jet OLEDB:Engine Type=5;"

        Set MaTable = New ADOX.Table
        With MaTable
            .Name = "NomMatable"
            .Columns.Append "NomChamp1r", adWChar, 6
            .Columns.Append "NomChamp2", adWChar, 30
        End With
        MaBase.Tables.Append MaTable

        Set MaTable = Nothing
        Set MaBase = Nothing

cs_globule · Answer

Super

Merci

Comment créer une base (pas une table) au format ACCESS 2002 avec ADO ?

2 réponses

Discussions similaires