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

四、    文件存取

1.文件写入数据库的实例

Dim cn0 As ADODB.Connection '定义连接

Dim rs0 As ADODB.Recordset '定义记录集

Dim strcn0 As String

Private Sub Combo1_LostFocus()

If Combo1.Text = "综合" Then Text1 = "2972901"

If Combo1.Text = "酸轧" Then Text1 = "2972902"

If Combo1.Text = "连退" Then Text1 = "2972903"

If Combo1.Text = "热镀锌1" Then Text1 = "2972904"

If Combo1.Text = "热镀锌2" Then Text1 = "2972905"

If Combo1.Text = "彩涂" Then Text1 = "2972906"

If Combo1.Text = "精整" Then Text1 = "2972907"

If Combo1.Text = "其它" Then Text1 = "2972908"

Combo2.Enabled = True

End Sub

If Combo2.Text = "综合类" Then Text1 = Text1 & "01"

If Combo2.Text = "总图、运输" Then Text1 = Text1 & "02"

If Combo2.Text = "工艺" Then Text1 = Text1 & "03"

If Combo2.Text = "土建" Then Text1 = Text1 & "04"

If Combo2.Text = "给排水" Then Text1 = Text1 & "05"

If Combo2.Text = "采暖、通风" Then Text1 = Text1 & "06"

If Combo2.Text = "热力燃气" Then Text1 = Text1 & "07"

If Combo2.Text = "计控、电讯" Then Text1 = Text1 & "08"

If Combo2.Text = "供电、电气" Then Text1 = Text1 & "09"

If Combo2.Text = "设备、设备安装" Then Text1 = Text1 & "10"

If Combo2.Text = "其它专业" Then Text1 = Text1 & "11"

Combo2.Enabled = False

Dim a1, a2 As String

a2 = "000"

If rs0.State = adStateOpen Then rs0.Close

rs0.Open "SELECT * FROM 资料信息 " & _

    "WHERE 文件编号 like '%" & Trim(Text1) & "%' order by 文件编号", strcn0, , , adCmdText '选择条件

Do While Not rs0.EOF

   a1 = Mid(rs0!文件编号, 10, 3)

   If a2 <= a1 Then a2 = a1

   rs0.MoveNext

Loop

rs0.Close

  Dim s1 As String

  If a2 + 1 < 10 Then s1 = "00" & a2 + 1

  If a2 + 1 >= 10 And a2 + 1 < 100 Then s1 = "0" & a2 + 1

  If a2 + 1 >= 100 And a2 + 1 < 1000 Then s1 = a2 + 1

  Text1 = Mid(Text1, 1, 9) & s1

End Sub

Private Sub Command1_Click()

If Trim(Text1) = "" Then

  MsgBox "此文件编号不允许为空!", vbOKOnly + vbCritical, "警告"

  Exit Sub

End If

'查看此文件是否存在

If Trim(Text5) <> "" Then

Dim astr As String

astr = Dir(Text5 & Text4)

If astr = "" Then

  MsgBox "此文件不在指定的文件夹里,请核对!", vbOKOnly, "提示"

  Exit Sub

End If

  推荐精品文章

·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