mysql - 存储过程 VB.NET MYSQL

Question

你好，我仍然有问题，它给我带来了 DBnull，我尝试了 Store 过程并且工作正常。这是我的代码。如果有人可以帮助我，我将不胜感激。

        conexion.Open()
        command.Connection = conexion
        command.CommandText = "TraerPaisOrigen"
        command.CommandType = CommandType.StoredProcedure

        command.Parameters.AddWithValue("@Cod_Dua", TxtCodDUA.Text)
        command.Parameters("@Cod_Dua").Direction = ParameterDirection.Input



        command.Parameters.AddWithValue("@_PaisOrigen", MySqlDbType.VarChar)
        command.Parameters("@_PaisOrigen").Direction = ParameterDirection.Output
        command.ExecuteNonQuery()

        'XML_PaisOrigen is a String

        XML_PaisOrigen = command.Parameters(0).Value.ToString




        conexion.Close()

我的存储过程

CREATE PROCEDURE TraerPaisOrigen( IN Cod_Dua INT, OUT _PaisOrigen VARCHAR(2))

Answer 1

这个:

command.Parameters.AddWithValue("@Cod_Dua", TxtCodDUA.Text)
command.Parameters("@Cod_Dua").Direction = ParameterDirection.Input

应该是这样的:

command.Parameters.AddWithValue("@Cod_Dua", CInt(TxtCodDUA.Text))

这个:

command.Parameters.AddWithValue("@_PaisOrigen", MySqlDbType.VarChar)
command.Parameters("@_PaisOrigen").Direction = ParameterDirection.Output

应该是这样的:

command.Parameters.Add("@_PaisOrigen", MySqlDbType.VarChar, 2).Direction = ParameterDirection.Output

这个:

XML_PaisOrigen = command.Parameters(0).Value.ToString

应该是这样的:

XML_PaisOrigen = command.Parameters(1).Value.ToString()