Missing Temp Tables

,

Recently I was working on a small utility and ran into a problem you may find interesting. I had a 

fairly intense query that was going to be the basis for several other queries, so I decided to 

put the results of that query into a temp table. The next step would be to join to that table and 

perform some additional operations. 

Good plan, right? As I started to test, it seemed that the part that built the temp table worked 

fine, but follow up operations that used it failed. Why? Well, that's what I want you to tell me! 

I'm going to steal an idea from Sean Burke and put up five bucks of my own cash as the prize for 

figuring this out. Here are the rules:

  • Email your solution to me at awarren@cfl.rr.com. All entries must explain why the code below 

    fails AND how they figured it out.

  • I'll Paypal two bucks to the FIRST person with the correct

    solution.

  • Then I'll draw the names of three more people who submit the correct

    solution before midnight EST 

    on June 8, 2001 and Paypal them one dollar each!

  • I get to publish the names of the winning contestants along with their solutions in my follow 

    up article that will be posted on June 11, 2001.

Good luck!

Sub Test()

'5/27/01 Andy Warren

' Code that fails to execute as expected, can you figure out why?

'Requires a reference to ADO 2.6 and a local server with the pubs db

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim lCount As Long

On Error GoTo Handler

Set cn = New ADODB.Connection

cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial 

Catalog=pubs;Data Source=."

'get a list of ids we are concerned with, for this example

'just the ones pertaining to authors with a last name beginning

'with G

cn.Execute "select au_id into #TempIDList from authors where au_lname like 'g%'", lCount

Debug.Print "# of records in temp table: "; lCount

'now open a recordset based on the id's in the temp

'table - here we're just going to print the results,

'we probably be doing some kind of update normally

Set rs = New ADODB.Recordset

rs.Open "Select * from #TempIDList", cn

Do Until rs.EOF

    Debug.Print rs!Au_ID, rs!Au_Fname, rs!Au_Lname

    rs.MoveNext

Loop

rs.Close

Set rs = Nothing

Debug.Print "Done"

Exit Sub

Handler:

Debug.Print Err.Number, Err.Description

Resume Next

End Sub

See the answer to this puzzle at http://www.sqlservercentral.com/columnists/awarren/missingtemptablesfollowup.asp

Rate

Share

Share

Rate