1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Création de bases de données, tables et champs avec adox

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 574 fois - Téléchargée 42 fois

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

Ajouter un commentaire Commentaires
Signaler
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
Signaler
Messages postés
15782
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
10 avril 2021
 529 >
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.
Signaler
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
Signaler
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
Signaler
Messages postés
320
Date d'inscription
mercredi 9 octobre 2002
Statut
Membre
Dernière intervention
6 avril 2008
merci
Afficher les 6 commentaires
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.