BLOB's Visual Basic 6

[Fann_Lavigne]

Hola:

Ya se ke hay muchos post de este tema, pero ninguno me ha resulto mi duda, la kual es la siguiente:

¿Komo bajo a archivo una imagen jpg ke subi a un campo Image en Sql?
Lo subi kon Asp.Net, pero la kiero rekuperar kon Visual Basic 6 y no puedo.

Gracias, regañenme o ayudenme, pero hagan algo para ke pueda terminar mi aplikacion jejjee.

Msgbox "AYUDENME"

[Fann_Lavigne]

Ya No Es Necesario, Ya Lo Resolvi, Gracias.........

[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

[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.....