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

0/5 (6 avis)

Snippet vu 5 799 fois - Téléchargée 44 fois

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

Ajouter un commentaire Commentaires
Whismeril Messages postés 18203 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 31 janvier 2023 624
19 mars 2018 à 08:20
Bonjour, le code ici est du vb6, toi tu codes en vb.net ça n’est pas compatible.
cs_colby Messages postés 129 Date d'inscription mardi 10 mai 2005 Statut Membre Dernière intervention 14 novembre 2022
19 mars 2018 à 07:26
Une info supplémentaire
Le type de données, on a
TEXT
DATETIME
NUMERIQUE
Etc...
Que met-on lorsqu'il s'agit d'un
OBJET OLE
MERCI
leaemile Messages postés 4 Date d'inscription mercredi 5 mai 2004 Statut Membre Dernière intervention 9 mai 2011
6 mai 2004 à 14:26
J'ai également la même erreur que MELISA
Mon data source étant A:\Mabase.mdb

Ce serait super de bien vouloir nous indiquer la raison de cette erreur
Merci
Léa
cs_MELISA Messages postés 72 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 12 février 2008
19 août 2003 à 16:05
J'ai l'erreur lorsque je fais cat.ActiveConnection= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:projet
ew.mdb"

Une exception non gérée du type 'System.Runtime.InteropServices.COMException' s'est produite dans WindowsApplication1.exe

Informations supplémentaires : Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

merci pour ton aide
Mumuri Messages postés 320 Date d'inscription mercredi 9 octobre 2002 Statut Membre Dernière intervention 6 avril 2008
12 oct. 2002 à 11:13
merci
Afficher les 6 commentaires

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.