VB6-->VB 2005 Question

K

kcwallace

Centurion
Joined
May 27, 2004
Messages
175
Location
Austin, TX
How would I go about converting the following code to .Net.

Visual Basic: 
      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
 
System.IO.FileStream.Read as a method will allow you to read a file straight into a byte array - that is probably the 1st thing to look at.
Are you still wanting to read into a ADODB field or will that be converted to ADO.Net?
 
Back
Top