1
2
3
4
5
6
7
8
9
10
11
12
13
|
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))
|