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

If str1 <> "" Then

    str1 = str1 & "  and 文件编号 like '%" & Text2 & "%' "

  Else

    str1 = "SELECT * FROM 资料信息  where 文件编号 like '%" & Text2 & "%' "

  End If

End If

If Trim(Text3) <> "" Then

  If str1 <> "" Then

    str1 = str1 & "  and 文件说明 like '%" & Text3 & "%' "

  Else

    str1 = "SELECT * FROM 资料信息  where 文件说明 like '%" & Text3 & "%' "

  End If

End If

If str1 = "" Then str1 = " SELECT * FROM 资料信息 "

 

If rs0.State = adStateOpen Then rs0.Close

rs0.Open str1, strcn0, , , adCmdText '选择条件

If Not rs0.EOF Then

 rs0.MoveFirst

 List1.Clear

 Do While Not rs0.EOF

  If Not IsNull(rs0!存放路径) And rs0!存放路径 <> "" Then

    List1.AddItem rs0!存放路径 & rs0!资料名

  End If

  rs0.MoveNext

 Loop

 Set DataGrid1.DataSource = rs0

Else

  MsgBox "没有满足要求的文件资料!", vbOKOnly, "提示"

  Exit Sub

End If

End Sub

 

Private Sub Command2_Click()

If List1.Text <> "" Then

  '读取数据库里的字段wj里的文件

  Dim iStm As ADODB.Stream

  '得到最新添加的纪录

  If Rs1.State = adStateOpen Then Rs1.Close

  Rs1.Open str1, strcn0, adOpenKeyset, adLockReadOnly

  '保存到文件

  Set iStm = New ADODB.Stream

  With iStm

    .Mode = adModeReadWrite

    .Type = adTypeBinary

    .Open

    .Write Rs1!wj

  '这里注意了,如果当前目录下存在此文件,会报一个文件写入失败的错误.
  推荐精品文章

·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