Right! Recycling is good!

we're a bit behind in northern ireland.. no recycle pick-up.. so rather i dump my code out in the back yard with all the other 'recyclables' (is that spelt completely wrong?) that are going to be taken to the recycle bin at some point by my housemate who has been promising to for the past 2 years..

Bugger it.  It's gonna be another one of those days.

I've been to the post office this morning to pick up a parcel which is bound to be a bunch of My Little Ponies. 

I get to work nice and early hoping toget my stuff done and go home nice and early, only to find that the e-mails I need to get on with my work haven't arrived yet. 

And no-one's in the office reponsible for 'em until 8. 

If I'm lucky.

On the plus side, I'm getting some quality alone time on the Board.  I can post as much as I like and no-one's gonna interupt me!

You must look cute to Darren if he's the one who tells you you are. 

Sorry Vic.  Can't help you on that one.  Never seen you in your dressing gown!  Thinking about it though, I wouldn't have imagined minging.

Right here baby - minging like mad.

---

SAS mixed with a little SQL.  I can never make my mind up which to use so I mix them - much to my boss' confusion!!

---

Nicely. SQL is definitely an nice mixer! What you didn't see with my code is that the loop calls 230 sql passes. I reinvented the wheel with OLE DB/ADO in VBA to time test it out with one SQL pass. Looked like:


Sub OLEDB_TEST()

Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim clcMde As Long

Let clcMde = Application.Calculation

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

On Error Resume Next

Set cn = New ADODB.Connection

cn.Open "Provider=SQLOLEDB; " & _
"Network Library=DBMSSOCN; " & _
"Data Source=xxx.xxx.xxx.xxx,1433; " & _
"User ID=myself; " & _
"Password=myself"

Set rs = New ADODB.Recordset

With rs
Set .ActiveConnection = cn
.Source = "SELECT Sum(Yadda.yadda) ….”

.Open , , adOpenStatic, adLockReadOnly

Sheets(1).Range("b2").CopyFromRecordset rs
.Close
End With
cn.Close

Set rs = Nothing: Set cn = Nothing

With Application
.ScreenUpdating = True
.Calculation = clcMde
End With

If CBool(Err.Number) Then MsgBox Err.Description

End Sub

Early bound, needs an ADO reference. Nevermind my boss, noone in my company has any idea what I'm talking about with this stuff! No matter, works pretty well for my purposes!

It's always useful to know more than your boss does.