🚀 go-pugleaf

Moze byc taka funkcja:

Public Sub WriteBinary(ByRef fld As Field, ByRef strPath As String)
On Error GoTo WriteError
    Dim hFile As Integer
    Dim bOpened As Boolean
    Dim strBuffer As String
    Dim lLen As Long
    Dim lWritten As Long
    Dim lChunk As Long
    
    hFile = FreeFile
    bOpened = False
    lLen = FileLen(strPath)
    lWritten = 0
    Open strPath For Binary Access Read Shared As hFile
    bOpened = True
    
    Do While Not EOF(hFile)
        lChunk = IIf(lLen - lWritten > 16384, 16384, lLen - lWritten)
        If Not lChunk > 0 Then Exit Do
        strBuffer = String$(lChunk, 0)
        Get hFile, , strBuffer
        fld.AppendChunk strBuffer
        lWritten = lWritten + lChunk
    Loop
    Close hFile
    bOpened = False
    Exit Sub
WriteError:
    If bOpened Then Close hFile
    ErrorHandler
End Sub

Robi to co trzeba, pod warunkiem, ze pole jest w edycji (wraz z calym
wierszem)
i jest chunkowalne (memo).
Metoda do odczytu - analogicznie, tylko w druga strone

pozdrowka
martek

Rafa� Trzebi�ski <b...@chem.atr.bydgoszcz.pl> wrote in article
<344CAB...@chem.atr.bydgoszcz.pl>...
> Czesc!
> 
> W jaki sposob mozna przypisac do obiektu Recordset obrazek.
> Konkretnie mowiac zalozmy ze w tablicy znajduja sie rekordy po trzy
> pola, chcialbym do pola2 dopisac obrazek (nie siezke dostepu).
> 
> Bardzo prosze o szybka odpowiedz!
>