RE:CONSULTA STORED PROCEDURE
Publicado por
Kitiara (1 intervención) el 25/11/2006 09:20:00
Tienes que utilitzar Transact-SQL--> Te lo hago de memória, quizás haya algo en la sintaxis que no sea del todo correcto.
/* SQL SERVER */
CREATE PROCEDURE prInsertar_alumnos
DECLARE
@Nombre varchar(30),
@Apellidos varchar(50),
@OK int output
BEGIN
INSERT INTO Alumnos (Alu_Nombre, Alu_Apellido)
VALUES (@Nombre, @Apellidos)
/* Si se ha producido algún error lo devolverá dependiendo del valor de la variable de salida @OK */
IF @@ERROR = 0
SET @OK = 0
ELSE
SET @OK = 1
END
Tienes que pasarles los parámetros desde Visual de los alumnos
/* VISUAL .NET */
'Define tu conexión
Dim cnnString As String = "Data source= IP o nombre de la máquina; Initial Catalog=Nombre base de datos; User Id=Sa"
Public Function NuevaConexion() As SqlClient.SqlConnection
Dim Conn As New SqlClient.SqlConnection(cnnString)
Try
Conn.Open()
Return Conn
Catch ex As SqlClient.SqlException
Throw New Exception("SQLSERVER - Error en la conexión de la base de datos")
Catch ex As Exception
Throw New Exception("SQLSERVER - Error en la NuevaConexion")
End Try
End Function
Private Function prInsertar_Alumnos (ByVal stNombre as string, ByVal stApellidos as string) as string
Try
Dim Cnn As SqlClient.SqlConnection = NuevaConexion()
Dim cmd As New SqlClient.SqlCommand("prInsertar_alumnos", Cnn)
cmd.CommandType = CommandType.StoredProcedure
Dim Nombre As New System.Data.SqlClient.SqlParameter("@Nombre ", SqlDbType.VarChar, 30)
BloomISIN.Direction = ParameterDirection.Input
cmd.Parameters.Add(Nombre)
cmd.Parameters("@Nombre ").Value = stNombre
Dim Apellidos As New System.Data.SqlClient.SqlParameter("@Apellidos ", SqlDbType.VarChar, 50)
BloomNMGRUPOFON.Direction = ParameterDirection.Input
cmd.Parameters.Add(Apellidos)
cmd.Parameters("@Apellidos ").Value = stApellidos
Dim BloomOk As New System.Data.SqlClient.SqlParameter("@Ok", SqlDbType.Int)
Ok.Direction = ParameterDirection.Output
cmd.Parameters.Add(Ok)
Try
cmd.ExecuteScalar()
Cnn.Close()
Return (cmd.Parameters("@Ok").Value.ToString)
Catch ex As Exception
MessageBox.Show(ex.ToString, "SQLSERVER - prInsertar_alumnos - Error")
Cnn.Close()
End Try
Catch ex As SqlClient.SqlException
MessageBox.Show(ex.ToString, "SQLSERVER - prInsertar_alumnos- Error SQL")
Catch ex As Exception
MessageBox.Show(ex.ToString, "SQLSERVER - prInsertar_alumnos- Error")
End Try
End Function
Esperemos que te sirva para un buen comienzo, sinó busca por internet en el mismo msdn, tienes varios ejemplos.
Kitiara.