Eine kleine Debugfunktion für SQLCMDs mit Parameter. Man sieht ja leider nicht welcher Parameter nicht stimmt. Mit dieser Funktion wird er sichtbar ;)
Public Shared Function CheckSQLParameters(byval SQLCmdCheck as SQLCommand) as string
dim str1,str2,ausgabe as string = ""
dim parameter as SqlParameter
for each parameter in SQLCmdCheck.Parameters
str1 = str1 & parameter.value & ";"
str2 = str2 & vbNewLine & parameter.ParameterName & "=" & param.Value
next
ausgabe = SQLCmdCheck.CommandText & vbNewLine & str1
ausgabe = ausgabe & vbNewLine & str1
Return ausgabe
End Function
Messagebox.show(CheckSQLParameters(sqlcmd))
1 Kommentare zum Snippet