Excel作为模具管理系统,数据是存储在数据库中,Excel只是作为输入输出的展现数据。表单格式按excel设计,填写后点击保存,则数据就存储至excel。生成报表也是利用数据库SQL进行汇总导出。
一、Excel 连接数据库的方式:
1、在工具中引用:Microsoft ActiveX Data Objects 2.1 Library
2、定义
Dim dbcnn As New ADODB.Connection
3、指定服务器地址(本机可用“.”或者127.0.0.1),数据库名,用户名与登录密码
dbcnn.Open "Provider=SQLOLEDB.1;Data Source=192.168.0.1;Persist Security Info=True;User ID=sa;Password=123456;Initial Catalog=MoldSys;Timeout=720;"
4、窗口关闭时进行释放连接
dbcnn.Close
Set dbcnn = Nothing
5、读取数据
SQL = "select * from 加工表 where 加工日期='2019-01-01' and 员工编号='001' "
rs1.Open Source:=SQL, ActiveConnection:=dbcnn, CursorType:=adOpenStatic, LockType:=adLockOptimistic
Do While Not rs1.EOF
ListView1.ListItems.Add , , rs1.Fields!班制 & "_" & rs1.Fields!班次 '工序名称
sk = sk + 1
ListView1.ListItems(sk).SubItems(1) = Format(rs1.Fields!加工日期, "M-d")
rs1.MoveNext
Loop
6、添加数据
SQL = "select * from A_ProdDiscardTmp where 1=2"
rs1.Open SQL, dbcnn, adOpenStatic, adLockOptimistic
rs1.AddNew
rs1.Fields!发生日期 = “2019-01-01”
rs1.Fields!模号 = “190101”
rs1.Update