Création dune base de donnée

4/5 (10 avis)

Vue 12 793 fois - Téléchargée 1 861 fois

Description

Création d'une base de donnée avec l'uterface DAO sans l'aide de microsoft access

Source / Exemple :


'Module de démarrage

Public Ex As Database
Public T1 As DAO.Recordset
Public Ann As Database
Public TC As DAO.Recordset
Public TF As DAO.Recordset
Public TA As DAO.Recordset
Public RR As DAO.Recordset
Public Sub main()
    Set Ex = OpenDatabase(App.Path & "\exist.mdb")
    Set T1 = Ex.OpenRecordset("t1")
    If T1.RecordCount = 0 Then
        Create.CreateDB
        T1.AddNew
        T1!Create = 1
        T1.Update
        T1.Close
        Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
        Ex.Close
        FrmMenu.Show
    Else
        Set Ann = OpenDatabase("d:\Base Create\Ann.mdb")
        FrmMenu.Show
    End If
    
End Sub

'Module de création de BD

Public Sub CreateDB()

    Dim dbNew As DAO.Database
    Dim Tb As TableDef
    Dim f As DAO.Field

    MkDir ("d:\Base Create")
    'crée Base de donnée
    Set dbNew = DBEngine.CreateDatabase("d:\Base Create\Ann.mdb", dbLangGeneral)
    'céation de la table Client
    Set Tb = dbNew.CreateTableDef("Client")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("Cin", dbCurrency, 8)
    .Fields.Append .CreateField("Cin", dbLong, 8)
    .Fields.Append .CreateField("Nom", dbText)
    .Fields.Append .CreateField("Prenom", dbText)
    '.Fields.Append .CreateField("Tel", dbCurrency, 8)
    .Fields.Append .CreateField("Tel", dbLong, 8)
    End With
    dbNew.TableDefs.Append Tb
    
    'céation de la table Fournisseur
    Set Tb = dbNew.CreateTableDef("four")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("Cfour", dbCurrency, 3)
    .Fields.Append .CreateField("Cfour", dbLong, 3)
    .Fields.Append .CreateField("Nom", dbText)
    .Fields.Append .CreateField("Tel", dbCurrency, 8)
    End With
    dbNew.TableDefs.Append Tb
    
    'céation de la table Agendat
    Set Tb = dbNew.CreateTableDef("Agn")
    'création des champs de la table
    With Tb
    '.Fields.Append .CreateField("N°", dbCurrency)
    .Fields.Append .CreateField("N°", dbLong)
    .Fields.Append .CreateField("Date", dbDate)
    .Fields.Append .CreateField("Heure", dbDate)
    .Fields.Append .CreateField("Des", dbText)
    End With
    dbNew.TableDefs.Append Tb
    
    If Not dbNew Is Nothing Then dbNew.Close
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
160
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
8 juillet 2008

Messages postés
4
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mai 2006

pouyr ma part je trouve ce code géniale aussi car ca différe des besoin que on a si d'autre ne voi pas l'intéré de ce code c qu'il monque un peu de creativité moi de ma part je donne 8/10 car il é bien ecrit et bien structuré et fiable
Messages postés
3
Date d'inscription
jeudi 9 septembre 2004
Statut
Membre
Dernière intervention
11 octobre 2005

Au départ sous Access :

Je cherche désespérément à créer par script un champ de type 'autoNumber' au format 'Replication ID' en primary key avec valeur par défaut = (newid()).

J'ai réussi à faire un champ integer autonumber, primary key etc. ou alors un champ 'replication ID' primary key mais il ne veut PAS y mettre de valeur par défaut (de type CLSID donc) or il me faudrait un champ de type 'Replication ID'

Quelqu'un aurait-il une vague idée ?

Merci d'avance.
Messages postés
60
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
17 avril 2006

Sorry, mais pour ma part cela fait longtemps que j'utilise ces fonctionnalités.
Pour ma part, je trouvais cela un peu naïf, mais bon tout le monde n'a pas le même niveau.

Sorry.
Messages postés
280
Date d'inscription
jeudi 24 mars 2005
Statut
Membre
Dernière intervention
18 mars 2009

je suis du même avis, car il s'agit d'un code clair qui aiderait les habitués à ACCESS de commencer VB par une syntaxe familière avant de commencer ADO. Car rien ne dit que Chalghoum ne connait rien en ADO. J'ai pas ouvert le code mais c'est toujours bon pour ma bibliothèque et là je mets 8/10, c'est pas pour le flatter mais c'est assez propre à voir la source plus haut.

Asimengo

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.