BLOB's Visual Basic 6

[David]

Iniciado por Fann_Lavigne

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

Sería mejor colocar eso en las FAQ's.....