Cristina
03 de Septiembre del 2003

HOla:
Tengo el path de una imagen y la imagen almacenada en mi pc.
Y esa imagen quiero guardarla en un campo de una tabla, el cual es de tipo image. La manera de guardarla es mediante un comando que ejecuta una sql tal que asi:
"UDATE.. micampo = " & miimagen &"
pero no se cómo almacenar en miimagen la imagen y luego si funcionará el comando de esta manera.
ALguna idea. Estoy más perdida que el primer dia de vuelta de vacaciones.

Muchas gracias

abraham
03 de Septiembre del 2003

espero y te sirva esto:

Para pasar imágenes a sql

Te paso un pequeño ejemplo


Dim Archivo As String
Dim NumeroLibre As Integer
Dim Contador As Integer
Dim Largo As Long
Dim Cnn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim VarBytes() As Byte
Cnn.Provider = "SQLOLEDB"
Cnn.Open "Data Source = SRVMEMO;Initial Catalog = CAT;", "", ""
RS.Open "NEWS_SISTEMA", Cnn, adOpenKeyset, adLockOptimistic
For Contador = 2000 To 2005
Archivo = App.Path & "NewsImagen" & Contador & ".BMP"
NumeroLibre = FreeFile
Open Archivo For Binary Access Read As #NumeroLibre
Largo = LOF(NumeroLibre)
If Largo <> 0 Then
ReDim VarBytes(Largo)
Get NumeroLibre, , VarBytes
End If
Close #NumeroLibre
RS.Find "News_Orden = " & Contador
If Not RS.EOF Then
'Cnn.BeginTrans
RS!News_JPG.AppendChunk Null
RS!News_JPG.AppendChunk VarBytes
RS.Update
'Cnn.CommitTrans
End If
Next
RS.Close
Cnn.Close
Stop
Set RS = Nothing
Set Cnn = Nothing

xvisual
03 de Septiembre del 2003

hola cristina

te envio un puqeño programa a tu e-mail