Mandar Parametros de VB.Net a MySQL

[ellimarine]

Hola que tal, el presente es por que se me presento el siguiente problema, estoy tratando de mandar dos parámetros a Stored Procedure de MySql pero no encuentro la manera de hacerlo, ya investigue en muchos lugares e intentado de muchas maneras pero no me da resultados, este es el código que estoy utilizando:

Imports System
Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class Form1
Dim Conexion As New MySqlConnection
Dim Comando As New MySqlCommand


Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ConexionMySql()
End Sub

Sub ConexionMySql()
Try
Conexion.ConnectionString = "Server=LocalHost; Initial Catalog=pruebaagosto; User=root; Password=admin;"
Conexion.Open()
Comando.Connection = Conexion
Comando.CommandType = CommandType.StoredProcedure
'MsgBox("Conectado")
Catch ex As Exception
MsgBox("ERROR DE CONEXION", MsgBoxStyle.Critical, "Mensaje del Sistema")
End Try
End Sub

Sub Registrar()
Try
Comando.Parameters.Clear()
Comando.Parameters.Add(New MySqlParameter("@Nombre", SqlDbType.VarChar)).Value = "Hola"
Comando.Parameters.Add(New MySqlParameter("@Tipo", SqlDbType.VarChar)).Value = "Hola"
Comando.CommandText = "SP_REGISTRAR"
******* Aqui es donde ya no se como mandar los Parámetros *******
Comando.ExecuteNonQuery()
Comando.Cancel()
Catch ex As Exception
MsgBox("ERROR PROCEDURE REGISTRO", MsgBoxStyle.Critical, "Mensaje del Sistema")
End Try
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Registrar()
End Sub
End Class

Agradeceré si me pueden dar algún consejo de como puedo mandar los parámetros al procedimiento.

Muchas Gracias

[cristiantorres]

Es lo mismo como lo arias si no estuvieras usando store procedure.

Código vb.net:

Comando.Parameters.AddwithValue("@Nombre", Nombre)
 

Aunque yo creo que estas estructurando mal tu codigo en el caso del metodo Registrar yo lo aria asi.

Código vb.net:

Sub Registrar(ByVal id As Integer, ByVal nombre As String)
Comando.CommandText = "SP_REGISTRAR"
Comando.Parameters.AddwithValue("@Id", id)
Comando.Parameters.AddwithValue("@Nombre", nombre)
Try
  Comando.ExecuteNonQuery()
  MsgBox("Registro Agregado")
Catch ex As Exception
  MsgBox("ERROR PROCEDURE REGISTRO", MsgBoxStyle.Critical, "Mensaje del Sistema")
End Try
End Sub
 

En el metodo declaro los datos que recibirá como parámetro y luego se los paso en el comando al procedimiento.