Visual Basic - Acceso denegado a la ruta de acceso.

Life is soft - evento anual de software empresarial
   
Vista:

Acceso denegado a la ruta de acceso.

Publicado por David (5 intervenciones) el 11/06/2015 05:36:46
Hola,buenas noches tengo el siguiente problema con una función para subir archivos adjuntos a la base de datos me sale lo siguiente al darle click a botón subir archivo:Acceso denegado a la ruta de acceso,la verdad no se como puedo arreglarlo,aquí está el código de la función:

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
27
28
29
30
Private Sub lP_Aceptar()
        Try
            Using loConexion As New MySqlConnection(_Cadena)
                ' pasamos el archivo a la base de datos
                Dim oFileStream As FileStream
                oFileStream = New FileStream("C:\Users\Gr\Downloads", FileMode.Open) 'ruta de acceso
                Dim aArchivo() As Byte
                aArchivo = New Byte(CInt(oFileStream.Length - 1)) {}
                oFileStream.Read(aArchivo, 0, CInt(oFileStream.Length - 1))
                oFileStream.Close()
                Dim lsQuery As String = "Insert Into Adjuntos (ID, Adjunto,Id_Rec) Values (@ID, @Adjunto,@Id_re)"
                Using loComando As New MySqlCommand(lsQuery, loConexion)
                    loComando.Parameters.Add(New MySqlParameter("@ID", Me.TxtId.Text))
                    loComando.Parameters.Add(New MySqlParameter("@Adjunto", SqlDbType.VarBinary))
                    loComando.Parameters.Add("Id_rec", MySqlDbType.VarChar, 45).Value = consecutivorec()
                    loComando.Parameters("@Adjunto").Value = aArchivo
                    loComando.Parameters("@Id_rec").Value = consecutivorec()
                    loConexion.Open()
                    loComando.ExecuteNonQuery()
                End Using
            End Using
            MessageBox.Show("Archivo Guardado con éxito", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch Exp As MySqlException
            Me.Cursor = Cursors.Default
            MessageBox.Show(Exp.Message, "lP_Aceptar", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch Exp As Exception
            Me.Cursor = Cursors.Default
            MessageBox.Show(Exp.Message, "lP_Aceptar", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
    End Sub
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

Acceso denegado a la ruta de acceso.

Publicado por visita (2 intervenciones) el 12/06/2015 02:34:17
has checado que el folder o el archivo donde esta la base de datos sean de solo lectura o necesite privilegios
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