最近很忙,忙得基本没时间整理博客,好不容易到了周末,还是把最近工作中学到的东西好好整理下,也算对工作的一种回顾。

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相关推荐

  1. ACCESS使用VBA编辑器,ACCESS崩溃后的处理

    昨天晚上,使用ACCESS 2010中的VBA工具,编写了一个简单的模块.今早再次打开,ACCESS报错,经过多次重新打开,均无效. 网上搜索解决办法,需要重新拷贝一个动态链接库(DLL文件)到安装目 ...

  2. office连接oracle,Access(VBA)连接Oracle数据库的代码

    access是包含前台程序开发和后台数据库的应用软件. 可以利用access作为前台开发,后台用sqlServer,oracle这些作为数据库. 而access连接数据库,可以利用链接表.直接读取表记 ...

  3. 【Access + SQL + VBA】更新查询同一字段多条件更新

    Dim strSQL As String strSQL = "Update tbl_发票收发 " & _ "SET 发票内容 = switch" &am ...

  4. access vba表字段_vba中如何在access的一张表中得到所有的列名?

    展开全部 这里提供下列ACCESS 窗体VBA示例代码供参考 假设数据库里有一张"定价表",为e69da5e887aa62616964757a686964616f313333353 ...

  5. access vba表字段_ACCESS VBA编程(使用技巧大全)[].doc

    ACCESS VBA编程(使用技巧大全)[].doc ACCESS VBA编程(使用技巧大全)[1] ACCESS-VBA编程 ACCESS-VBA编程. 控件: 常量控件 acBoundObject ...

  6. access vba代码大全_Access 与 Excel 之对比 (翻译)

    作者:Luke Chung 原文连接:Microsoft Access versus Microsoft Excel for Data Analysis and Reporting 在Excel与Ac ...

  7. Access 2007 宝典--学习笔记7(VBA)

    以下内容为本人在学习<Access 2007 宝典>(人民邮电出版社)过程中,总结和实践. 1 变量"显式"声明      "Option Explicit& ...

  8. 了解Access安全性

    简介 在早期版本的 Microsoft® Access(Microsoft Access 2000 以前)中,有关安全性的知识有时被认为是无法为任何人所掌握和应用的.您需要按顺序执行很多步骤,一旦遗漏 ...

  9. Access中的MDE文件

    认识Access中的MDE文件 MDE文件用于确保Access数据库中的窗体.报表和VBA代码的安全.将Access数据库保存为MDE文件时,若数据库包含VBA代码,则会编译所有的代码,删除所有可编译 ...

最新文章

  1. nconf创建nagios实例
  2. maven项目没有错,但是在项目头上有红叉的解决方法
  3. SCOUNIX第十二讲:使用TCP/IP
  4. android 模块自动加载,Android 之ko模块的自动加载
  5. 46. Permutations
  6. centos安装rabbitmq_【SpringBoot MQ系列教程】RabbitMq 初体验
  7. html浏览器边框颜色,CSS设置字体和边框颜色时Chrome和其他主流浏览器差别的问题_html/css_WEB-ITnose...
  8. 罗永浩担任“大局官”,小米双十一狂发补贴
  9. 企业实战|企业FTP搭建
  10. 移动端实现内滚动的4种方案
  11. 我与希赛PMP的不解之缘
  12. 全加器,半加器公式推演
  13. 如何使用secureCRT连接vmware中的虚拟主机?
  14. kafka no record information is available
  15. 计算机房面积设置气消条件,机房消防设计方案
  16. mysql 免安装版 启动_Windows下配置启动免安装版本mysql
  17. vue插槽的理解 slot slot-scop,三种插槽方式,默认插槽,具名插槽,作用域插槽
  18. 修改Echarts源码实现柱状图的炫彩闪烁效果
  19. 我把B站番剧的视频和弹幕一起下载下来了……
  20. 不带符号的阵列乘法器_阵列乘法器.ppt

热门文章

  1. 架构师素养及从小菜进阶架构(CTO)的书籍【转】
  2. Linux笔记之浅析Linux文件管理
  3. Veil+tdm-gcc免杀360火绒瑞星
  4. 2021湖南汉寿高考成绩查询,湖南省联考2021成绩查询入口 怎么查成绩
  5. Shell脚本实现sshd黑名单
  6. 数学黑洞(三)角谷猜想
  7. Android序列化经典解析(三)-拨乱反正,堪比窦娥的Serializable
  8. 天颜色十六进制html,RGB颜色值与十六进制颜色码对照表
  9. 【深度好文】强烈推荐:傅盛认知三部曲!
  10. AI厂工什么时候开始赛博搬砖?