eu tenho um arquivo binario que esta armazenado em um bd(access 2000) eu gostaria de saber como que eu faço para ler estes dados pois nao estou conseguindo

Olá Humberto,

 

VocÊ deverá criar um arquivo externo pelo Vb para ter acesso aos dados dele.

Se o campo é um campo OLE, faça assim:

 

Dim mBytes() as Byte

Dim Tam as long, Pos as Long

 

If Len(Dir(Arquivo)) <> 0 Then

    Kill Arquivo

End if

 

Open "Arquivo" For Binary as #1

 

Tam = rs(Campo).ActualSize

 

Do While Pos < Tam

    mBytes() = rs(Campo).GetChunk(100)

    Put #1, , mBytes()

    Pos = Pos + 100

Loop

 

Close #1

 

Onde,

 

Arquivo é o nome completo do arquivo temporário que você deve criar;

rs é o recordset que você abriu;

Campo é o nome do campo em que você tem o arquivo binário