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 :hello:
(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]
redridinghood
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 !
486dx
ouch
t'as pas un exemple ?
yop
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:)
486dx
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)
'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)
