一个ACCESS数据库数据传递的方法
来源:编程中国 时间:2008-03-05 11:58:00
一直以来,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,数据库
0
投稿
猜你喜欢
Rxjs 中处理错误和抓取错误的代码案例
2024-06-23 05:57:38
Python利用openpyxl库遍历Sheet的实例
2023-10-20 20:19:01
python判断完全平方数的方法
2023-07-12 06:43:13
php中debug_backtrace、debug_print_backtrace和匿名函数用法实例
2023-06-11 23:08:24
Python用来做Web开发的优势有哪些
2023-07-20 19:23:53
Nodejs 数组的队列以及forEach的应用详解
2024-05-02 16:18:39
实例讲解Python3中abs()函数
2023-06-14 02:21:55
PHP session有效期session.gc_maxlifetime
2023-11-14 17:01:45
一步步解析Python斗牛游戏的概率
2021-05-03 05:17:27
Matplotlib绘制条形图的方法你知道吗
2022-12-05 15:23:59
SQL2005 高效分页sql语句
2024-01-17 13:23:22
Python 文件管理实例详解
2022-08-22 16:29:54
JS 排序输出实现table行号自增前端动态生成的tr
2024-06-16 05:07:50
opencv 图像轮廓的实现示例
2023-07-21 15:37:17
详解python函数的闭包问题(内部函数与外部函数详述)
2023-01-22 20:53:01
如何用Python将图片转为字符画
2022-06-15 09:26:06
Python项目跨域问题解决方案
2022-12-01 17:39:32
《细节决定交互设计的成败》
2009-06-02 11:23:00
vue数据双向绑定的注意点
2024-05-05 09:07:43
python开根号实例讲解
2022-10-03 12:29:07