Foro de programacion

Estoy usando VB6 y SQL Server 2000

definí un campo IMAGE


pero cómo le paso el archivo ??

Jorge te paso un trozo de mi codigo, en la que agrego imagenes (en este caso *.jpg) a una BD sql200 (el campo es de tipo ntext - memo)

si te sirve, te paso la forma de recuperar el mismo para rehacer la imagen.

Saludos JulioAlbertoGarcia@hotmail.com

Private Sub mnu13_Click()
Dim Archivo$
Dim Tama&
Dim ArchivoImg$
Dim Campos(1) As Variant
Dim rsBus As ADODB.Recordset
Dim Comando$
Dim CmdProc As ADODB.Command

Me.MousePointer = vbHourglass
' Lee el primer archivo del directorio
Archivo$ = Dir(CaminoImagen & "\" & "*.jpg", vbArchive)

While Archivo <> ""

intSocio = Buscar_IdSocio(Val(Left(Archivo, 3)))

Archivo$ = CaminoImagen & "\" & Archivo$
Tama = FileLen(Archivo$)
ArchivoImg = Space(Tama)
Open Archivo$ For Binary Access Read As #1
Get #1, , ArchivoImg
Close #1

Campos(0) = intSocio
Campos(1) = ArchivoImg$

'Averigua si existe el Registro en Imagenes
Set rsBus = New ADODB.Recordset
rsBus.Open "Select * from Imagenes Where id_socio = " & intSocio, Cnn, adOpenKeyset, adLockReadOnly, adCmdText
If rsBus.RecordCount > 0 Then
Comando$ = "dbo.Modificar_Imagenes"
Else
Comando$ = "dbo.Alta_Imagen"
End If

rsBus.Close
Set rsBus = Nothing

'Da el Alta/Modificacion en la base de datos
Set CmdProc = New ADODB.Command

CmdProc.ActiveConnection = Cnn
CmdProc.CommandType = adCmdStoredProc
CmdProc.CommandText = Comando$
CmdProc.Execute , Campos

Set CmdProc = Nothing

Call DeleteFile(Archivo)
' Lee el proximo archivo del directorio de origen
Archivo = Dir
Wend
Me.MousePointer = vbDefault
End Sub