[motcom]

Hi,

I know you can to this with MSSQL, but you shoud be able to do this in MySQL as well.
My Type in MSSQL is varbinary(max) so you would have to check what you need in MySQL and i use table adapters to insert the file content and get it back again.

'Example only
Me.InsertTableAdapter.Insert(File.ReadAllBytes("C:\Test.txt"))

to get it back again

Dim MyBytes() As Byte = Me.InsertTableAdapter.InsertTable.Rows(0).Item("ServedFile")
			If My.Computer.FileSystem.FileExists("C:\Test.txt") Then
				My.Computer.FileSystem.DeleteFile("C:\Test.txt")
			End If
			Dim MyFileStream As System.IO.FileStream = System.IO.File.Create(("C:\Test.txt")
			MyFileStream.Write(MyBytes, 0, MyBytes.Length)

Hope this points to the right direction

[woodjom]

First off do some research and see how to upload a file to your site.

Once you figure that part out, instead of storing it on the server break it up into Bytes and store it as a Byte series and then insert it into the database. Catch is you need to find a comfortable size for the file and then use that size accordingly as your Byte size. My first concern is that file sizes (excluding image files) can vary widely and remember even white space in a file is considered a byte reference so i would suggest uploading text files to the server and inserting a reference to the file on the server.

Some examples of uploading a file to the server include:

1) When you upload the file to the server take the first 2 to 4 characters of the file name and create folder directories accordingly. Make sure they fall into the lower Unicode spectrum (Latin Case-Incensitive) and store it that way. you will most likely need to translate UTF8 character sets to Unicode 128 for this to work properly.

2) Store file in a specified directory for the specified extension.

3) Throw it in a pile of uploaded documents without any filing

I would suggest in uploading the file to the server and point to that location on the server in the SQL database. As when you upload it as Bytes, when you upgrade to the next version (regardless of MSSQL or MySQL) the byte reference information is lost.

[woodjom]

NIXZ, on 22 Sep, 2009 - 08:45 AM, said:

motcom, on 22 Sep, 2009 - 06:21 AM, said:

Hi,

I know you can to this with MSSQL, but you shoud be able to do this in MySQL as well.
My Type in MSSQL is varbinary(max) so you would have to check what you need in MySQL and i use table adapters to insert the file content and get it back again.

'Example only
Me.InsertTableAdapter.Insert(File.ReadAllBytes("C:\Test.txt"))

to get it back again

Dim MyBytes() As Byte = Me.InsertTableAdapter.InsertTable.Rows(0).Item("ServedFile")
			If My.Computer.FileSystem.FileExists("C:\Test.txt") Then
				My.Computer.FileSystem.DeleteFile("C:\Test.txt")
			End If
			Dim MyFileStream As System.IO.FileStream = System.IO.File.Create(("C:\Test.txt")
			MyFileStream.Write(MyBytes, 0, MyBytes.Length)

Hope this points to the right direction

Thanks motcom thats pretty much my idea but theres many problems:
1. What is this "InsertTableAdapter" ?
2. It works the same as a regular MySQL command? like UPDATE FROM MainTable ('FileBytes') VALUES ('ASDF1234') ???
3. Theres a lot of gaps to fill e.g. .commandtext = Text As String when FileBytes = Text As Bytes doesnt mix.
4. Do i have to download another 3rd party component except from mysql connector ?
5. I just have a MySQL Server, a Database called maindatabase and a table MainTable thats fine right ? what else should i have?

Can you post a really quick and simple tutorial that will take you no more than 5 minutes ???

K.I.S.S. Thanks

5 minute tutorial doesnt exist. Dont believe the book shelves, nothing can be learned in 24 hrs or 6 months. It takes years of using and experimenting to properly learn the rules and guidelines of a programming language and its structure.

[motcom]

Hi NIXZ

I use datasets and thrugh that my tableadapters get created.

I guess you could use parameters in your case.

I will try to make a tutorial/example but will need to go now, i'll try tomorrow

[motcom]

Hi NIXZ

I have put something together, very basic, but you should get the idea.

First of all this is my Table in MySQL

Table upload

`ID` int(10) unsigned NOT NULL AUTO_INCREMENT PRIMARY KEY
`FileName` varchar(45) NOT NULL
`FileContent` longblob NOT NULL

You might have to investigate into "TINYBLOB", "MEDIUMBLOB" and "LONGBLOB" to see how much data each one
can hold. (I don't know if you want someone to upload very huge files.)

Next I have 2 buttons, btnDownload and btnUpload. (self explainatory)
This is the code i used to get and put the file.

Imports MySql.Data.MySqlClient

Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

	End Sub

	Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
		Dim sqlConn As New MySqlConnection(My.Settings.test1234ConnectionString)
		Dim sqlCmd As New MySqlCommand
		Try
			sqlConn.Open()

			With sqlCmd
				.Connection = sqlConn
				.CommandText = "INSERT INTO Upload (FileName, FileContent) VALUES (@FileName,@FileContent)"
				.Parameters.AddWithValue("@FileName", "Test.jpg")
				.Parameters.AddWithValue("@FileContent", My.Computer.FileSystem.ReadAllBytes("C:\Test.jpg"))
				.ExecuteNonQuery()
				.Dispose()
			End With
		Catch ex As MySqlException
			MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Finally
			sqlConn.Close()
			sqlConn.Dispose()
		End Try
	End Sub

	Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
		Dim sqlConn As New MySqlConnection(My.Settings.test1234ConnectionString)
		Dim sqlCmd As New MySqlCommand
		Dim objReader As MySqlDataReader

		Try
			sqlConn.Open()

			With sqlCmd
				.Connection = sqlConn
				.CommandText = "SELECT * FROM upload WHERE FileName = 'Test.jpg'"
				objReader = .ExecuteReader
				.Dispose()
			End With
			If objReader.HasRows = True Then
				objReader.Read()
				Dim MyBytes() As Byte = objReader("FileContent")
				If My.Computer.FileSystem.FileExists("C:\NewTest.jpg") Then
					My.Computer.FileSystem.DeleteFile("C:\NewTest.jpg")
				End If
				Dim MyFileStream As System.IO.FileStream = System.IO.File.Create("C:\NewTest.jpg")
				MyFileStream.Write(MyBytes, 0, MyBytes.Length)
				MyFileStream.Dispose()
			Else
				MessageBox.Show("No Records found", "No Records found", MessageBoxButtons.OK, MessageBoxIcon.Information)
			End If
			objReader.Close()
		Catch ex As MySqlException
			MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Finally
			sqlConn.Close()
			sqlConn.Dispose()
		End Try
		
	End Sub
End Class

Hope this explains what you want to do...

motcom