Como ler e escrever BLOBs utilizar GetChunk e AppendChunk

If fld.Attributes And adFldLong Then
   ' You can use GetChunk/AppendChunk
				

Voltar ao topo

BlobToFile

    BlobToFile                Calls one of the below routines to use GetChunk
    WriteFromBinary         Writes a LongVarBinary of known size to disk
    WriteFromUnsizedBinary  Writes a LongVarBinary on unknown size
    WriteFromText           Writes a LongVarChar of known size
    WriteFromUnsizedText    Writes a LongVarChar of unknown size
				

Voltar ao topo

FileToBlob

    FileToBlob          Calls one of the below routines to use AppendChunk
    ReadToBinary      Reads a file into a LongVarBinary column
    ReadToText        Reads a file into a LongVarChar column
				

Voltar ao topo

Exemplo

Data = fld.GetChunk(BLOCK_SIZE) :

        Run-time error '94':
        Invalid use of Null
				

• Utilizar rs.fieldname.ActualSize \ 2 em vez de rs.fieldname.ActualSize. Este procedimento resolve cada um dos cenários específicos listados acima.
  
  
• Utilize o método 2 ou 3 abaixo, a propriedade ActualSize nenhum dos quais dependem.

Voltar ao topo

A preparar os dados

1. No Microsoft Access ou outra ferramenta, abra NWIND.MDB.
2. Abra a tabela Empregados (ou formulário) e localize "Andrew Fuller."
3. Cola o conteúdo de um ficheiro de texto grande (entre 30000 e 60000 bytes) no campo Notas.
4. Guardar as alterações e sair do Access.
5. Adicione uma origem de dados ODBC que aponta para o ficheiro NWIND.MDB.

Voltar ao topo

Código de exemplo

1. Criar um novo projecto do Visual Basic, no menu Project, seleccione References e seleccione Microsoft ActiveX Data Objects Library ou Microsoft ActiveX Data Objects Library.
2. Adicione dois CommandButtons (cmdSave e cmdLoad) form(Form1) predefinido.
3. Adicione o seguinte código. Terá de alterar a cadeia de ligação fornecida na linha "CN.Open":

         Option Explicit
   
         Private Sub CmdSave_Click()
         Dim cn As ADODB.Connection, rs As ADODB.Recordset, SQL As String
           Set cn = New ADODB.Connection
           Set rs = New ADODB.Recordset
           cn.CursorLocation = adUseServer
           cn.Open "dsn=nwind_jet"   ' *** change this ***
           SQL = "SELECT * FROM Employees WHERE LastName='Fuller'"
           rs.Open SQL, cn, adOpenStatic, adLockReadOnly
         '
         ' Save using GetChunk and known size.
         ' FieldSize (ActualSize) > Threshold arg (16384)
         '
           BlobToFile rs!Photo, "c:\photo1.dat", rs!Photo.ActualSize, 16384
           BlobToFile rs!Notes, "c:\notes1.txt", rs!Notes.ActualSize, 16384
            
         ' Uncomment the next line of code, and comment the line above,
         ' to workaround Runtime error '94': Invalid use of Null
         ' BlobToFile rs!Notes, "c:\notes1.txt", rs!Notes.ActualSize \ 2, 16384
   
         '
         ' Save using GetChunk and unknown size.
         ' FieldSize not specified.
         '
           BlobToFile rs!Photo, "c:\photo2.dat"
           BlobToFile rs!Notes, "c:\notes2.txt"
         '
         ' Save without using GetChunk
         ' FieldSize (ActualSize) < Threshold arg (defaults to 1Mb)
         '
           BlobToFile rs!Photo, "c:\photo3.dat", rs!Photo.ActualSize
           BlobToFile rs!Notes, "c:\notes3.txt", rs!Notes.ActualSize
   
         ' Uncomment the next line of code, and comment the line above,
         '   to workaround Runtime error '94': Invalid use of Null
         ' BlobToFile rs!Notes, "c:\notes3.txt", rs!Notes.ActualSize \ 2
   
           rs.Close
           cn.Close
         End Sub
   
         Private Sub CmdLoad_Click()
         Dim cn As ADODB.Connection, rs As ADODB.Recordset, SQL As String
           Set cn = New ADODB.Connection
           Set rs = New ADODB.Recordset
           cn.CursorLocation = adUseServer
           cn.Open "dsn=ole_db_nwind_jet"
           SQL = "SELECT * FROM Employees"
           rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
         '
         ' Load using AppendChunk
         '
           rs.AddNew
           rs!FirstName = "Test"
           rs!LastName = "Fuller11"
           FileToBlob "c:\photo1.dat", rs!Photo, 16384
           FileToBlob "c:\notes1.txt", rs!Notes, 16384
           rs.Update
   
           rs.AddNew
           rs!FirstName = "Test"
           rs!LastName = "Fuller21"
           FileToBlob "c:\photo2.dat", rs!Photo, 16384
           FileToBlob "c:\notes2.txt", rs!Notes, 16384
           rs.Update
   
           rs.AddNew
           rs!FirstName = "Test"
           rs!LastName = "Fuller31"
           FileToBlob "c:\photo3.dat", rs!Photo, 16384
           FileToBlob "c:\notes3.txt", rs!Notes, 16384
           rs.Update
   
         '
         ' Load without using AppendChunk
         '
           rs.AddNew
           rs!FirstName = "Test"
           rs!LastName = "Fuller12"
           FileToBlob "c:\photo1.dat", rs!Photo
           FileToBlob "c:\notes1.txt", rs!Notes
           rs.Update
   
           rs.AddNew
           rs!FirstName = "Test"
           rs!LastName = "Fuller22"
           FileToBlob "c:\photo2.dat", rs!Photo
           FileToBlob "c:\notes2.txt", rs!Notes
           rs.Update
   
           rs.AddNew
           rs!FirstName = "Test"
           rs!LastName = "Fuller32"
           FileToBlob "c:\photo3.dat", rs!Photo
           FileToBlob "c:\notes3.txt", rs!Notes
           rs.Update
   
           rs.Close
           cn.Close
         End Sub
   					

4. Adicionar um novo módulo ao projecto (Módulo1) com o seguinte código:

         Option Explicit
   
         Const BLOCK_SIZE = 16384
   
         Sub BlobToFile(fld As ADODB.Field, ByVal FName As String, _
                        Optional FieldSize As Long = -1, _
                        Optional Threshold As Long = 1048576)
         '
         ' Assumes file does not exist
         ' Data cannot exceed approx. 2Gb in size
         '
         Dim F As Long, bData() As Byte, sData As String
           F = FreeFile
           Open FName For Binary As #F
           Select Case fld.Type
             Case adLongVarBinary
               If FieldSize = -1 Then   ' blob field is of unknown size
                 WriteFromUnsizedBinary F, fld
               Else                     ' blob field is of known size
                 If FieldSize > Threshold Then   ' very large actual data
                   WriteFromBinary F, fld, FieldSize
                 Else                            ' smallish actual data
                   bData = fld.Value
                   Put #F, , bData  ' PUT tacks on overhead if use fld.Value
                 End If
               End If
             Case adLongVarChar, adLongVarWChar
               If FieldSize = -1 Then
                 WriteFromUnsizedText F, fld
               Else
                 If FieldSize > Threshold Then
                   WriteFromText F, fld, FieldSize
                 Else
                   sData = fld.Value
                   Put #F, , sData  ' PUT tacks on overhead if use fld.Value
                 End If
               End If
           End Select
           Close #F
         End Sub
   
         Sub WriteFromBinary(ByVal F As Long, fld As ADODB.Field, _
                             ByVal FieldSize As Long)
         Dim Data() As Byte, BytesRead As Long
           Do While FieldSize <> BytesRead
             If FieldSize - BytesRead < BLOCK_SIZE Then
               Data = fld.GetChunk(FieldSize - BLOCK_SIZE)
               BytesRead = FieldSize
             Else
               Data = fld.GetChunk(BLOCK_SIZE)
               BytesRead = BytesRead + BLOCK_SIZE
             End If
             Put #F, , Data
           Loop
         End Sub
   
         Sub WriteFromUnsizedBinary(ByVal F As Long, fld As ADODB.Field)
         Dim Data() As Byte, Temp As Variant
           Do
             Temp = fld.GetChunk(BLOCK_SIZE)
             If IsNull(Temp) Then Exit Do
             Data = Temp
             Put #F, , Data
           Loop While LenB(Temp) = BLOCK_SIZE
         End Sub
   
         Sub WriteFromText(ByVal F As Long, fld As ADODB.Field, _
                           ByVal FieldSize As Long)
         Dim Data As String, CharsRead As Long
           Do While FieldSize <> CharsRead
             If FieldSize - CharsRead < BLOCK_SIZE Then
               Data = fld.GetChunk(FieldSize - BLOCK_SIZE)
               CharsRead = FieldSize
             Else
               Data = fld.GetChunk(BLOCK_SIZE)
               CharsRead = CharsRead + BLOCK_SIZE
             End If
             Put #F, , Data
           Loop
         End Sub
   
         Sub WriteFromUnsizedText(ByVal F As Long, fld As ADODB.Field)
         Dim Data As String, Temp As Variant
           Do
             Temp = fld.GetChunk(BLOCK_SIZE)
             If IsNull(Temp) Then Exit Do
             Data = Temp
             Put #F, , Data
           Loop While Len(Temp) = BLOCK_SIZE
         End Sub
   
         Sub FileToBlob(ByVal FName As String, fld As ADODB.Field, _
                        Optional Threshold As Long = 1048576)
         '
         ' Assumes file exists
         ' Assumes calling routine does the UPDATE
         ' File cannot exceed approx. 2Gb in size
         '
         Dim F As Long, Data() As Byte, FileSize As Long
           F = FreeFile
           Open FName For Binary As #F
           FileSize = LOF(F)
           Select Case fld.Type
             Case adLongVarBinary
               If FileSize > Threshold Then
                 ReadToBinary F, fld, FileSize
               Else
                 Data = InputB(FileSize, F)
                 fld.Value = Data
               End If
             Case adLongVarChar, adLongVarWChar
               If FileSize > Threshold Then
                 ReadToText F, fld, FileSize
               Else
                 fld.Value = Input(FileSize, F)
               End If
           End Select
           Close #F
         End Sub
   
         Sub ReadToBinary(ByVal F As Long, fld As ADODB.Field, _
                          ByVal FileSize As Long)
         Dim Data() As Byte, BytesRead As Long
           Do While FileSize <> BytesRead
             If FileSize - BytesRead < BLOCK_SIZE Then
               Data = InputB(FileSize - BytesRead, F)
               BytesRead = FileSize
             Else
               Data = InputB(BLOCK_SIZE, F)
               BytesRead = BytesRead + BLOCK_SIZE
             End If
             fld.AppendChunk Data
           Loop
         End Sub
   
         Sub ReadToText(ByVal F As Long, fld As ADODB.Field, _
                        ByVal FileSize As Long)
         Dim Data As String, CharsRead As Long
           Do While FileSize <> CharsRead
             If FileSize - CharsRead < BLOCK_SIZE Then
               Data = Input(FileSize - CharsRead, F)
               CharsRead = FileSize
             Else
               Data = Input(BLOCK_SIZE, F)
               CharsRead = CharsRead + BLOCK_SIZE
             End If
             fld.AppendChunk Data
           Loop
         End Sub
   					

5. Execute o projecto e clique no botão cmdSave.
6. No directório C:\, deverá encontrar os seguintes ficheiros: notes1.txt
   notes2.txt
   notes3.txt
   
   photo1.dat
   photo2.dat
   photo3.dat
   
   Os três ficheiros "Fotografia" devem ter o mesmo tamanho como entre si. Os três ficheiros "notas" devem ter o mesmo tamanho como entre si.
   
   
7. Clique no botão cmdLoad.
8. Abrir base de dados utilizando acesso e deverá ver seis empregados adicionais com fotografias e notas novamente carregadas correctamente.

Voltar ao topo

Notas

1. É mais eficiente em termos de obtenção de dados BLOB simplesmente armazenar os dados nos ficheiros no servidor com um ponteiro no registo principal (ou pode utilizar algum tipo de directório/ficheiro estruturado sistema baseado no valor de chave primária de nomenclatura). Isto tem a vantagem de (a) eliminando a carga do servidor, (b) permitindo que os ficheiros sejam armazenados num segundo servidor, (c) permitindo rede atributos de segurança a ser definido em ficheiros individuais e (d) permitindo a obtenção de ficheiros mesmo quando o servidor esteja desligado. Isto é especialmente verdade se os ficheiros são algum tipo de tipo de documento, tal como mapas de bits (.bmp), ficheiros de processador (.doc) ou folhas de cálculo (.xls) onde pode apontar a aplicação anfitriã directamente para o ficheiro no servidor.
2. Quando utilizar alguns fornecedores, nomeadamente ODBC para SQL Server e outras bases de dados, poderá ter de tomar atenção especial em obter dados BLOB, como, por exemplo, colocar BLOB colunas no fim da lista de campos e referência todos os campos não BLOB antes acesso BLOB colunas. Isto dependerá de diversos factores, tais como:
   • Fornecedor (normalmente ODBC)
   • Servidor back-end
   • Localização do cursor (normalmente cliente)
   • Tipo de cursor
   • Se estiver a seleccionar VIEW ou obter registos devolvidos a partir de um procedimento armazenado.

• Tente um fornecedor de OLE DB nativo em vez de um fornecedor ODBC.
• Utilize cursores do lado do servidor (por exemplo, adOpenKeyset).
• Seleccione as colunas chave primária em conjunto com outras colunas.
• Seleccione as colunas BLOB pela última vez. Seleccione campos individuais, não "*".
• Aceder a todas as colunas não BLOB primeiro (armazená-las se necessário).
• Acesso BLOB colunas pela ordem especificada. Só poderá referenciar uma vez antes do cursor perde o respectivo valor.
• Quando editar uma coluna BLOB utilizando o método AppendChunk, poderá ter de editar, pelo menos, uma coluna BLOB não bem o conjunto de registos. BLOBs normalmente não são actualizáveis com estático ou cursores só de avanço no ODBC datasources.
• Se utilizar o ODBC para Jet, não pode actualizar um conjunto de registos devolvido por uma procedimentos armazenados (QueryDef) sequer porque força o controlador para ser só de leitura.
• O Microsoft Oracle fornecedor de OLE DB não suporta actualmente aleatório acesso a dados BLOB com cursores do lado do servidor - coluna BLOB tem de aparecer para o fim da cláusula SELECT.

Voltar ao topo