Another snippet of code I like

I was rather in need of this code when I developed it. I was getting an error on an SQL command, and couldn't figure out which parameter was killing it. I give you the fix:

Public Function giveParams(ByVal cmd As SqlClient.SqlCommand) As String
Dim ourString As New System.Text.StringBuilder
Dim i As Int32
Dim p As SqlClient.SqlParameter
ourString.Append(cmd.CommandText & "<br />")
ourString.Append("<table><tr><td><strong>Name</strong></td>")
ourString.Append("<td><strong>OleDbType</strong></td>")
ourString.Append("<td><strong>Size</strong></td>")
ourString.Append("<td><strong>SourceColumn</strong></td>")
ourString.Append("<td><strong>SourceVersion</strong></td>")
ourString.Append("<td><strong>Value</strong></td></tr>")
' Walk each parameter in the command
For i = 0 To cmd.Parameters.Count - 1
p = cmd.Parameters(i)
ourString.Append("<tr>")
ourString.Append("<td>" & p.ParameterName & "</td>")
ourString.Append("<td>" & p.DbType.ToString & "</td>")
ourString.Append("<td>" & p.Size.ToString & "</td>")
ourString.Append("<td>" & p.SourceColumn & "</td>")
ourString.Append("<td>" & p.SourceVersion.ToString & "</td>")
ourString.Append("<td>'" & p.Value & "'</td>")
ourString.Append("</tr>")
Next 'p
ourString.Append("</table>")
Return ourString.ToString
End Function 'giveParams SQL


Enjoy