Access和VBA.pdf

Access和VBA 分类： 工作相关 20 11-07-09 15:05 356人阅读 评论(0) 收藏 举报 access vba 数据库 microsoft table date 最近很忙，忙得基本没时间整理博客，好不容易到了周末，还是把最近工作中学到的东西好好整理下，也算对工作的一种回顾。 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.Transfe rText有两个重要的参数，SpecificationName 这个为第一步建立的spe ctiation的名字，FileName则为导入的文件的名称，包 括全路径，TableName为建立的表格的名称。 expression.Transfe rText(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