Okuma ve yazma iþlemlerinin nasýl GetChunk kullanma ve AppendChunk BLOBs...

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

Üste

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
				

Üste

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
				

Üste

ÖRNEK

Data = fld.GetChunk(BLOCK_SIZE) :

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

• RS.Fieldname.ActualSize kullanýr \ rs.Fieldname.ActualSize yerine 2. Bu, her biri, yukarýda listelenen özel senaryolar sorununu çözdü.
  
  
• 2 Veya 3 aþaðýdaki hiçbiri, ActualSize özelliði kullanan yöntemini kullanýn.

Üste

Veri hazýrlama

1. Microsoft Access veya baþka bir araç, NWIND.MDB açýn.
2. Çalýþanlar tablosunu (veya form)'ný açýn ve "Barýþ Çetinok" bulun.
3. (Arasýnda 30000 ve 60000 bayt) büyük bir metin dosyasý içeriðini Notlar alanýna yapýþtýrýn.
4. Deðiþiklikleri kaydetmek ve Access çýkýn.
5. NWIND.MDB dosyaya iþaret eden bir ODBC veri kaynaðý'ný ekleyin.

Üste

Örnek kod

1. Yeni bir Visual Basic projesi oluþturmak ve proje menüsünden References seçin ve Microsoft ActiveX Data Objects kitaplýðý veya Microsoft ActiveX Data Objects kitaplýðý seçin.
2. Iki CommandButtons (cmdSave ve cmdLoad) için varsayýlan form(Form1) ekleyin.
3. Aþaðýdaki kodu ekleyin. "Open" satýrýnda saðlanan baðlantý dizesini deðiþtirmeniz gerekecektir:

         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. Yeni bir modül, aþaðýdaki kodla (Module1) projeye ekleyin:

         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. Projeyi çalýþtýrýn ve cmdSave düðmesini týklatýn.
6. C:\ dizininde, aþaðýdaki dosyalarý bulmalýsýnýz: notes1.txt
   notes2.txt
   notes3.txt
   
   photo1.dat
   photo2.dat
   photo3.dat
   
   "Fotoðraf" üç dosya, birbirinin ayný boyutta olmasý gerekir. "Not" üç dosya, birbirinin ayný boyutta olmasý gerekir.
   
   
7. CmdLoad düðmesini týklatýn.
8. Açýk veritabaný eriþimi ve kullanarak fotoðraf ve notlar doðru þekilde geri yükledi, altý ek çalýþanlarý görmelisiniz.

Üste

NOTLAR

1. Yalnýzca ana kayýttaki bir iþaretçi sunucudaki dosyalar üzerindeki verileri depolamak için bir BLOB veri alma açýsýndan daha verimli olarak (veya yapýlandýrýlmýþ dizin/dosya birincil anahtar deðerini esas alan sistem adlandýrma çeþit kullanabilirsiniz). (A) (b) (c) (d) Bu, sunucu yükünü ortadan kaldýrarak, bir ikinci sunucuda saklanan dosyalarý saðlayarak, að güvenlik öznitelikleri tek tek dosyalarý ayarlanmasýna izin vermek ve dosyalarýnýn alýnmasýný bile sunucu kapalý olduðunda izin avantajý vardýr. Belge türü (bit eþlem (.bmp), sözcük iþlemcisi dosyalarý (.doc) veya <a1>Tablolar</a1> (.xls) gibi bazý tür doðrudan dosya sunucusunda ana bilgisayar uygulamasýna iþaret dosyalar, bu özellikle geçerlidir.
2. Bazý saðlayýcýlar, özellikle SQL Server ODBC ve diðer veritabanlarýnda kullanýrken BLOB verileri alýnýyor, gibi BLOB sütun alan listesinin sonunda yerleþtirme ve eriþim BLOB sütun için önce tüm olmayan BLOB alanlarý baþvuran özel bir dikkat olmasý gerekebilir. Bu gibi üzerinde birkaç etkene baðlýdýr:
   • <a1>Saðlayýcý</a1> (genellikle ODBC)
   • Arka Uç Sunucu
   • Imleç konumu (genellikle istemci)
   • Imleç türü
   • Bir VIEW seçme veya bir saklý yordamdan dönen kayýtlarý alýnýyor.

• Bir ODBC saðlayýcý yerine yerel bir OLE DB saðlayýcýsý deneyin.
• Sunucu tarafý imleçleri (örneðin, adOpenKeyset) kullanýn.
• Ek olarak baþka bir sütunu birincil anahtar sütunu/sütunlarý seçin.
• BLOB sütunlarý son'i seçin. Tek bir alan seçin "*".
• Tüm olmayan BLOB sütunlarý eriþmeleri (gerekirse depolamaya).
• Belirtilen sýrada eriþim BLOB sütunlar. Yalnýzca imlecin deðerini kaybetmeden önce bir kez baþvuruda bulunmak mümkün olabilir.
• AppendChunk yöntemi kullanarak bir BLOB sütunu düzenlerken, en az bir kayýt da olmayan BLOB sütununda düzenlemek zorunda kalabilirsiniz. BLOBs genellikle statik veya ODBC datasources üzerinde salt ileri imleçler güncelleþtirilebilir deðil.
• Jet ODBC kullanýrsanýz, bu sürücünün salt okunur olmasý için zorlar çünkü saklý yordamlar (QueryDef) hiç döndürülen bir recordset güncelleþtiremiyor.
• Microsoft Oracle OLE DB saðlayýcýsý, BLOB sütunu SELECT yan tümcesi sonuna görünmesi gereken sunucu tarafý imleçleri - BLOB verileri için rasgele eriþim þu anda desteklemiyor.

Üste