pero les dejo un ejemplo , para crear la tabla , el procedimineto y para llamarlo desde vb.net
El procedimiento se encargara de hacer un insert , pero ademas nos devolverá un mensaje en caso de que el dato se allá insertado correctamente .
Crear la tabla para el ejemplo :
CREATE TABLE [dbo].[operador](
[idOperador] [int] IDENTITY(1,1) NOT NULL,
[fk_idPlanilla] [int] NOT NULL,
[fk_idRecipiente] [int] NULL,
[Recipiente] [nvarchar](50) NULL,
[Volumen] [decimal](8, 1) NULL,
[Origen] [nvarchar](50) NULL,
[Tiempo] [nvarchar](50) NULL,
[VenteoEnCurso] [bit] NULL,
[AutorizacionPendiente] [bit] NULL,
[Enclavado] [bit] NULL,
[Urgente] [bit] NULL,
[ResponsableID] [int] NULL,
[Responsable] [nvarchar](100) NULL,
[TomaMuestra] [nvarchar](100) NULL,
[RecibeMuestraID] [int] NULL,
[RecibeMuestra] [nvarchar](100) NULL,
[EmisionEnCurso] [bit] NULL,
[Fecha] [datetime] NULL,
[Fecha_ult_mod] [datetime] NULL,
CONSTRAINT [PK_Operador] PRIMARY KEY CLUSTERED
(
[idOperador] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
Crear el procedimiento .
CREATE PROCEDURE [dbo].[operador_ins]La funcion en vb.net que realiza el insert:
@Nro int,
@Muestra int,
@Estado nvarchar(50),
--Datos OPERADOR .
@fk_idRecipiente int,
@Recipiente nvarchar(50),
@Volumen decimal(8,1),
@Origen nvarchar(50),
@Tiempo nvarchar(50),
@VenteoEnCurso bit,
@AutorizacionPendiente bit,
@Enclavado bit,
@Urgente bit,
@ResponsableID int,
@Responsable nvarchar(100),
@TomaMuestra nvarchar(100),
@RecibeMuestraID int,
@RecibeMuestra nvarchar(100),
@EmisionEnCurso bit,
@Fecha datetime
AS
BEGIN
SET NOCOUNT ON;
declare @msg AS VARCHAR(100)
Begin Tran Tadd
Begin Try
exec planillas_ins @Nro,@Muestra,@Estado
-- INSERT INTO planillas (Nro ,Muestra , fk_estado ,Fecha_ult_mod )
-- values (@Nro,@Muestra ,'QUIMICO',GETDATE())
-- --SELECT @@IDENTITY;
INSERT INTO operador (
fk_idPlanilla ,
fk_idRecipiente ,
Recipiente,
Volumen ,
Origen ,
Tiempo ,
VenteoEnCurso ,
AutorizacionPendiente ,
Enclavado ,
Urgente ,
ResponsableID ,
Responsable ,
TomaMuestra ,
RecibeMuestraID ,
RecibeMuestra ,
EmisionEnCurso ,
Fecha ,
Fecha_ult_mod )
values (
@@IDENTITY,
@fk_idRecipiente ,
@Recipiente ,
@Volumen ,
@Origen ,
@Tiempo ,
@VenteoEnCurso,
@AutorizacionPendiente ,
@Enclavado ,
@Urgente ,
@ResponsableID ,
@Responsable ,
@TomaMuestra ,
@RecibeMuestraID ,
@RecibeMuestra ,
@EmisionEnCurso ,
@Fecha ,
GETDATE()
)
COMMIT TRAN Tadd
SET @msg = 'Datos Modificados Correctamente.'
End try
Begin Catch
SET @msg = 'Ocurrio un Error: ' + ERROR_MESSAGE() + ' en la línea ' + CONVERT(NVARCHAR(255), ERROR_LINE() ) + '.'
Rollback TRAN Tadd
End Catch
SELECT @msg
END
GO
Private Function GuardarNuevaEmision() As Boolean
Try
Dim fecha As String = dtpFechaMuestreo.Value.Year & "/" & dtpFechaMuestreo.Value.Month & "/" & dtpFechaMuestreo.Value.Day
Dim Conexion As New SqlClient.SqlConnection(P_StringConexion)
Dim cmd As New SqlClient.SqlCommand("operador_ins", Conexion)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlClient.SqlParameter("@Nro", lblNro.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Muestra", lblMuestra.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Estado", "QUIMICO"))
cmd.Parameters.Add(New SqlClient.SqlParameter("@fk_idRecipiente", cmbRecipientes.SelectedValue))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Recipiente", cmbRecipientes.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Volumen", txtVolumen.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Origen", txtOrigen.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Tiempo", txtTiempo.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@VenteoEnCurso", rbEnCursoSI.Checked))
cmd.Parameters.Add(New SqlClient.SqlParameter("@AutorizacionPendiente", rbAutorizadoPendienteSI.Checked))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Enclavado", ""))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Urgente", rbUrgenteSI.Checked))
cmd.Parameters.Add(New SqlClient.SqlParameter("@ResponsableID", P_IdUsuario))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Responsable", lblUsuarioLogeado.Text))
cmd.Parameters.Add(New SqlClient.SqlParameter("@TomaMuestra", txtTomaMuestra.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@RecibeMuestraID", cmbQuimico.SelectedValue))
cmd.Parameters.Add(New SqlClient.SqlParameter("@RecibeMuestra", cmbQuimico.Text.Trim))
cmd.Parameters.Add(New SqlClient.SqlParameter("@EmisionEnCurso", rbEnCursoSI.Checked))
cmd.Parameters.Add(New SqlClient.SqlParameter("@Fecha", fecha + " " + dtpHoraMuestro.Text))
Conexion.Open()
Dim dr As IDataReader = cmd.ExecuteReader
If dr.Read() Then MsgBox(dr.GetString(0))
Conexion.Close()
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
