Hola tengo este procedimiento para guardar imagenes en la tabla. Sobre Microsoft SQL Server no tengo problemas, pero sobre MySQL si, supongo que es por el tipo del campo definido que esta como Char 1 binary
Alguna sugerencia?
Public Sub GuardarAdjunto(campoBinary As Field, ruta As String)
'Guardar el contenido del Picture en el campo de la base
Dim i As Integer
Dim Fragment As Integer, Fl As Long, Chunks As Integer
'Leer el fichero y guardarlo en el campo
DataFile = FreeFile
Open ruta For Binary Access Read As DataFile
Fl = LOF(DataFile) ' Longitud de los datos en el archivo
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ conChunkSize
Fragment = Fl Mod conChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
ReDim Chunk(conChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
Next i
Close DataFile
End Sub
