Visual Basic - CONSULTA STORED PROCEDURE

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

CONSULTA STORED PROCEDURE

Publicado por cHRISTIAN (713 intervenciones) el 15/11/2006 02:29:34
tenia la siguiente consulta en access
INSERT INTO Alumnos ( Alu_Nombre, Alu_Apellido )
VALUES (pNombre, pApellido);

como la creo los mismo en SQL SERVER como SP?
no se como pasar pNombre y pApellido
que son los valores que quiero agregar a mi tabla

espero alguna ayuda saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar