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