一个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
投稿猜你喜欢
- 日志记录器(Logger)是日志处理的核心组件。log4j具有5种正常级别(Level)。1. static Level DEBUG :DE
- 我们经常使用nodeType==1判断元素是否是一个HMTLElement元素。页面上的元素都是节点(Node)，有元素节点(Element
- translate函数语法：translate(expr, from_strimg, to_string)简介：translate返回exp
- 前言hello，大家好，学习一段时间了，学习了框架和后台的内容，为了防止前端的js和jq的熟练度不够，忘记很多算法和基础用法，会陆陆续续更新
- 删除单条记录 代码如下:id = saferequest("id") sql="
- flask-login 模块简介Flask-Login 是一个 Flask 模块，可以为 Flask 应用程序提供用户登录功能。要在 Fla
- 前言本文介绍的是DDCTF第五题，绕过未知字段名的技巧，这里拿本机来操作了下，思路很棒也很清晰，分享给大家，下面来看看详细的介绍：实现思路题
1.安装vscode和python3.7（安装路径在：E:\Python\Python37）；2.打开vscode，在左下角点击设置图标选择- PHP使用星号替代用户名手机和邮箱这个在许多的活动界面会看到如淘宝的购物界面中的一些客户的支付宝号都是隐藏掉的哦,下面我们来看一下它的使用方
- base64 其实是一种编码转换方式, 将 ASCII 字符转换成普通文本, 是网络上最常见的用于传输8Bit字节代码的编码方式之一。bas
- 前言：最近在做SOSO地图相关开发，遇到相关画圆知识，特此简单记录下来。1.在页面中添加SOSO地图API引用，引用脚本：<scrip
- 一。初识单元测试1)定义：单元：函数或者是类单元测试：测试类或者函数python内置的单元测试框架：unittest2)单元测试的意义好处：
- 需要引用vue-resource安装请参考https://github.com/pagekit/vue-resource官方文档在入口函数中
- 任务通过输入的sin曲线与预测出对应的cos曲线#初始加载包 和定义参数import torchfrom torch import nnim
- 前言当我们运行测试函数时，我们希望确保测试函数在运行结束后，可以自己清理掉对环境的影响。这样的话，它们就不会干扰任何其他的测试函数，更不会日
- 一、Selenium介绍与配置1.Selenium简介Selenium 是ThoughtWorks专门为Web应用程序编写的一个验收测试工具
- MyISAM 是MySQL中默认的存储引擎，一般来说不是有太多人关心这个东西。决定使用什么样的存储引擎是一个很tricky的事情，但是还是值
- 1.预备知识python语言，scrapy爬虫基础，json模块，flask后端2.抓取CSDN数据接口使用谷歌抓包工具抓取CSDN搜索引擎
- 1，reload 方法该方法强迫浏览器刷新当前页面。语法：location.reload([bForceGet])参数： bForceGet
- 目录1. 现实背景2. 约定3. 配置 master3.1. 配置启动参数3.2. 重启服务使参数生效3.3. 以 root 身份登录，创建
