Article ID: 160168
Article Last Modified on 7/16/2004
rdoConn.Execute "Select * Into ##Temp1 From Authors"
Set rs = rdoConn.OpenResultset("Select * from ##Temp1")
Another workaround is to create temporary tables by using stored procedures
in SQL server. For implementation details, please see the following article
in the Microsoft Knowledge Base:
147938 RDO: Getting Data from Temp Tables Created by Stored Procedure
Private Sub Command1_Click()
Dim rdoEnv As rdoEnvironment
Dim rdoConn As rdoConnection
Dim strConn As String
Dim ps As rdoPreparedStatement
Set rdoEnv = rdoEngine.rdoEnvironments(0)
rdoEnv.CursorDriver = rdUseOdbc
'***You need to change the SERVER, UID, and PWD parameters here.
strConn = "driver={SQL Server};server=myserver;" & _
"database=pubs;uid=<username>;pwd=<strong password>"
Set rdoConn = rdoEnv.OpenConnection( _
dsName:="", _
Prompt:=rdDriverNoPrompt, _
ReadOnly:=False, _
Connect:=strConn)
rdoConn.Execute "Select * into #Temp1 From Authors"
Set rs = rdoConn.OpenResultset("Select * from #Temp1")
Do Until rs.EOF
Debug.Print rs.rdoColumns(0) & ", " & rs.rdoColumns(1)
rs.MoveNext
Loop
rs.Close
rdoConn.Close
rdoEnv.Close
End Sub
Additional query words: kbVBp400 kbVBp500 kbVBp600 kbdse kbDSupport kbVBp kbRDO
Keywords: kbprb KB160168