Newsgroup: it.comp.appl.access
Titolo: recupero immagine da db access (campo BLOB) con asp

ciao, vorrei recuperare le immagini contenute in un db
con asp e metterle nelle mie pag html/asp...
il tutolrial: 
http://www.aspitalia.com/liste/usag/script.aspx?ID=321
mi dice: "se proprio non potete farne a meno, ed avete queste informazioni
memorizzate in una campo BLOB (Binary Large OBject), esiste un metodo
abbastanza rapido per visualizzarla. "
ho cercato campo BLOB con l'assistente, ma non ho trovato nulla...
chi mi spiega come memorizzare le mie immagini in campi BLOB ?
(considerando che access lo conosco pochissimo, ci vuole una spiegazione a
prova di zuccone... ;-)
-- 
^__^
o.g.a.v.o.s. [Onorevoli  Grazie  A  Voi  Ohhh  Saggi)

 ha scritto nel
messaggio news:cIbKb.231425$e6.91...@twister2.libero.it...

Vai sul Sito Comune (link qui sotto), nella Sezione Modules prova a vedere
se ti è utile qunato pubblicato con la FAQ di Pietro Bonaventi intitolata
"Funzioni per inserire o recuperare oggetti blob dal db con Ado oppure con
Dao".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


...ORPO....   e stà roba ora dove la metto?  ;-)
'********************************************************************
'Funzione Ado per scrivere un oggetto blob in tabella
'--------------------------------------------------------
'Per lanciare la funzione utilizzare il seguente codice
'la tabella1 contiene un campo blob rs!immagine
'--------------------------------------------------------
'Dim rs As New ADODB.Recordset
'rs.Open "Tabella1", CurrentProject.Connection, adOpenDynamic,
adLockPessimistic
'While Not rs.EOF
'   rs.AddNew
'   Call putBlobAdo("c:\miaimmagine.jpg", rs!immagine)
'   rs.Update
'   rs.MoveNext
'Wend
'rs.Close
'Set rs = Nothing
'********************************************************************
Function putBlobAdo(strFilename As String, fld As ADODB.Field) As Long
On Error GoTo Err_Handler
    Dim intFile As Integer
    Dim lngNumBlocks As Long, lngFileLength As Long
    Dim lngLeftOver As Long, lngCount As Long
    Dim abytFileData() As Byte
    If Not Len(dir$(strFilename)) > 0 Then GoTo Exit_Here
    If Not fld.Type = adLongVarBinary Then _
    Err.Raise ERR_INVALID_FIELD_TYPE, "GetBlob", "Il campo non è un oggetto
(OLE)."
    intFile = FreeFile
    Open strFilename For Binary Access Read Lock Read Write As intFile
    lngFileLength = LOF(intFile)
    If Not lngFileLength > 0 Then GoTo Exit_Here
    lngNumBlocks = Fix(lngFileLength / BlockSize)
    lngLeftOver = lngFileLength Mod BlockSize
    'String() gives a Unicode string, need to convert to ANSI
    abytFileData = StrConv(String$(lngLeftOver, vbNullChar), vbFromUnicode)
    Get #intFile, , abytFileData
    fld.AppendChunk abytFileData
    abytFileData = StrConv(String$(BlockSize, vbNullChar), vbFromUnicode)
    For lngCount = 1 To lngNumBlocks
        Get intFile, , abytFileData
        fld.AppendChunk abytFileData
    Next lngCount
    putBlobAdo = lngFileLength
Exit_Here:
    On Error Resume Next
    Close intFile
    Exit Function
Err_Handler:
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
    Resume Exit_Here
End Function

 ha scritto nel
messaggio news:DrdKb.231692$e6.91...@twister2.libero.it...

Memorizzala in un modulo del tuo database.
Quanto al modo di usarla penso che basti seguire le indicazioni date in
testa alla funzione (scrivo al condizionale in quanto non non ho mai provato
questa funzione poiché non posso usare ADO visto che uso solo Access 97).


 questa funzione poiché non posso usare ADO visto che uso solo Access 97).
OK, ma quando dice: " 'la tabella1 contiene un campo blob rs!immagine " io
in tabella cosa debbo fare?
e poi, come faccio ad inserire immagini in blob?
^__^

 ^__^
