Visual Basic.NET - Error al añadir un valor en sqlCommand

   
Vista:
Imágen de perfil de Marcelo

Error al añadir un valor en sqlCommand

Publicado por Marcelo mignaciogallardo@gmail.com (6 intervenciones) el 21/10/2015 06:30:31
Buenas compañeros, estoy hace un par de días frustrado al no poder resolver esto... ya resignado, vengo a pedir ayuda de rodillas.
Resulta que necesito cargar un control listbox con los datos de la consulta de la función que esta adjunta abajo.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function CargarModulosSinPerfil() As DataTable
	Dim dt As DataTable = New DataTable()
	sentenciaSQL = "select id_modulo,nombre from modulo where id_modulo not in(select id_modulo from modulo_perfil)"
	Try
		conexion.ConnectionString = cadenaConexion
		conexion.Open()
		comandoSQL = New SqlCommand(sentenciaSQL, conexion)
		adaptador = New SqlDataAdapter(comandoSQL)
		adaptador.Fill(dt)
		Return dt
	Catch ex As Exception
		Return dt
	Finally
		conexion.Close()
	End Try
End Function

Si yo ejecuto la función asi, no tengo ningún problema, pero, necesito cargarla cada vez que ocurra el evento "SelectedIndexChanged" por ende necesito darle a la función el Value de combobox, quedando así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function CargarModulosSinPerfil(ByRef id_perfil ) As DataTable
	Dim dt As DataTable = New DataTable()
	sentenciaSQL = "select id_modulo,nombre from modulo where id_modulo not in(select id_modulo from modulo_perfil where id_perfil="& id_perfil &")"
	Try
		conexion.ConnectionString = cadenaConexion
		conexion.Open()
		comandoSQL = New SqlCommand(sentenciaSQL, conexion)
		adaptador = New SqlDataAdapter(comandoSQL)
		adaptador.Fill(dt)
		Return dt
	Catch ex As Exception
		Return dt
	Finally
		conexion.Close()
	End Try
End Function

Pero al momento de ejecutarlo, ocurre lo siguiente:

Sin-titulo


Sugerencias?, Opiniones?, Alguna Solución?
De ante mano muchas gracias...
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
Imágen de perfil de Wilfredo Patricio Castillo

Error al añadir un valor en sqlCommand

Está facil, solo cambia un par de lineas

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function CargarModulosSinPerfil(ByRef IdPerfil As Integer) As DataTable
 
        Dim dt As DataTable = New DataTable()
        Dim conexion As New SqlConnection()
        Dim adaptador As SqlDataAdapter
 
        Try
 
            conexion.ConnectionString = "Data Source=MOVILDEV\SQL2014EXP;Initial Catalog=MisPrueas;Integrated Security=True;"
 
            conexion.Open()
 
            Dim comandoSQL = New SqlCommand()
            comandoSQL.CommandText = "Select IdModulo,Nombre From Modulo Where IdModulo Not In(Select IdModulo From Modulo_Perfil Where IdPerfil=@IdPerfil)"
            comandoSQL.CommandType = CommandType.Text
            comandoSQL.Connection = conexion
            comandoSQL.Parameters.Add("@IdPerfil", SqlDbType.Int).Value = IdPerfil
            adaptador = New SqlDataAdapter(comandoSQL)
            adaptador.Fill(dt)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Ha Ocurrido una excepción no controlada", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            conexion.Close()
        End Try
        Return dt
    End Function
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