专家坐堂-[求助]能获取储存过程内部变量值吗？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下可以获取的值：

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())