EXEMPLE DE CREATION D'UNE BASE DE DONNEES

Dim db As Database
Sub test(NBD As String)
    If (Dir(NBD) = "") Then
        Set db = CreateDatabase(NBD, dbLangGeneral)
        If Not db Is Nothing Then
            creer_tables db
            Else
            MsgBox "erreur"
        End If
    End If
End Sub
Sub champs(tb As TableDef, nom As String, t As Integer, Optional s As Integer, Optional z As Boolean = True, Optional r As Boolean = False)
Dim f As Field
Set f = New Field
    f.Name = nom
    f.Type = t
    If (s <> 0) Then f.Size = s
    tb.Fields.Append f
    f.AllowZeroLength = z
    tb.Fields(nom).Required = r
End Sub
Sub indexer(tb As TableDef, nom As String, ref As String, Optional t As Boolean)
Dim ind As Index
Set ind = New Index
    ind.Name = nom
    ind.Fields = ref
    ind.Primary = True
    ind.Unique = t
    tb.Indexes.Append ind
End Sub

Sub creer_produit(db As Database, nom As String)
Dim tb As New TableDef
    tb.Name = nom
    champs tb, "ref", dbText, 10, True, False
    champs tb, "desig", dbText, 10
    champs tb, "qs", dbInteger
    champs tb, "pu", dbInteger
    indexer tb, "xcode", "ref"
    db.TableDefs.Append tb
End Sub
Sub creer_client(db As Database, nom As String)
Dim tb As New TableDef
    tb.Name = nom
    champs tb, "CIN", dbText, 10
    champs tb, "nom", dbText, 20
    champs tb, "prenom", dbText, 20
    champs tb, "adresse", dbText, 30
    champs tb, "tele", dbInteger, 11
    champs tb, "fax", dbInteger, 20
    indexer tb, "xcode", "CIN"
    db.TableDefs.Append tb
End Sub
Sub creer_facture(db As Database, nom As String)
Dim tb As New TableDef
    tb.Name = nom
    champs tb, "Nfact", dbText, 10
    champs tb, "CIN", dbText, 10
    champs tb, "date", dbDate
    indexer tb, "xcode", "Nfact"
    db.TableDefs.Append tb
End Sub
Sub creer_articles(db As Database, nom As String)
Dim tb As New TableDef
    tb.Name = nom
    champs tb, "Nfact", dbText, 10
    champs tb, "ref", dbText, 10
    champs tb, "q", dbInteger
    indexer tb, "xcode", "Nfact"
    db.TableDefs.Append tb
End Sub
Sub creer_tables(db As Database)
    creer_produit db, "produit"
    creer_client db, "client"
    creer_facture db, "facture"
    creer_articles db, "articles"
End Sub