Tu dois créer un dataenvironment :
>projet > Ajouter dataenvironment
Dans form load :
DataEnvironment1.Connection1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[chemin de la base];Persist Security Info=False"
DataEnvironment1.Connection1.Open
et pour créer une requête :
Dim rs As Recordset
Set rs = DataEnvironment1.Connection1.Execute("Select ...")
-------------------------------
Réponse au message :
-------------------------------
hello tout le monde,
mon temps est hyper compté
je suis en stage et je dois finir dans 3 jours
seulement jai un problème pour executer une requete enregistrée dans ma base à partir d'un code vb
en DAO mon code est:
Dim db As Database
Set db = opendatabase("relance97.mdb")
Dim qr As QueryDef
Set qr = db.QueryDefs("maj rel1")
qr.Execute
qr.Close
Set qr = db.QueryDefs("maj rel2")
qr.Execute
qr.Close
Set qr = db.QueryDefs("maj rel3")
qr.Execute
qr.Close
Set qr = db.QueryDefs("maj cont")
qr.Execute
qr.Close
et il fonctionne tres bien je l'ai testé
hors toute mon application est en ODBC et je c pas du tout comment faire ni mm si c possible
thankssss
|