Pb : ADODB Runtime error 5

[cureuil]

Bonjour,

J'ai un souci conséquent, une erreur qui survient que je ne comprend pas alors j'aimerai avoir quelques avis si possible, car la je reste bloqué.

CI dessous ma méthode, l'erreur survient à l_StratPositions.Add et après vérification la base access est correct , pour une valeur bien précise dans la base de donnée un bug subsiste?

L erreur est :

Run-time error '5':
Invalid procedure call or argument

Public Sub getPositionsInStrategiesData(ByRef l_StratPositions As Collection, ByVal l_Positions As Collection, ByVal l_strategyID As Integer)

Dim sql As String
Dim dbrecord As New ADODB.Recordset

'Get the Data
sql = "SELECT PositionID FROM PositionsInStrategies WHERE trategyID = " & l_strategyID

dbrecord.Open sql, DB, adOpenForwardOnly, adLockOptimistic, adCmdText

'Put the Data in the Object
Do Until dbrecord.EOF

l_StratPositions.Add Item:=l_Positions(CStr(dbrecord.Fields ("PositionID"))), key:=CStr(l_Positions(CStr(dbrecord.Fields("PositionID"))).ID)

dbrecord.MoveNext
Loop

dbrecord.Close
End Sub

Merci beaucoup pour votre aide car j'en ai bien besoin,

cordialement.

 

[Compte Supprimé 979]

Re : Pb : ADODB Runtime error 5

Salut Cureuil,

Je serais à ta place je décortiquerais mon code et j'utiliserais le mode déboggage !

l_StratPositions.Add Item:=l_Positions(CStr(dbrecord.Fields ("PositionID"))), key:=CStr(l_Positions(CStr(dbrecord.Fields("Positi onID"))).ID)

A remplacer par

Dim VItem, VKey
VITem = l_Positions(CStr(dbrecord.Fields ("PositionID")))
VKey = CStr(l_Positions(CStr(dbrecord.Fields("Positi onID"))).ID)
l_StratPositions.Add Item:=VItem, key:=VKey

A voir

 

[cureuil]

Re : Pb : ADODB Runtime error 5

Salut Bruno,

Merci bien pour ta réponse, pour ton changement de variable l'erreur :

Object doesn't support this property or method.

Je vais tenter de le décortiquer un peu plus, merci bien pour votre aide.

Toutes nouvelles idées est la bienvenue.

 

[michel_m]

Re : Pb : ADODB Runtime error 5

Bonjour,
peut-être
essaies d'instancier les collections par set l_stratposition=new collection et set I_position= new collection

et si ca marche, n'oublie pas les set I_xxxxxx=nothing à la fin

Sans avoir trop étudié le code, j'aurais aussi été tenté de faire précéder la boucle par un movefirst mais...

en espèrant que...