一个ACCESS数据库数据传递的方法
来源：编程中国 发布时间：2008-03-05 11:58:00
标签：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
0
投稿猜你喜欢
- 问题当浏览SQL Server 2008的新特性时，我们看到了透明数据加密。这看起来很有趣。您能为我们解释一下并介绍下执行它的细节吗?专家解
- 不通过数据源名DSN也能访问Access数据库吗？代码如下：<％ dim conn &nbs
可用性研究表明，当响应时间超过一秒钟时，用户便能够有所察觉。虽然在反馈系统中，当用户需要等待时，更好的解决方案的是应该采用确定性的进度条。但- 我们提倡无论何时都尽可能地使用CSS,这样我们更容易取得成功.现在浏览器对CSS的支持已经非常好,肯定足以让你用来控制你的网页布局与排版.但
- a {}{ background:url(images/normal.gif); } a:ho
- 我认为多选列表具有完美的功能——只需按下Ctrl键，同时点击鼠标从列表中选择多个项目。以下是一个典型的多选列表框：选出你最喜爱的快餐：&nb
- Server对象提供对服务器上访问的方法和属性.大多数方法和属性是作为实用程序的功能提供的。语法:Server.property|metho
- 首先创建一个表Use Test;Create Table TableTest(`ID` mediumint(8) default '
- 说明：通过随机产生密码，然后将密码EMail给注册用户，你可以确认用户的EMail填写是否正确。自动产生的密码往往安全性更高，同时，你可以过
- 在数据库应用，我们经常要用到唯一编号，以标识记录。在MySQL中可通过数据列的AUTO_INCREMENT属性来自动生成。MySQL支持多种
- 这两副图片哪张更能勾起你买东西的欲望呢?相信大多数买家更喜欢看大图,实物图,产品细节图等.如果我们的卖家更能倾听下我们买家的心声.他们的产品
- 要实现的SQL查询很原始：要求从第一个表进行查询得到第二个表格式的数据，上网查询之后竟然能写出下面的SQL：代码如下:select * fr
- 文本的排版依据语言的不同会有一些格式上的要求，比如简体中文中类似逗号、分号等标点符号不会出现在一行的开头，对于英文来讲就是一个完整单词不会在
- 一个动态载入asp树源码。把 node.htc, style.css 保存与 css 目录下. index.asp subtree.asp
- 全选、全不选、反选这几个功能我们经常会用到，如我们可以用在文章列表管理页面，也可以用在音乐播放页面，使用全选我们可以很方便的进行批量操作，如
- 数据库文件在使用过程中，日志文件会越来越大。小则几个G，大的可能几十上百G都有可能，有时实在是没有必要为它浪费太大的硬盘存储空间。所以可以把
- 以图像处理见长的微软Live实验室，最近发布了一款新作：Pivot。装完启动后的第一印象就是一款浏览器，和IE、FF、Chrome又不太一样
- 简单的仿图片验证码，适合新手简单的仿图片验证码演示，很容易被破解，实用性不大，但拿出来给新手学习一下还是不错的：JScript.Asp代码示
- 我们网站的静态资源（css、js和背景图片）和web应用程序是分开部署的，几乎所有的静态资源都部署在同一个应用下。最开始的网站
- 主页上的鼠标是不是就只有箭头和小手两种模样呢？如果鼠标移到“帮助”等字样上时，形状就变成求助的问号；鼠标移到可能需要较长时间等待的超链接时，
