View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Tetsuya Oguma[_4_] Tetsuya Oguma[_4_] is offline
external usenet poster
 
Posts: 19
Default 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,