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

 
遠程連接access數據庫的方法
前段時間很多人問遠程(如通過互聯網)連接access數據庫的方法,最近寫了個例子,與大家共享: 使用了TCP/IP,ADO及XML(需要安裝Microsoft XML 4.0。)。分服務器和客戶端兩部分,服務器可以多用戶同時連接。遠程連...查看完整版>>遠程連接access數據庫的方法
 
ACCESS數據庫數據傳遞的方法
  一直以來,ACCESS數據庫中的申報數據在分公司與總公司之間傳遞,用EXCEL或DBASE、TXT甚至ACCESS等格式,我總覺得不太理想。最近看了一本書,不經意間發現了一個方法,使用ACCESS數據庫生成申報數據與讀入數據似乎...查看完整版>>ACCESS數據庫數據傳遞的方法
 
Web程序中網頁間數據傳遞方法小結
     介紹  我們總是會遇到這樣的情況,需要將數值從一個網頁傳遞到另一個網頁。在這篇文章中,向你展示了幾種從一個網頁向另一個網頁傳遞數值的幾種方法。在此例子中,創建的網頁由一個文本控件和幾個按鈕控件...查看完整版>>Web程序中網頁間數據傳遞方法小結
 
Web程序中網頁間數據傳遞方法小結
介紹   我們總是會遇到這樣的情況,需要將數值從一個網頁傳遞到另一個網頁。在這篇文章中,向你展示了幾種從一個網頁向另一個網頁傳遞數值的幾種方法。在此例子中,創建的網頁由一個文本控件和幾個按鈕控件組成。在...查看完整版>>Web程序中網頁間數據傳遞方法小結
 
Web程序中網頁間數據傳遞方法小結
介紹 我們總是會遇到這樣的情況,需要將數值從一個網頁傳遞到另一個網頁。在這篇文章中,向你展示了幾種從一個網頁向另一個網頁傳遞數值的幾種方法。在此例子中,創建的網頁由一個文本控件和幾個按鈕控件組成。在文本...查看完整版>>Web程序中網頁間數據傳遞方法小結