excel VBA进行模具管理数据库编程

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!班制 &a