Hi @all,
I need your help: I want to save a zip file at a sql database.
I tried to to the same like saving txt files, but if I want to open the saved file (it was created from a stream)
the zip file is coruppted!
saving zip file as stream
CODE
Dim fs As New FileStream(tmpPfad, FileMode.Open, FileAccess.Read)
Dim bytData(fs.Length() - 1) As Byte
fs.Read(bytData, 0, bytData.Length)
fs.Close()
Dim i As Integer
Dim tmpSQLUpdate As New SqlClient.SqlCommand()
tmpSQLUpdate.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FFile", SqlDbType.Image, bytData.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, bytData))
tmpSQLUpdate.CommandText = "update tblfiles set ffile = @ffile where ID = 1"
open stream as zip file
CODE
Dim MyData() As Byte
MyData = Me.OpenRowSelection.Item(0).Cells("File").Value '(Bytestream)
Dim K As Long
K = UBound(MyData)
'Dim tmpPfad As String = "d:\tmp\"
tmpPfad += Me.OpenRowSelection.Item(0).Cells("ID").Value.ToString + "." + me.OpenRowSelection.Item(0).Cells("Ext").Value.ToString
Dim fs As New FileStream(tmpPfad, FileMode.Create, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Forum Index:
Programming Help |
C and C++ |
VB6 |
Java |
VB.NET |
C# |
ASP.NET |
PHP |
ColdFusion |
Perl and Python |
Ruby |
Databases |
Other Languages |
Game Programming |
Mobile Development |
Software Development |
Computer Science |
Industry News |
Programming Tutorials |
C++ Tutorials |
Visual Basic Tutorials |
Java Tutorials |
VB.NET Tutorials |
C# Tutorials |
Linux Tutorials |
PHP Tutorials |
ColdFusion Tutorials |
Windows Tutorials |
HTML/JavaScript Tutorials |
CSS Tutorials |
Flash Tutorials |
Web Promotion Tutorials |
Graphic Design & Photoshop Tutorials |
Software Development Tutorials |
Database Tutorials |
Other Language Tutorials |
ASP.NET Tutorials |
Game Programming Tutorials |
WPF & Silverlight Tutorials |
| 
