Discussion :

[cornet04]

Bonjour,
Voici quelques lignes de code tres classiques qui me servent a ouvrir un recordset. Dans ce cas precis je tombe sur le message d'erreur suivant
erreur d'excution 2147467259 (80004005) la methode open de l'objet recordset a echoué .
Quelqu'un aurait il une solution ou un debut de reponse a ce probleme ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Dim r As ADODB.Recordset 'r sera un objet de la classe des record set
Set r = New ADODB.Recordset 'creation d'un record set nouveau qui se nome r
Set r.ActiveConnection = CurrentProject.Connection 'connection courante
r.CursorType = adOpenDynamic 'type curseur
r.LockType = adLockOptimistic
 
Dim sql1 As String
 
sql1 = "SELECT t_proj_unit.id_proj, t_proj_unit.axe, t_proj_unit.position, t_proj_unit.pt_forts, t_proj_unit.pt_faibles " _
& " FROM t_proj_unit " _
& " where id_proj = " & Me!id_proj
 
r.Source = sql1
r.Open
 
r.Close
 
End Sub

[Taoueret]

peut-être que c'est ta requête sql qui n'est pas correcte...

essaie de l'exécuter dans une requête Access pour vérifier qu'elle est correcte...

[Access Newbie]

Bonjour,

Perso j'utilise les recordset comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim r As ADODB.Recordset 'r sera un objet de la classe des record set
Set r = New ADODB.Recordset 'creation d'un record set nouveau qui se nome r
 
sql1 ="...."
r.Open sql1, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
....
r.Close
set r = nothing