End If
If rs0.State = adStateOpen Then rs0.Close
rs0.Open "SELECT * FROM 资料信息 " & _
"WHERE 文件编号='" & Trim(Text1) & "' ", strcn0, , , adCmdText '选择条件
If rs0.EOF Then
rs0.AddNew
rs0!工程项目名 = Trim(Combo1)
rs0!基建档案类名 = Trim(Combo2)
rs0!文件编号 = Trim(Text1)
rs0!收件人 = Trim(Text2)
rs0!发件人 = Trim(Text3)
rs0!资料名 = Trim(Text4)
rs0!存放路径 = Trim(Text5)
rs0!文件说明 = Trim(Text6)
rs0!文本归档位置 = Trim(Text7)
rs0!收到时间 = Format(DTPicker0, "yyyy-mm-dd")
rs0!转交时间 = Format(DTPicker1, "yyyy-mm-dd")
rs0!归档时间 = Format(DTPicker2, "yyyy-mm-dd")
rs0!归档人 = Trim(Text11)
rs0!拟定密级 = Trim(Combo3)
rs0.UpdateBatch
rs0.Close
'写文件到数据库字段wj
If Trim(Text4) <> "" And Trim(Text5) <> "" Then
Dim iStm As ADODB.Stream
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile Text5 & Text4
End With
If rs0.State = adStateOpen Then rs0.Close
rs0.Open "SELECT * FROM 资料信息 WHERE 文件编号='" & Trim(Text1) & "' ", strcn0, , , adCmdText '选择条件
rs0!wj = iStm.Read
rs0.UpdateBatch
rs0.Close
'完成后关闭对象
iStm.Close
'删除原文件
Kill Text5 & Text4
|