Ok, Para hacerlo es necesario que vean este cogido y lo analizen, es muy facil.
Código:
Set v1 = CreateObject("Scripting.FileSystemObject")
Rst.Open "SELECT Image From Materiales Where (ID = " & MiID & ")", conexion, adOpenDynamic, adLockOptimistic
If Not (Rst.EOF) Then
Arr = Rst!Image
n = UBound(Arr, 1)
Set v2 = v1.CreateTextFile(App.Path & "\Imagen.jpg", True)
For i = 0 To n
v2.Write Chr(Arr(i))
Next i
v2.Close
Image1.Picture = LoadPicture(App.Path & "\Imagen.jpg")
End If
conexion.Close
Donde MiID es la variable ke recibe un Id para identificar la fila en la Tabla.
Ok, Kreo ke ya tienen la nocion, no se komo funciono, solo se me okurrio pensar ke al leer el kampo Image de la base de datos, me devoleria los valores ascii, asi ke los konverti a Char. Suerte, dudas, escribanme a
[email protected] y les mando un ejemplo konm Sql Server y Vb 6