Dim connectionString As String = "Data Source=.;Initial Catalog=test1;Integrated Security=SSPI;Persist Security Info=False;"
Using connection As New system.Data.SqlClient.SqlConnection(connectionString)
Try
' 打开数据库连接
connection.Open()
' 创建 SqlCommand 对象
Dim command As New system.Data.SqlClient.SqlCommand("test", connection)
command.CommandType = Data.CommandType.StoredProcedure
' 添加输入参数
' Dim inputParam As New SqlParameter("@EmployeeID", SqlDbType.Int)
' inputParam.Value = 1 ' 假设我们要查找 EmployeeID 为 1 的员工
' command.Parameters.Add(inputParam)
' 添加输出参数
Dim outputParam As New system.Data.SqlClient.SqlParameter("@ReturnJson", Data.SqlDbType.NVarChar, 10000)
outputParam.Direction = Data.ParameterDirection.Output
command.Parameters.Add(outputParam)
' 执行存储过程
command.ExecuteNonQuery()
' 获取输出参数的值
Dim employeeName As String = CType(command.Parameters("@ReturnJson").Value, String)
Output.Show(employeeName.Length)
Catch ex As Exception
Output.Show("Error: " & ex.Message)
End Try
End Using