Como de leitura e gravação BLOBs AppendChunk e GetChunk usando

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

Voltar para o início

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 para o início

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 para o início

Exemplo

Data = fld.GetChunk(BLOCK_SIZE) :

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

• Usar rs.fieldname.ActualSize \ 2 em vez de rs.fieldname.ActualSize. Isso resolve dos cenários específicos listados acima.
  
  
• Use o método 2 ou 3 abaixo, nenhum dos quais dependem da propriedade ActualSize.

Voltar para o início

Preparando os dados

1. No Microsoft Access ou outra ferramenta, abra NWIND.MDB.
2. Abra a tabela Funcionários (ou formulário) e localize "Andrew Pereira."
3. Cole o conteúdo de um arquivo de texto grande (entre 30000 e 60000 bytes) no campo do Notes.
4. Salvar as alterações e sair do Access.
5. Adicione uma fonte de dados ODBC que aponta para o arquivo NWIND.MDB.

Voltar para o início

Código de exemplo

1. Criar um novo projeto Visual Basic e a partir do menu Project, selecione References e selecione Microsoft ActiveX Data Objects Library ou Microsoft ActiveX Data Objects Library.
2. Adicione dois CommandButtons (cmdSave e cmdLoad) form(Form1) padrão.
3. Adicione o seguinte código. Você precisará alterar a seqüência de conexã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 projeto (Module1) com o código a seguir:

         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. Executar o projeto e clique no botão cmdSave.
6. No diretório C:\, você deve encontrar os seguintes arquivos: notes1.txt
   notes2.txt
   notes3.txt
   
   photo1.dat
   photo2.dat
   photo3.dat
   
   Os três arquivos "foto" devem ser do mesmo tamanho que uns aos outros. Os três arquivos "anotações" devem ser do mesmo tamanho que uns aos outros.
   
   
7. Clique no botão cmdLoad.
8. Abrir o banco de dados usando acesso e você deve ver seis funcionários adicionais com fotos e anotações volta carregadas corretamente.

Voltar para o início

Anotações

1. É mais eficiente em termos de recuperação de dados BLOB para simplesmente armazenar os dados em arquivos no servidor com um ponteiro de registro principal (ou você pode usar algum tipo de diretório/arquivo estruturado nomeação sistema com base no valor da chave primária). Isso tem a vantagem do (a) eliminando a sobrecarga do servidor, (b) permitindo que os arquivos a ser armazenado em um segundo servidor, (c) permitindo rede atributos de segurança a ser definida em arquivos individuais e (d) permitindo recuperação de arquivos, mesmo quando o servidor está desativado. Isso é especialmente verdadeiro se os arquivos estiverem algum tipo de tipo de documento, como bitmaps (.bmp), arquivos de processador (.doc) ou planilhas (.xls) onde você pode apontar o aplicativo host diretamente para o arquivo no servidor.
2. Ao usar determinados provedores, mais notavelmente ODBC para SQL Server e outros bancos de dados, talvez você precise Tome um cuidado especial em recuperar dados BLOB, como colocar colunas BLOB no final da lista de campos e fazendo referência a todos os campos não-BLOB antes para colunas BLOB de acesso. Isso dependerá de vários fatores, como:
   • Provedor (normalmente ODBC)
   • Servidor back-end
   • Cursor local (normalmente cliente)
   • Tipo de cursor
   • Se você estiver selecionando uma visualização ou obtendo os registros retornados de um procedimento armazenado.

• Tente um provedor OLE DB nativo em vez de um provedor ODBC.
• Use cursores do lado do servidor (como adOpenKeyset).
• Selecione as colunas de chave primária com as outras colunas.
• Selecione as colunas BLOB pela última vez. Selecione campos individuais, não "*".
• Acessar todas as colunas não-BLOB primeiro (armazená-los se necessário).
• Colunas BLOB acesso na ordem especificada. Você somente poderá referência a ele vez antes do cursor perde seu valor.
• Ao editar uma coluna BLOB usando o método AppendChunk, talvez você precise editar pelo menos uma coluna BLOB não no seu conjunto de registros. BLOBs geralmente não são atualizáveis com cursores somente direta no ODBC datasources ou estático.
• Se você usar ODBC Jet, você não pode atualizar um conjunto de registros retornado por um procedimentos armazenados (QueryDef) em todos os porque o driver obriga a ser somente leitura.
• O Oracle provedor Microsoft OLE DB não oferece atualmente suporte aleatório acesso a dados BLOB com cursores server-side - coluna BLOB deve aparecer para o final da cláusula SELECT.

Voltar para o início