VB6-->VB 2005 Question

[kcwallace]

How would I go about converting the following code to .Net.

 

      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

[PlausiblyDamp]

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?

[kcwallace]

Thank you for your reply.

 

Definitely ADO.Net