dim strslt as string
Dim MonRS As Recordset
strslt = "SELECT gestion.Nom FROM gestion"
MonRS.Open strslt, cn, adOpenStatic, adLockReadOnly, adCmdText
tout ça dans ta form
***********************************************************
dans un module séparer
colle ce code
Option Explicit
Public cn As ADODB.connection
Public Sub connect()
Set cn = New ADODB.connection
''On Error GoTo errFind
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
"C:\Test\personnel.mdb"
.Open
End With
Exit Sub
errFind:
MsgBox "Impossible to connect to database PDM", vbExclamation, "Error"
End
End Sub
derniere chose tu fais appel au module dans le load du la form:ecrit just
connect
voila et ça fonction, c' est plus propre!!
si pb email me
-------------------------------
Réponse au message :
-------------------------------
Voici mon code (trouvé sur le forum)
Dim MaBD As Database
Dim MonRS As Recordset
Set MaBD = DBEngine.OpenDatabase("C:\Test\personnel.mdb", True, True)
Set MonRS = BDDefinitions.OpenRecordset("SELECT gestion.Nom FROM gestion;", dbOpenSnapshot)
J'obtiens l'erreur 424 ("objekt erforderlich", ce qui doit vouloir dire qu'il manque un objet)
C'est quoi le problème ?
