CRÉATION DUNE BASE DE DONNÉE

'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

Télécharger le zip

• ACCESS TO ( XML,EXCEL )
• GESTION DE VIDÉOTHÈQUE
• GESTION TOURNOI
• BASE DE DONNÉES AVEC UN FICHIER À ACCÉS DIRECT
• APPLICATION DE GESTION DE FILMS

• UN ACCESS MOIN COMPLET (IL MANQUE L'ÉDITEUR DE BASE DE DONNÉ)
• CRÉATION ASSISTÉE PAR CODE DAO D’UNE TABLE DANS MS ACCESS – NOMBRE ET TYPE DE CHAMPS SELON LES BESOINS.
• FONCTION DAO PERMETTANT DE VÉRIFIER SI UNE TABLE POSSÈDE UN INDEX
• BASE DE DONNÉES ACCESS VIA DAO EN VB6 ( EXEMPLE COMPLET )
• COMBODATA ACCES - LISTE UN CHAMP ET DONNE SON INDEX DANS LA BASE