求教DoCmd.TransferText，解决方案

其实为什么不换个思路想呢？ Access数据库是支持过程存贮的，这也就意味着我们可以在Access中去编写一段导入Excel数据表的程序，关键在于这个导入程序非常好写，只需要调用一下Access的特写方法就行了，用不着一句一句硬写，比如，我写的一个信息系统中，在Access中导入Excel表就有这么一句 DoCmdTransferSpreadsheet acImport, , "导入选题", "选题XLS", True, "A1:F100" 你看这多简单 就是Access中DoCmd对象的一个TransferSpreadsheet方法就行了，而且执行效率比自己硬写的高得多 你再研究一下，VB是可以调用Access中的存贮过程的，这样不就解决问题了吗

使用ACCESS查询对象是无法一次运行多个

SQL语句

的，但是通过ACCESS

VBA代码可以实现一次运行多个SQL语句。下面是具体实现方案;

1)新建一个ACCESS窗体，窗体添加一个命令按钮；

2）编写按钮单击事件过程

Private

Sub

Command1_Click()Dim

strSql

as

stringstrSQL="Update

Policy

SET

LatestDueDate=Year(Date())

&

'-'

&

Format(PolicyDate,'mm-dd')"

DoCmdRunSql

strSQL

'运行第一个更新语句strSQL="UPDATE

Policy

SET

LatestDueDate=

DateAdd('yyyy',1,LatestDueDate)

WHERE

(((Month(Date())-Month(LatestDueDate))

>

6)

and(PaymentMode='H'))"

DoCmdRunSql

strSQL

'运行第二个更新语句

End

Sub

跟着点击该命令按钮就可以一次执行两条语句了。

ACCESS  用 SQL语句 删除 数据表；

假设 数据表名 是 “工资表”，用SQL语句 删除“工资表”可执行下面两行语句：

SQL = "Drop table 工资表"

DoCmdRunSQL SQL

当然，也可以用 DAO 删除数据表，语句如下：

CurrentDbTableDefsDelete "工资表"

使用alter table语句。示例如下：

1）将表1的Field1字段改为日期型

docmdrunsql "ALTER TABLE 表1 ALTER Field1 Date"

2）将表1的文本字段Field2的字段文本长度为50

docmdrunsql "ALTER TABLE 表1 ALTER Field2 Text(50)"

alter table语句功能很强大，你可以搜下相关资料。

通过insert into 语句就可以了。

dim str as string

str=insert into (字段1,字段2) values （‘" & me控件1 &"’,‘" & me控件2 &"’）

docmdrunsql str

这样就可以了

以上就是关于求教DoCmd.TransferText，解决方案全部的内容，包括:求教DoCmd.TransferText，解决方案、用vb连接access数据库以后，如何一次性执行多条sql语句、sql删除数据库数据表等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！