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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 467 fois - Téléchargée 42 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

Messages postés
124
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
29 mai 2020

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
Messages postés
14785
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 septembre 2020
438 >
Messages postés
124
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
29 mai 2020

Bonjour, le code ici est du vb6, toi tu codes en vb.net ça n’est pas compatible.
Messages postés
4
Date d'inscription
mercredi 5 mai 2004
Statut
Membre
Dernière intervention
9 mai 2011

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
Messages postés
72
Date d'inscription
mardi 16 avril 2002
Statut
Membre
Dernière intervention
12 février 2008

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
Messages postés
320
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
6 avril 2008

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.