pour creer une base de donnée je fais:
 
Dim db As Database
Dim table As TableDef
Dim champs(1 To 3) As Field
 
Set ws = DBEngine.Workspaces(0)
Set db = ws.CreateDatabase("c:\3\glen\glen.mdb", dbLangGeneral, dbVersion30)
Set table = db.CreateTableDef("Liste" )
Set champs(1) = table.CreateField("nom", dbText, 20)
Set champs(2) = table.CreateField("prenom", dbText, 20)
Set champs(3) = table.CreateField("salaire", dbInteger)
 
table.Fields.Append champs(1)
table.Fields.Append champs(2)
table.Fields.Append champs(3)
db.TableDefs.Append table
 
'index
Dim ind As Index
Set ind = table.CreateIndex("indnom" )
Dim tempo As Field
Set tempo = ind.CreateField("nom" )
ind.Fields.Append tempo
table.Indexes.Append ind
------------------------------------
comment faire pour entrer des données dans ma base de donnée en utilisant les objets dao (et pas l'objet data)
 
(j'aurai jamais de reponse)

[edtdd]--Message édité par 486dx--[/edtdd]

2 solutions :
  - En passant par l'object recordset de DAO (db.openrecordset ...,  rec.edit, .. rec.update) cf MSDN
  - Ou bien par la methode 'db.execute' de la database en sql par un insert.
 
Bon courage

ouch
 
t'as pas un exemple ?

perso je prefere la methode SQL:
(je me souviens plus trop comment on fait en VB, mais l'idee est la)
tu cree une chaine contenant ta requete d'ajout:
"INSERT INTO nomtalbe VALUES(v1,v2...)"
tu crée un recordset sur ta table
tu ouvres le recordset avec ta chaine d'ajout (gaffe aux verrous sur la table)
 
voile !

j'ai trouvé ca (et en plus ca marche):
 
Set db = OpenDatabase("c:\3\glen\glen.mdb" )
Set rs = db.OpenRecordset("Liste" )
rs.AddNew
rs!nom = "pouet"
rs!prenom = "pof"
rs!salaire = 23
rs.Update
 
 
merchi quand meme
(ca marche aussi
Set db = OpenDatabase("c:\3\glen\glen.mdb" )
Set rs = db.OpenRecordset("Liste" )
 
    db.Execute " INSERT INTO Liste " _
        & "(nom,prenom, salaire) VALUES " _
        & "('Hdfarry', 'Washington', '121';"

[edtdd]--Message édité par 486dx--[/edtdd]

ok !!!