Création dune base de donnée

4/5 (10 avis)

Vue 12 910 fois - Téléchargée 1 888 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
Cramfr Messages postés 160 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 8 juillet 2008
21 août 2007 à 13:18
cs_sallahedine Messages postés 4 Date d'inscription jeudi 9 novembre 2000 Statut Membre Dernière intervention 7 mai 2006
7 mai 2006 à 17:54
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
cs_moonstar Messages postés 3 Date d'inscription jeudi 9 septembre 2004 Statut Membre Dernière intervention 11 octobre 2005
11 oct. 2005 à 16:52
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.
purplespot Messages postés 60 Date d'inscription mercredi 4 mai 2005 Statut Membre Dernière intervention 17 avril 2006
26 août 2005 à 22:05
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.
cs_asimengo Messages postés 280 Date d'inscription jeudi 24 mars 2005 Statut Membre Dernière intervention 18 mars 2009
26 août 2005 à 21:56
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
Afficher les 10 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.