VB程序员博客
Dim rs1 As New ADODB.Recordset
con.Execute "insert into Mb_picture(MemberID,NO_AA) values('" & Me.txt_memberid.Text & "','AA')"
Set rs1 = Rec_Func("select * from Mb_picture where MemberId like '" & Me.txt_memberid.Text & "'")
If rs1.RecordCount > 0 Then
'提供一个没有使用的文件号
SourceFile = FreeFile
'打开文件
Open ImageFile For Binary Access Read As SourceFile
'取的文件长度
FileLength = LOF(SourceFile)
If FileLength = 0 Then
MsgBox Str_filepath & "无内容或不存在!"
End If
NumBlocks = FileLength BLOCKSIZE '得到数据库块的个数
LeftOver = FileLength Mod BLOCKSIZE '得到剩余字节数
ReDim byteData(BLOCKSIZE) '重新定义数据块的大小
rs1.Fields("pict_t").Value = Null
For i = 1 To NumBlocks
Get SourceFile, , byteData() '读到内存块中
rs1.Fields("pict_T").AppendChunk byteData() '''报错''''在此环境中不允许操作！！
Next i
ReDim byteData(LeftOver)
Get SourceFile, , byteData()
rs1.Fields("pict_T").AppendChunk byteData '''''''在此环境中不允许操作！！
Close SourceFile
End If
Exit Sub
rs1.Fields("pict_T").AppendChunk byteData() '''报错''''在此环境中不允许操作！！
请问这是什么原因？？
路过，学习