La parte di Upload (diciamo così) è qua. Manca solo da 'modellare il percorso del file'
Appena posso faccio anche il download............
Dim objConn As New OdbcConnection("driver={MySQL ODBC 3.51 Driver};server=localhost;user id=root;password=22334455;database=universitutor2")
Dim da As New OdbcDataAdapter _
("Select * From MyImages", objConn)
Dim MyCB As OdbcCommandBuilder = New OdbcCommandBuilder(da)
Dim ds As New DataSet
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
Dim fs As New FileStream _
("gg.jpg", FileMode.OpenOrCreate, _
FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, fs.Length)
fs.Close()
objConn.Open()
da.Fill(ds, "myimages")
Dim myRow As DataRow
myRow = ds.Tables("myimages").NewRow()
' myRow("description") = "This would be description text"
myRow("imgField") = MyData
ds.Tables("MyImages").Rows.Add(myRow)
da.Update(ds, "MyImages")
fs = Nothing
MyCB = Nothing
ds = Nothing
da = Nothing
objConn.Close()
objConn = Nothing
' MsgBox("Image saved to database")
