Visual Basic - Subir archivo pdf a una base de datos

Life is soft - evento anual de software empresarial
   
Vista:

Subir archivo pdf a una base de datos

Publicado por Josep (25 intervenciones) el 24/01/2017 13:29:29
Quiero subir un archivo pdf en una base datos. Me da un error que me dice que no puede implementar la operación o el metodo. Creo que el error esta en la linea "Dim arx As Byte() = ReadBinaryFile(TextBox4.Text)". arx és el nombre que doy al archivo para subir en la base de datos. Pego aqui el codigo que tengo:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
 
        Try
            ' Leer el archivo binario especificado en el control TextBox.
 
            Dim conexion As SqlConnection
            Dim arx As Byte() = ReadBinaryFile(TextBox4.Text)
 
 
            ' Establecemos una conexión para conectarnos 
            ' a la base de datos de SQL Server, utilizando
            ' la seguridad integrada de Windows NT.
            '
            conexion = New SqlConnection()
            conexion.ConnectionString = "Data Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated Security=SSPI;"
            conexion.Open()
 
            Dim cmd As SqlCommand = conexion.CreateCommand()
 
            ' Crear la consulta T-SQL para insertar un nuevo registro.
            ' 
            cmd.CommandText = "INSERT INTO DietesConcpetes (arxiu) VALUES (@arx);"
 
 
            ' La función ReadBinaryFile tal cual se encuentra implementada no devolverá un valor Nothing,
            ' pero muestro cómo especificar un valor NULL al parámetro de entrada si el valor del campo
            ' binario fuese Nothing. Para insertar un valor NULL, el campo de la tabla lo tiene que permitir.
            '
            cmd.Parameters.AddWithValue("@arx", If(arx IsNot Nothing, arx, CObj(DBNull.Value)))
 
            Dim n As Integer = cmd.ExecuteNonQuery()
 
            If (n > 0) Then
                MessageBox.Show("Document pujat correctament.")
 
            Else
                MessageBox.Show("No hem pogut pujar el document.")
End If
 
 
 
        Catch ex As Exception
            ' Se ha producido un error.
            MessageBox.Show(ex.Message)
 
        End Try
 
    End Sub
 
    Private Function ReadBinaryFile(p1 As String) As Byte()
        Throw New NotImplementedException
    End Function


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 Andres Leonardo

Subir archivo pdf a una base de datos

Publicado por Andres Leonardo (981 intervenciones) el 24/01/2017 14:53:44
Hola

Bueno te cuento que una de las cosas que yo evito hacer es subir a la base de datos fotos y documentos... me parece que esto es algo contraproducente en ciertos momentos .....

consulto y si guarfas la copia del documento en una carpeta local de un servidor de storage (calcula cuanto deberia tener ese servidor por almacenamiento de documentos e imagens) y en la base solo guarda la ruta de los documentos , incluso asi no aumenta el tamaño de la base.......

Saludos
Andres
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

Subir archivo pdf a una base de datos

Publicado por Josep (25 intervenciones) el 25/01/2017 08:34:51
Gracias Andres.
Así lo haré.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo

Subir archivo pdf a una base de datos

Publicado por Andres Leonardo (981 intervenciones) el 25/01/2017 15:03:53
Que bueno qeu esta respuesta te haya ayudado

SAludos
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