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
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.