Access和VBA
最近很忙,忙得基本没时间整理博客,好不容易到了周末,还是把最近工作中学到的东西好好整理下,也算对工作的一种回顾。
1 第一个问题:
利用程序将CSV导入数据库:
第一步:建立Improt/Export Specification
具体步骤:选择“File”-->"Get External Data"-->"Import",选择需要导入的文件,然后在出现的界面中选择“Advanced”并进行设置。
设置的项包括: File Format,如选择Delimited,设置各个域分开的格式,如“|”,设置Date Order。 同时设置Field Imformation,这些字段和需要导入的数据库中表格的字段名称一样,即使在导入之前表格被删除了,也会按照此种格式建立对应的表格。设置完成后保存。
2 写VBA导入数据的宏,选择tools-->Micro-->"Virtual Basic Eidtor"
实现代码如下:代码进行了一些处理,但最主要的函数还留着
其中Docmd.TransferText有两个重要的参数,SpecificationName 这个为第一步建立的spectiation的名字,FileName则为导入的文件的名称,包括全路径,TableName为建立的表格的名称。
expression.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)
3 第三步: 建立access的宏:
在access中选择宏,并选择新建,在出现的表格中,Action中选择Return Code,并在下面的function中设置为你刚才所写的函数的名称。
第四步: 利用bat自动运行宏导入数据
"C:\Program Files\Microsoft offie\OFFICE11\msaccess.exe" "you_dirctory"\youDB /excl /x your_mirco_name便可以自动导入数据了。
2 第二个问题:
访问access数据库获取数据:
打开数据库:
DIM DBS as DAO.database
DIM RST as DAO.RocrdSet
Dim str as String
set DBS =CurrentDb()
str ="select * from Table1"
set RST= DBS.OpenRecordset(str,dbOpenDynaset)
RST.MoveLast
RST.MoveFirst
插入数据:
str2 =“insert table ******”//insert语句不再仔细写了
DBS.execute(str2) 这样就可以插入数据了
关闭数据库:DBS.Close()
获取某一列的数据如RST(“filedName”)
获取access数据库中某个表格中记录的总数:RST.RecordCount,这个数要保证正确,需要RST先MoveLast再MoveFirst一下
3 第三个问题:
插入数据库遇到的问题: 各个字段的值需要用‘’ 括起来,否则有可能插入不成功;
Update的时候需要保证字段名和对应的数据库表格建立的顺序一样,并且有的时候对于一些特殊的类型,如时间,如果写成Update table set filed1='d',filed3='3' where Dateu= Date有可能更新不成功。
4 第四个问题:利用VBA将数据库中的数据导入excel,并生成html
Access和VBA相关推荐
- ACCESS使用VBA编辑器,ACCESS崩溃后的处理
昨天晚上,使用ACCESS 2010中的VBA工具,编写了一个简单的模块.今早再次打开,ACCESS报错,经过多次重新打开,均无效. 网上搜索解决办法,需要重新拷贝一个动态链接库(DLL文件)到安装目 ...
- office连接oracle,Access(VBA)连接Oracle数据库的代码
access是包含前台程序开发和后台数据库的应用软件. 可以利用access作为前台开发,后台用sqlServer,oracle这些作为数据库. 而access连接数据库,可以利用链接表.直接读取表记 ...
- 【Access + SQL + VBA】更新查询同一字段多条件更新
Dim strSQL As String strSQL = "Update tbl_发票收发 " & _ "SET 发票内容 = switch" &am ...
- access vba表字段_vba中如何在access的一张表中得到所有的列名?
展开全部 这里提供下列ACCESS 窗体VBA示例代码供参考 假设数据库里有一张"定价表",为e69da5e887aa62616964757a686964616f313333353 ...
- access vba表字段_ACCESS VBA编程(使用技巧大全)[].doc
ACCESS VBA编程(使用技巧大全)[].doc ACCESS VBA编程(使用技巧大全)[1] ACCESS-VBA编程 ACCESS-VBA编程. 控件: 常量控件 acBoundObject ...
- access vba代码大全_Access 与 Excel 之对比 (翻译)
作者:Luke Chung 原文连接:Microsoft Access versus Microsoft Excel for Data Analysis and Reporting 在Excel与Ac ...
- Access 2007 宝典--学习笔记7(VBA)
以下内容为本人在学习<Access 2007 宝典>(人民邮电出版社)过程中,总结和实践. 1 变量"显式"声明 "Option Explicit& ...
- 了解Access安全性
简介 在早期版本的 Microsoft® Access(Microsoft Access 2000 以前)中,有关安全性的知识有时被认为是无法为任何人所掌握和应用的.您需要按顺序执行很多步骤,一旦遗漏 ...
- Access中的MDE文件
认识Access中的MDE文件 MDE文件用于确保Access数据库中的窗体.报表和VBA代码的安全.将Access数据库保存为MDE文件时,若数据库包含VBA代码,则会编译所有的代码,删除所有可编译 ...
最新文章
- nconf创建nagios实例
- maven项目没有错,但是在项目头上有红叉的解决方法
- SCOUNIX第十二讲:使用TCP/IP
- android 模块自动加载,Android 之ko模块的自动加载
- 46. Permutations
- centos安装rabbitmq_【SpringBoot MQ系列教程】RabbitMq 初体验
- html浏览器边框颜色,CSS设置字体和边框颜色时Chrome和其他主流浏览器差别的问题_html/css_WEB-ITnose...
- 罗永浩担任“大局官”,小米双十一狂发补贴
- 企业实战|企业FTP搭建
- 移动端实现内滚动的4种方案
- 我与希赛PMP的不解之缘
- 全加器,半加器公式推演
- 如何使用secureCRT连接vmware中的虚拟主机?
- kafka no record information is available
- 计算机房面积设置气消条件,机房消防设计方案
- mysql 免安装版 启动_Windows下配置启动免安装版本mysql
- vue插槽的理解 slot slot-scop,三种插槽方式,默认插槽,具名插槽,作用域插槽
- 修改Echarts源码实现柱状图的炫彩闪烁效果
- 我把B站番剧的视频和弹幕一起下载下来了……
- 不带符号的阵列乘法器_阵列乘法器.ppt