Bagaimana untuk membaca dan menulis BLOBs menggunakan GetChunk dan AppendChunk

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

Kembali ke atas

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
				

Kembali ke atas

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
				

Kembali ke atas

Contoh

Data = fld.GetChunk(BLOCK_SIZE) :

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

• Menggunakan rs.FieldName.ActualSize \ 2 bukannya rs.FieldName.ActualSize. Ini memecahkan masing-masing skenario tertentu yang tercantum di atas.
  
  
• Menggunakan metode 2 atau 3 di bawah ini, yang tidak bergantung pada ActualSize properti.

Kembali ke atas

Menyiapkan Data

1. Di Microsoft Access atau alat lainnya, buka NWIND.MDB.
2. Buka tabel karyawan (atau bentuk) dan menemukan "Andrew Fuller."
3. Tempelkan konten file teks besar (antara 30000 dan 60000 byte) ke catatan lapangan.
4. Simpan perubahan dan keluar akses.
5. Tambahkan datasource ODBC yang menunjuk ke NWIND.MDB file.

Kembali ke atas

Contoh kode

1. Membuat proyek Visual Basic baru dari proyek menu, pilih referensi dan pilih perpustakaan objek Data ActiveX Microsoft atau perpustakaan objek Data ActiveX Microsoft.
2. Menambahkan dua CommandButtons (cmdSave dan cmdLoad) untuk default form(Form1).
3. Tambahkan kode berikut. Anda akan memiliki untuk mengubah connect string disediakan pada "cn.Buka"jalur:

         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. Menambahkan modul baru untuk proyek (Module1) dengan kode berikut:

         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. Menjalankan proyek dan klik tombol cmdSave.
6. Dalam c: \ direktori, Anda harus menemukan berkas berikut: notes1.txt
   notes2.txt
   notes3.txt
   
   photo1.dat
   photo2.dat
   photo3.dat
   
   Tiga "foto" file harus ukuran yang sama dengan satu sama lain. Tiga "catatan" file harus ukuran yang sama dengan satu sama lain.
   
   
7. Klik tombol cmdLoad.
8. Buka database yang menggunakan akses dan Anda akan melihat enam tambahan karyawan dengan foto dan catatan dimuat kembali dengan benar.

Kembali ke atas

Catatan

1. Lebih efisien dari segi pengambilan data BLOB untuk hanya menyimpan data dalam file pada server dengan pointer dalam catatan utama (atau Anda dapat menggunakan beberapa jenis pemberian terstruktur direktori/nama file sistem berbasis pada nilai kunci primer). Ini memiliki keuntungan menghilangkan () Server overhead, (b) memungkinkan file yang akan disimpan di server kedua, (c) memungkinkan atribut keamanan jaringan diatur pada file individu, dan (d) memungkinkan pengambilan file bahkan ketika server sedang down. Ini terutama benar jika file semacam jenis dokumen, seperti bitmaps (.bmp), pengolah kata file (.doc), atau spreadsheet (.xls) di mana Anda dapat menunjukkan aplikasi host langsung ke file server.
2. Ketika menggunakan penyedia tertentu, terutama ODBC SQL Server dan lainnya database, Anda mungkin harus berhati-hati dalam mengambil BLOB data, seperti menempatkan GUMPALAN kolom di akhir daftar bidang dan referensi semua bidang non-GUMPALAN sebelum akses GUMPALAN kolom. Ini akan tergantung pada beberapa faktor, seperti:
   • Penyedia (biasanya ODBC)
   • Back-end server
   • Kursor lokasi (biasanya klien)
   • Jenis kursor
   • Apakah Anda memilih dari pandangan atau mendapatkan catatan kembali dari prosedur yang tersimpan.

• Mencoba penyedia OLE DB asli bukan penyedia ODBC.
• Menggunakan Server-side kursor (seperti adOpenKeyset).
• Pilih Primary Key column(s) Selain untuk kolom lain.
• Pilih kolom GUMPALAN terakhir. Pilih setiap bidang, tidak "*".
• Mengakses semua non-GUMPALAN kolom pertama (menyimpannya jika diperlukan).
• Akses GUMPALAN kolom dalam urutan yang ditentukan. Anda mungkin hanya dapat referensi sekali sebelum kursor kehilangan nilainya.
• Sewaktu mengedit kolom GUMPALAN yang menggunakan AppendChunk metode, yang mungkin Anda miliki untuk mengedit setidaknya satu non-GUMPALAN kolom dalam recordset Anda juga. Gumpalan biasanya tidak updateable dengan statis atau hanya maju kursor pada ODBC datasources.
• Jika Anda menggunakan ODBC untuk Jet, Anda tidak dapat memperbarui recordset kembali oleh disimpan prosedur (QueryDef) sama sekali karena pengandar memaksa mereka untuk menjadi hanya-baca.
• Microsoft Oracle OLE DB penyedia tidak saat ini mendukung acak Akses ke data BLOB dengan sisi server kursor - GUMPALAN kolom harus tampaknya akhir klausa pilih.

Kembali ke atas