Use same connection for multiple recordsets
Hi all,
I loop through some cells and each cell value is part of SQL string that I
query database with.
When it loops a second time on IIF clause, a Run-time error of 3021 'Either
BOF or EOF is True, or the current record has been deleted. Requested
operation requires a current reocrd."
Here is the code:
---
Dim adoActiveConn As ADODB.Connection
Dim rngAccount As Range
Dim rsCParty As ADODB.Recordset
Set adoActiveConn = DBConn()
For Each rngAccount In rngEntries
Set rsCParty = New ADODB.Recordset
With rsCParty
.ActiveConnection = adoActiveConn
.Open "Select c.name from MyTable where price = " &
rngAccount.Offset(0, 1).Value)
rngAccount.Offset(0, 2).Value = IIf(.EOF = False, .GetRows,
"Unknown")
.Close
End With
Next rngAccount
---
Thanks for your time.
Cheers,
|