打印本文 打印本文  关闭窗口 关闭窗口  
一个ACCESS数据库数据传递的方法
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:56:15  文章录入：杜斌  责任编辑：杜斌
一直以来，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
打印本文 打印本文  关闭窗口 关闭窗口