Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/09/2010, 21:28
barralex
 
Fecha de Ingreso: febrero-2010
Mensajes: 49
Antigüedad: 14 años, 3 meses
Puntos: 0
Procedimientos almacenados mysql

Buenas esta es mi duda, en mi aplicacion se me pidio que utilizara procedimientos almacenados con mysql y llamarlos desde el programa pero no se como, osea necesito pasar el siguiente codigo al procedimiento que ya tengo realizado en la base de datos.

Public Sub Ingreso_Socio(ByVal cedula As Integer, ByVal nombre As String, _
ByVal direccion As String, ByVal telefono As String, _
ByVal profesion As String, ByVal apellido As String)

Me.con.ConnectionString = Coneccion()
Me.micomando.Connection = Me.con
Me.micomando.CommandText = "INSERT INTO socios(Cedula, Nombre, Direccion, Telefono, Profesion, Apellido)" _
& "VALUES(?Cedula, ?Nombre, ?Direccion, ?Telefono, ?Profesion, ?Apellido)"

micomando.Parameters.AddWithValue("?Cedula", cedula)
micomando.Parameters.AddWithValue("?Nombre", nombre)
micomando.Parameters.AddWithValue("?Direccion", direccion)
micomando.Parameters.AddWithValue("?Telefono", telefono)
micomando.Parameters.AddWithValue("?Profesion", profesion)
micomando.Parameters.AddWithValue("?Apellido", apellido)

Try
con.Open()
micomando.ExecuteNonQuery()
MsgBox("Socio creado correctamente", MsgBoxStyle.Information)

Catch ex As MySqlException

MsgBox("Error al crear el nuevo socio: ", MsgBoxStyle.Critical & ex.Message)
Finally
con.Dispose()
con.Close()
End Try

End Sub

Gracias y saludos, vera que es largo y podria reducirlo mucho con solo llamar el procedimiento pero no se como.