asked on

mySQL - Store files on mySQL databases

Hello, I am trying to find some code that will allow me a way to have a small file manager on Visual Basic connected to a mySQL server.

In other words.. I want to store a file on a database table on line. This database I want to be able to re-call that file.
Can someone show me some example code?

ASKER CERTIFIED SOLUTION

eScapePro

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

clear100-com

ASKER

Im lost when it comes to the ADO stuff I use ADODB

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
----------------------------------------------------------------------

Is there a way you can convert it with my string? When i try the following, it says the db is read only. .. And yes my right are ok.

Private Sub Form_Load()
CopyFile "scrapfile.ppt", "doublescrapfile.ppt"
End Sub

'**************************************************************
' SUB: CopyFile
'
' PURPOSE:
' Demonstrates how to use ReadBLOB() and WriteBLOB().
'
' PREREQUISITES:
' A table called BLOB that contains an OLE Object field called
' Blob.
'
' ARGUMENTS:
' Source - The path and filename of the information to copy.
' Destination - The path and filename of the file to write
' the binary information to.
'
' EXAMPLE:
' CopyFile "c:\windows\winfile.hlp", "c:\windows\winfil_1.hlp"
'**************************************************************
Sub CopyFile(Source As String, Destination As String)
Dim BytesRead As Variant, BytesWritten As Variant
Dim Msg As String
Dim db As DAO.Database
Dim T As DAO.Recordset

' Open the BLOB table.

Set db = OpenDatabase("", dbDriverComplete, False, "DRIVER={MySQL ODBC 3.51 Driver}" & _
";SERVER=" & "localhost" & _
";DATABASE=" & "Test" & _
";UID=" & "mysys" & _
";PWD=" & "wd006451" & _
";OPTION=2")

Set T = db.OpenRecordset("MyTest", dbOpenTable)
' Create a new record and move to it.
T.AddNew
T.Update
T.MoveLast

BytesRead = ReadBLOB(Source, T, "MyTest")

Msg = "Finished reading """ & Source & """"
Msg = Msg & Chr$(13) & ".. " & BytesRead & " bytes read."
MsgBox Msg, 64, "Copy File"

BytesWritten = WriteBLOB(T, "MyTest", Destination)

Msg = "Finished writing """ & Destination & """"
Msg = Msg & Chr$(13) & ".. " & BytesWritten & " bytes written."
MsgBox Msg, 64, "Copy File"
End Sub

clear100-com

ASKER

Well I did figure it out, I am giving the points however to eScapePro because he showed me that it was part of blob. But i found a site on mySQL that shoed me how to do this and it worked great!!!

http://www.vbmysql.com/articles/blobaccessvb.html#sample1

clear100-com

ASKER

Hey: eScapePro

I just wanted to say thank you again, and thanks for the idea of using a seprate table or database, I am designing a case system and once a case is moved from one techs bin to another i need that file kept in there, and i don't want to have the user download the file and upload it again just to move it. So, yes, great idea.

Bill.