你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
流技术在VB存取工程中的应用(三)
 

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

  推荐精品文章

·2019年9月目录 
·2019年8月目录
·2019年7月目录
·2019年6月目录
·2019年5月目录
·2019年4月目录    
·2019年3月目录   
·2019年2月目录   
·2019年1月目录  
·探析云计算下应用软件用户数据安全问题
·地理空间集束线可视化表达
·Android智能净水机APP开发(一)
·2018年12月目录  
·springAOP的思想和设计以及实现

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备06048724号,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区长春桥路5号6号楼1209室,邮编:100089