Access和VBA.pdf

Access和VBA

分类：工作相关2011-07-0915:05356人阅读评论(0)收藏举报

accessvba数据库microsofttabledate

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

1第一个问题：

利用程序将CSV导入数据库：

第一步：建立Improt/ExportSpecification

具体步骤：选择“File”-->"GetExternalData"-->"Import",选择需要导入的文件，然后在出现的界面中选择“Advanced”并进行设置。

设置的项包括：FileFormat，如选择Delimited，设置各个域分开的格式，如“|”，设置DateOrder。同时设置FieldImformation，这些字段和需要导入的数
据库中表格的字段名称一样，即使在导入之前表格被删除了，也会按照此种格式建立对应的表格。设置完成后保存。

2写VBA导入数据的宏，选择tools-->Micro-->"VirtualBasicEidtor"

实现代码如下：代码进行了一些处理，但最主要的函数还留着
其中Docmd.TransferText有两个重要的参数，SpecificationName这个为第一步建立的spectiation的名字，FileName则为导入的文件的名称，包
括全路径，TableName为建立的表格的名称。

expression.TransferText(TransferType,SpecificationName,TableName,FileName,HasFieldNames,HTMLTableName,CodePage)

3第三步：建立access的宏：

在access中选择宏，并选择新建，在出现的表格中，Action中选择ReturnCode，并在下面的function中设置为你刚才所写的函数的名称。

第四步：利用bat自动运行宏导入数据

"C：\ProgramFiles\Microsoftoffie\OFFICE11\msaccess.exe""you_dirctory"\youDB/excl/xyour_mirco_name便可以自动导入数据了。

2第二个问题：

访问access数据库获取数据：

打开数据库：

DIMDBSasDAO.database

DIMRSTasDAO.RocrdSet

DimstrasString

setDBS=CurrentDb()

str="select*fromTable1"

setRST=DBS.OpenRecordset(str,dbOpenDynaset)

RST.MoveLast

RST.MoveFirst

插入数据：

str2=“inserttable******”//insert语句不再仔细写了

DBS.execute(str2)这样就可以插入数据了

关闭数据库：DBS.Close()
获取某一列的数据如RST（“filedName”）

获取access数据库中某个表格中记录的总数：RST.RecordCount，这个数要保证正确，需要RST先MoveLast再MoveFirst一下

3第三个问题：

插入数据库遇到的问题：各个字段的值需要用‘’括起来，否则有可能插入不成功；

Update的时候需要保证字段名和对应的数据库表格建立的顺序一样，并且有的时候对于一些特殊的类型，如时间，如果写成Updatetableset
filed1='d',filed3='3'whereDateu=Date有可能更新不成功。

4第四个问题：利用VBA将数据库中的数据导入excel，并生成html