RunTime Error 3704 Loading Recordset from Stored Procedure

Hot Topic

[Access 2003] [ADO Excel Connection] Run-time error '-2147217865 (80040e37)'
VBA Userform Control of multiple userform controls
How to stop a never ending loop
Summing up hours on form based on parameter query
Show Full Menu in Access
How do I call for all installed printers....
Autocomplete entries in inputboxes
This is an unexpected token. The expected token is 'SEMICOLON' while Loading xml file which is read from share point
Service won't use default printer
Need help with a macro (not sure if correct site... thx)

Microsoft ISV

Solved - Help with Excel VBA Code
Does WER work for Outlook addins?
Visio : Search facility using VBA
Making connection from one Access database to another.
beforeClose event bringing up compile error...
Moving Data
use inputbox to choose cells for plots in excel
Need help with Winsocket control in Microsoft Access Database form.
Help Deploying VBA changes across hundreds of Word Temlates
Restrict editing of activity based on date comparison

RunTime Error 3704 Loading Recordset from Stored Procedure

I am attempting to load a recordset generated by an SQL stored procedure (no parameters) into Excel using VBA. When my code hits the last line, highlighted below, a "RunTime Error 3704: Application-Defined or Object-Defined Error" error occurs.

Any ideas

Dim RSData2 As ADODB.Recordset
Dim DBConn As New ADODB.Connection

Const stADO = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Initial Catalog=PennTel_Core_Demo;" & _
"Data Source=172.17.9.44"
stSQL = "aaa_WPAHS1"

Set RSData2 = New ADODB.Recordset

'On Error GoTo Cleanup

Call RSData2.Open(stSQL, stADO, CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, CommandTypeEnum.adCmdStoredProc)

Call Range("C10").CopyFromRecordset(RSData2)

kedst1

Answer this question

RunTime Error 3704 Loading Recordset from Stored Procedure

  • glasgow1

    ADG,

    Thanks for the response. What are the best ways to test the state of the recordset I have tried using the record count property and trying to get a return value on the recordset itself without success. Are other methods of doing this

    Thanks, any help is appreciated.

    kedst1

  • NetPochi

    Hi

    I would normally use the below syntax

    Range("C10").CopyFromRecordset RSData2

    But I suspect that the recordset has not been correctly returned. Try checking to see if the recordset has records or is equal nothing before this line. I have seen a number of posts where the time taken to execute procedures has caused simalar problems

    Regards

    ADG
  • RunTime Error 3704 Loading Recordset from Stored Procedure
Answer this question