Dim fd As OpenFileDialog = New OpenFileDialog()
If fd.ShowDialog = Windows.Forms.DialogResult.OK Then
End If
sqlStr = ""
sqlStr = ""
Dim fs As New FileStream(fd.FileName, FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(fs)
Dim bytes As Byte()
bytes = System.IO.File.ReadAllBytes(fd.FileName)
strConn = New SqlConnection(oCommon.DSN())
strConn.Open()
sqlStr = ""
sqlStr = "update YourTable set Columns = @Columns WHERE Column = '" & detgrd(detgrd.Row, 0).ToString().ToUpper().Trim() & "' "
SqlCmd = New SqlCommand
SqlCmd.CommandText = sqlStr
SqlCmd.Parameters.Add("@Columns ", SqlDbType.Binary).Value = bytes
SqlCmd.Connection = strConn
SqlCmd.ExecuteNonQuery()
MessageBox.Show("SuccessFull", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
To Retrive A PDF
Dim filePdf As String
filePdf = Application.StartupPath & "\" & fileNmaeYouWant & ".pdf"
If System.IO.File.Exists(filePdf) Then
File.Delete(filePdf)
End If
Dim bytesLoad As Byte()
bytesLoad = Nothing
sqlStr = ""
sqlStr = "select pdfColumn from yourtable where "
mydatatable = New DataTable
mydatatable = modFunctions.ReturnData(sqlStr)
If mydatatable.Rows.Count > 0 Then
If IsDBNull(mydatatable.Rows(0).Item("pdfColumn")) = True Then
Exit Sub
Else
bytesLoad = mydatatable.Rows(0).Item("pdfColumn")
End If
Else
Exit Sub
End If
My.Computer.FileSystem.WriteAllBytes(filePdf, bytesLoad, False)
System.Diagnostics.Process.Start(filePdf)