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
0