
Debe declarar la variable escalar @id_Area
Publicado por LUIS ALBERTO (7 intervenciones) el 24/07/2021 20:11:41
Hola a todos.... soy nuevo en esto de visual basic y estoy tratando de aprenderlo. Me disculpo de antemano por que se que preguntare por ridiculeses pero no tengo alternativa. Solo ustedes pueden ayudarme a sacudir esta ignorancia que me corroe y gracias de antemano.
Mi primera Ridicules. Tengo este codigo en un formulario
Public Shared Sub Create(Area_Operacion As Areas_OperacionEntity)
'Creamos la Conexion a la BD
Using conex As New SqlConnection(m_CadenaConexion)
conex.Open()
'Creamos la Sentencia SQl para agregar un registro
Dim sql As String = "INSERT INTO Areas_Operacion (DESCRIPCION) VALUES (@DESCRIPCION) SELECT SCOPE_IDENTITY()"
Dim cmd As New SqlCommand(sql, conex)
'agregamos el parametro
cmd.Parameters.AddWithValue("@Descripcion", Area_Operacion.Descripcion)
Area_Operacion.Id_Area = cmd.ExecuteScalar()
End Using
End Sub
Al ejecutar me aparece el error que debo declarar la variable Escalar Id_Area
Id_Area es una columna de Identidad en la tabla de Areas de operacion por ello no la inserto.
Este codigo fue copiado y luego modificado de este codigo que no me da ningun error.
Public Shared Sub Create(Bancos As BancosEntity)
'Creamos la Conexion a la BD
Using conex As New SqlConnection(m_CadenaConexion)
conex.Open()
'Creamos la Sentencia SQl para agregar un registro
Dim sql As String = "INSERT INTO BANCOS (NOMBRE,TELEFONO,DIRECCION,EMAIL,CONTACTO) VALUES (@NOMBRE,@TELEFONO,@DIRECCION,@EMAIL,@CONTACTO) SELECT SCOPE_IDENTITY()"
Dim cmd As New SqlCommand(sql, conex)
'agregamos el parametro
cmd.Parameters.AddWithValue("@Nombre", Bancos.Nombre)
cmd.Parameters.AddWithValue("@Telefono", Bancos.Telefono)
cmd.Parameters.AddWithValue("@Direccion", Bancos.Direccion)
cmd.Parameters.AddWithValue("@Email", Bancos.Email)
cmd.Parameters.AddWithValue("@Contacto", Bancos.contacto)
Bancos.Id_banco = cmd.ExecuteScalar()
End Using
End Sub
En esta opcion de bancos no me da el error
Auxilienme por favor... me urge y no paso de este error
Mi primera Ridicules. Tengo este codigo en un formulario
Public Shared Sub Create(Area_Operacion As Areas_OperacionEntity)
'Creamos la Conexion a la BD
Using conex As New SqlConnection(m_CadenaConexion)
conex.Open()
'Creamos la Sentencia SQl para agregar un registro
Dim sql As String = "INSERT INTO Areas_Operacion (DESCRIPCION) VALUES (@DESCRIPCION) SELECT SCOPE_IDENTITY()"
Dim cmd As New SqlCommand(sql, conex)
'agregamos el parametro
cmd.Parameters.AddWithValue("@Descripcion", Area_Operacion.Descripcion)
Area_Operacion.Id_Area = cmd.ExecuteScalar()
End Using
End Sub
Al ejecutar me aparece el error que debo declarar la variable Escalar Id_Area
Id_Area es una columna de Identidad en la tabla de Areas de operacion por ello no la inserto.
Este codigo fue copiado y luego modificado de este codigo que no me da ningun error.
Public Shared Sub Create(Bancos As BancosEntity)
'Creamos la Conexion a la BD
Using conex As New SqlConnection(m_CadenaConexion)
conex.Open()
'Creamos la Sentencia SQl para agregar un registro
Dim sql As String = "INSERT INTO BANCOS (NOMBRE,TELEFONO,DIRECCION,EMAIL,CONTACTO) VALUES (@NOMBRE,@TELEFONO,@DIRECCION,@EMAIL,@CONTACTO) SELECT SCOPE_IDENTITY()"
Dim cmd As New SqlCommand(sql, conex)
'agregamos el parametro
cmd.Parameters.AddWithValue("@Nombre", Bancos.Nombre)
cmd.Parameters.AddWithValue("@Telefono", Bancos.Telefono)
cmd.Parameters.AddWithValue("@Direccion", Bancos.Direccion)
cmd.Parameters.AddWithValue("@Email", Bancos.Email)
cmd.Parameters.AddWithValue("@Contacto", Bancos.contacto)
Bancos.Id_banco = cmd.ExecuteScalar()
End Using
End Sub
En esta opcion de bancos no me da el error
Auxilienme por favor... me urge y no paso de este error
Valora esta pregunta


0