Escape from Reason

http://geekswithblogs.net/jakob/archive/2010/05/14/building-visual-studio-setup-projects-with-tfs-2010-team-build.aspx

hack to make msi’s get built on tfs

well, i think its a horrible horrible thing to do, but apparently engineering types like it.

so i learned how to do it in VBA

Private Sub CallStoredProc()
‘call stored proc

Sheet1.Range(“ResultSet”).ClearContents

Dim cmd As New ADODB.Command
Dim conn As ADODB.Connection
Dim prm As ADODB.Parameter
Dim strConn As String
Dim strSQL As String

strConn = “” ‘your connection string (go to www.connectionstrings.com to get all your connection goodness)

Set conn = New ADODB.Connection
conn.Open strConn

Set cmd = New ADODB.Command
cmd.CommandText = “” ‘the name of your stored procedure to call
cmd.CommandType = adCmdStoredProc
cmd.ActiveConnection = conn

Set prm = cmd.CreateParameter(“startdate”, adDate, adParamInput)
cmd.Parameters.Append prm
cmd.Parameters(“startdate”).Value = ’2007-1-1′ ‘or use a sheet cell (Sheet1.Range(“B3″).Value)

Set prm = cmd.CreateParameter(“string1″, adVarChar, adParamInput, 6)
cmd.Parameters.Append prm
cmd.Parameters(“string1″).Value = ’booyeah’

Set prm = cmd.CreateParameter(“number”, adInteger, adParamInput)
cmd.Parameters.Append prm
cmd.Parameters(“number”).Value = 10

‘Execute the Stored Procedure
‘and populate the result set

Dim Recordset As ADODB.Recordset
Set Recordset = cmd.Execute
Call Sheet1.Range(“A1″).CopyFromRecordset(Recordset)

’Close the connection
conn.Close

End Sub

yes, im a squealer. and im squealing. crazy sql at work. sigh.