Excel作為模具管理系統(tǒng)，數(shù)據(jù)是存儲在數(shù)據(jù)庫中，Excel只是作為輸入輸出的展現(xiàn)數(shù)據(jù)。表單格式按excel設(shè)計(jì)，填寫后點(diǎn)擊保存，則數(shù)據(jù)就存儲至excel。生成報(bào)表也是利用數(shù)據(jù)庫SQL進(jìn)行匯總導(dǎo)出。

一、Excel 連接數(shù)據(jù)庫的方式：

1、在工具中引用：Microsoft ActiveX Data Objects 2.1 Library

2、定義

Dim dbcnn As New ADODB.Connection

3、指定服務(wù)器地址（本機(jī)可用“.”或者127.0.0.1），數(shù)據(jù)庫名，用戶名與登錄密碼

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、窗口關(guān)閉時進(jìn)行釋放連接

dbcnn.Close

Set dbcnn = Nothing

5、讀取數(shù)據(jù)

    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、添加數(shù)據(jù)

    SQL = "select * from A_ProdDiscardTmp where 1=2"

rs1.Open SQL, dbcnn, adOpenStatic, adLockOptimistic

rs1.AddNew

rs1.Fields!發(fā)生日期 = “2019-01-01”

rs1.Fields!模號 = “190101”

rs1.Update