SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: pacegar en Martes 8 de Marzo de 2005, 15:00
-
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
-
Hola.
Por lo que yo se, en Mysql no se pueden guardar imaganes, asi que supongo que eso que haces te marca error al momento en que intentas guardar una. Lo que yo te recomiendo que puedes hacer y que yo he hecho, es que guardes en la base de datos la ruta donde se encuentra tu imagen y cuando la vayas a usar, consultas esa ruta y de ahi muestras la imagen.
Espero te sirva.
Hasta luego.
-
Ya lo he conseguido, se ha de definir el tipo de campo como BLOB