以下可以获取的值:
Dim Cnn As New Data.OleDB.OleDbConnection(Connections("监管").ConnectionString)
Cnn.Open()
Dim adoCmd As New Data.OleDB.OleDbCommand("p_nlzx_radar_qry", Cnn)
adoCmd.CommandType = System.Data.CommandType.StoredProcedure
adoCmd.Parameters.Add("@i_op_id", System.Data.OleDb.OleDbType.VarChar,32)
adoCmd.Parameters("@i_op_id").value="ADMIN"
adoCmd.Parameters.Add("@i_enterprise_id", System.Data.OleDb.OleDbType.VarChar,32 )
adoCmd.Parameters("@i_enterprise_id").value="AF001F03C7C64D83A586BE206FCCFBE5"
adoCmd.Parameters.Add("@o_score", System.Data.OleDb.OleDbType.VarChar,50)
adoCmd.Parameters("@o_score").Direction = System.Data.ParameterDirection.Output
adoCmd.Parameters.Add("@o_level",System.Data.OleDb.OleDbType.VarChar,1)
adoCmd.Parameters("@o_level").Direction = System.Data.ParameterDirection.Output
adoCmd.Parameters.Add("@o_outcode", System.Data.SqlDbType.int)
adoCmd.Parameters("@o_outcode").Direction = System.Data.ParameterDirection.Output
adoCmd.Parameters.Add("@o_outmsg", System.Data.OleDb.OleDbType.VarChar,500)
adoCmd.Parameters("@o_outmsg").Direction = System.Data.ParameterDirection.Output
adoCmd.ExecuteNonQuery()
output.show(adoCmd.Parameters("@o_score").Value.ToString())
output.show(adoCmd.Parameters("@o_level").Value.ToString())
output.show(adoCmd.Parameters("@o_outmsg").Value.ToString())