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 firstname.lastname@example.org. 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
- 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.
'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
'get a list of ids we are concerned with, for this example
'just the ones pertaining to authors with a last name beginning
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
Set rs = Nothing
Debug.Print Err.Number, Err.Description
See the answer to this puzzle at http://www.sqlservercentral.com/columnists/awarren/missingtemptablesfollowup.asp