二进制的存储

[mimihuhu]

我从一个.dat文件读取二进制数据，然后存到一个表中：
Private Sub Command1_Click()

On Error GoTo ErrorHandle

cmbFile="d:\\1.dat"

Open cmbFile For Binary As #1

Input #1, s

Close #1

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

con.ConnectionString = conStr
con.Open

rs.Open "select * from SmsSend ", con, 1, 3

rs.AddNew

rs.Fields("MsgContentBin") = s '二进制字段
……

rs.Update

rs.Close
Set rs = Nothing
con.Close
Set con = Nothing

ErrorHandle:
If Not con Is Nothing Then
Set con = Nothing
End If
MsgBox Err.Description
End Sub

但是总是报错，将那个二进制字段赋值注释掉，就可以存储了，哪位帮帮忙，谢谢

[mimihuhu]

get 处报错
变量使用了一个 Visual Basic 不支持的自动化类型

[sxs69]

cmbFile="d:\1.dat"
dim s() as byte
Open cmbFile For Binary As #1

get #1,,s

Close #1

[yangjinok]

AppendChunk 存储二进制

[sxs69]

不好意思，忘了一句
cmbFile="d:\1.dat"
dim s() as byte
Open cmbFile For Binary As #1
Dim l As Long
L = LOF(1)
ReDim s(L - 1) As Byte
get #1,,s
Close #1