摘要：先临时记录下，以后再整理将文件转换成二进制写入数据库：Dim adodb1, adorec As Object Set adodb1 = OpenDatabase(App.Path & "\data.mdb") Set adorec = adodb1.OpenRecordset("select * from model") Dim stmpic As ADODB.Stream Dim strpictemp As String Set stmpic = New ADODB.Stream ... 阅读全文