GUARDAR DOCUMENTOS PDF EN LA BASE DE DATOS SQLSERVER DESDE .NET

Personalmente quiero contarles que para mi este proceso ha sido muy escabroso,he dedicado muchas horas de investigacion para encontrar la forma de hacerlos lo más sencillo posible.
Anteriormente había guardado imagenes en la base de datos utilizando compos de tipo imagen, pero luego revisando la documentacion de sqlserver 2005 encontre que en el
futuro este tipo de campo podría ser descartado, esto me llevo a buscar otras alternativas especialmente con los campos binarios o (varbinary(max)) .

PASOS:

1.- Primero declare las siguientes variables de clase en su formulario windows form

Dim fdlg As New OpenFileDialog

Dim fs As System.IO.FileStream

Dim mcorr_documento As Int32

Dim bw As System.IO.BinaryWriter

----- fin de las variables de clase

2.- Seguidamente en su formulario pegue un objeto de tipo OpenFileDialog que le servira para buscar el archivo que desea almacenar en la base de datos

3.- Cree un objeto de tipo Combo y agregue una lista de los tipos de archivos que desea almacenar en la base de datos, algo como esto

pdf
WORD 2000-2003
WORD 2007
docx

Esto le servira como referencia para que lo pueda almacenar en un campo de la base de datos y cuando lo recupere despues sepa que tipo de archivo esta almacenado ahi (Se puede almacenar cualquier tipo de archivo)

4.- Despues cree un botón que y dentro del clic del botón puede escribir el siguiente codigo

If Me.ComboBoxtipo_docu.Text = "" Then

MsgBox(" Debe seleccionar el formato de documento")

eturn
End If
If TextBoxbreve_desc_dcto.Text = "" Then
MsgBox("Debe escribir una breve descripción del documento almacenar")
Return
End If
If Me.Textnombre_archivo.Text = "" Then
MsgBox("Debe seleccionar un archivo a guardar")
Return
End If
'''Aqui comienza el proceso real de guardar el archivo

Dim Myfile As System.IO.FileStream
Myfile = System.IO.File.OpenRead(Me.Textnombre_archivo.Text)
Dim Arr(Myfile.Length) As Byte 'Declaramos el array para manejar los bytes almacenar
Try
Myfile.Read(Arr, 0, Myfile.Length)
Dim mysql1 As New SqlClient.SqlCommand("insert into RECLAMOS_EVIDENCIAS(CORR_REC,DESCRIPCION,DOCUMENTO,TIPO_DOCU) VALUES (@CORR_REC,@DESCRIPCION,@DOCUMENTO,@TIPO_DOCU)")
mysql1.Parameters.Add("@CORR_REC", SqlDbType.Int, 0).Value = txt_cor.Text
mysql1.Parameters.Add("@DESCRIPCION", SqlDbType.NVarChar, 100).Value = TextBoxbreve_desc_dcto.Text
mysql1.Parameters.Add("@DOCUMENTO", SqlDbType.VarBinary).Value = Arr
mysql1.Parameters.Add("@TIPO_DOCU", SqlDbType.NVarChar, 20).Value = Me.ComboBoxtipo_docu.Text
mysql1.Connection = conn ''' Con es my objeto conexion a la base de datos
mysql1.ExecuteNonQuery()
MsgBox("Documento guardado")

Catch ex As Exception

MsgBox("Error al almacenar el dato:" & ex.ToString)

End Try


5.-Ahora leamos nuestro documento de la base de datos
Dentro de un boton en el evento clic ponemos el siguiente codigo, asumiendo
que mi tabla se llama RECLAMOS_EVIDENCIAS

Dim mysql1 As New SqlClient.SqlCommand

mysql1.CommandText = "select CORRELATIVO,CORR_REC,DESCRIPCION,DOCUMENTO,TIPO_DOCU from RECLAMOS_EVIDENCIAS where correlativo =" & Me.mcorr_documento & " AND CORR_REC=" & txt_cor.Text
mysql1.Connection = conn
Dim myread As SqlClient.SqlDataReader
Try
Dim bits() As Byte

myread = mysql1.ExecuteReader
myread.Read()

'''3 indica el numero de columa del blog en el data reader
''' Aqui declaramos nuetros array de datos al tamaño que tiene en la base de datos
Dim filedata(myread.GetBytes(3, 0, Nothing, 0, Integer.MaxValue) - 1) As Byte
myread.GetBytes(3, 0, filedata, 0, filedata.Length)
Dim myext As String
Select Case myread(4)

Case "PDF"
myext = "pdf"
Case "WORD 2000-2003"
myext = "doc"
Case "WORD 2007-"
myext = "docx"
Case "JPG"
myext = "jpg"
Case "AVI"
myext = "avi"
Case Else
myext = "PDF"
End Select
'' Aqui creo el nombre del archivo a recuperar con su extension correcta
Dim ExtensionNombre As String = Application.StartupPath() & "\mydocumento." & myext
'' Aqui creamos el archivo
Dim fs As System.IO.FileStream = New System.IO.FileStream(ExtensionNombre, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
bw = New System.IO.BinaryWriter(fs)
bw.Write(filedata)
bw.Flush()
bw.Close()
fs.Close()
myread.Close()


''' Iniciamos la carga del documento para visuarlizarlo
Dim Command As New Process

'Creamos la instancia Process

Command.StartInfo.FileName = ExtensionNombre
Command.StartInfo.UseShellExecute = True '''importantisimo esta propiedad permite buscar en el path del windows el programa asociado para ejecutar el archivo segun su tipo
'Para redirigir la salida de este proceso esta propiedad debe ser false
Command.StartInfo.CreateNoWindow = True
Command.Start()
Catch ex As Exception

MsgBox(ex.ToString)

End Try

Espero con esto muchos puedan guadar los tipos de documentos que deseen en la base de datos y enriquecer el uso de este motor.