Exemple de creation d'une base de donnees

Soyez le premier à donner votre avis sur cette source.

Vue 12 515 fois - Téléchargée 1 767 fois

Description

Il faut juste changer les parametres en fonction de l'application et ca va marcher, et il y a toutes les procedures necessaires pour creer une base de donnees

Source / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_titi007
Messages postés
3
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
7 septembre 2009
-
Exelent , il y a de quoi prendre du poil
un similaire pour de l'ADO m'interesse
ghitaik
Messages postés
37
Date d'inscription
lundi 1 novembre 2004
Statut
Membre
Dernière intervention
11 mai 2009
-
pas de quoi, c'est gratuit ;)
ca fait plaisir de savoir que ca aide quelqu'un
fadelovesky
Messages postés
38
Date d'inscription
samedi 12 février 2005
Statut
Membre
Dernière intervention
27 décembre 2008
-
vous m'avez sauver !!! merciiiiiiiiiiiiiiiiiiiiiii!!!
ghitaik
Messages postés
37
Date d'inscription
lundi 1 novembre 2004
Statut
Membre
Dernière intervention
11 mai 2009
-
merci, mais si tu as besoin d'un soutien, tu sais je suis la :D
odan71
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007
-
cooooooooooooool

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.