ACCESS數據庫數據傳遞的方法

 

特别声明：以上内容(如有图片或视频亦包括在内)为网络用户发布，本站仅提供信息存储服务。

 

　　一直以來，ACCESS數據庫中的申報數據在分公司與總公司之間傳遞，用EXCEL或DBASE、TXT甚至ACCESS等格式，我總覺得不太理想。最近看了一本書，不經意間發現了一個方法，使用ACCESS數據庫生成申報數據與讀入數據似乎簡單了不少，特拿出來與大家分享。同時，也希望能得到更多的指點。 　　附上示例： 　　Sub Mwrite() 　　On Error GoTo thiserr 　　Dim rs As New ADODB.Recordset 　　rs.Open "dlmd", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, acTable 　　rs.Save "a:\dlmd.adtg", adPersistADTG 　　rs.Close 　　Set rs = Nothing 　　thisexit: 　　Exit Sub 　　thiserr: 　　MsgBox Err.Description 　　Resume thisexit 　　End Sub 　　Sub Mread() 　　On Error GoTo Merr 　　Dim i As Integer 　　Dim rsDe As New ADODB.Recordset 　　Dim rsSo As New ADODB.Recordset 　　rsSo.Open "a:\dlmd.adtg", "provider=mspersist" 　　rsDe.Open "dlmd", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, acTable 　　Do Until rsSo.EOF 　　rsDe.AddNew 　　For i = 0 To rsSo.Fields.Count - 1 　　rsDe.Fields(i) = rsSo.Fields(rsDe.Fields(i).Name) 　　Next i 　　rsDe.Update 　　rsSo.MoveNext 　　Loop 　　rsSo.Close 　　rsDe.Close 　　Set rsSo = Nothing 　　Set rsDe = Nothing 　　Mexit: 　　Exit Sub 　　Merr: 　　MsgBox Err.Description 　　Resume Mexit 　　End Sub