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

Dim astr As String

    astr = Dir("d:\lzzl\*.*")

    If astr <> "" Then Kill "d:\lzzl\*.*"

    .SaveToFile List1.Text

  End With

  iStm.Close

    Call Shellfile(List1.Text) 'rs0!存放路径 & rs0!资料名)

  Rs1.Close

Else

  MsgBox "请注意!您没有选择需要打开的文件!", vbOKOnly + vbCritical, "提示"

End If

End Sub

 

 

Private Sub Form_Load()

Set cn0 = New ADODB.Connection

strcn0 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=lzzl;Initial Catalog=" & App.Path & "\DateBase"

cn0.Open strcn0

Set rs0 = New ADODB.Recordset

Set rs0.ActiveConnection = cn0

rs0.CursorType = adOpenKeyset

rs0.LockType = adLockBatchOptimistic

Set Rs1 = New ADODB.Recordset

Set Rs1.ActiveConnection = cn0

Rs1.CursorType = adOpenKeyset

Rs1.LockType = adLockBatchOptimistic

End Sub

  推荐精品文章

·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