Création de bases de données, tables et champs avec adox

Commenter

Contenu du snippet

Ce code permet de créer via un code visual basic un base access avec ses tables et les champs correspondants.
Le programme est à son début, je compte plus le paramétrer pour aboutir à une vrai interface avec Access2000 ou 97.

Il faut ajouter la référence Microsoft ADO EXT 2.5 for dll and security

Source / Exemple : 


'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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.