Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

请教两个不能用向导写的命令写法

黄蜂  发表于:2009-05-31 10:49:30  
复制

因为菜单功能限制了,有两步操作想用窗体中的命令执行,但本人水平太低,如果向导没有的话就不会写了,因此想请老师指点下,这里先谢谢了!点击下载此附件

 

Top
82077802 发表于:2009-05-31 11:38:58
以下三种方法均可删除库中的一个表

 

Sub a()
Dim db As Database
Set db = CurrentDb
db.TableDefs.Delete "表1"
db.Close
End Sub

Sub b()
Dim db As Database
Set db = CurrentDb
db.Execute "Drop table 表1;"
db.Close
End Sub

Sub c()
DoCmd.DeleteObject acTable, "表1"
End Sub



黄蜂 发表于:2009-05-31 14:26:09
老师,我要求是删除表的内容,而不是删除整个表,请老师再指点下好吗.

赵文斌 发表于:2009-05-31 16:05:15

在一窗体中增加一命令按钮。单击执行。

docmd.runsql "delete * from 表名"

 

也可以用删除查询。在SQL查询视图中输入delete * from 表名单击执行就可以了



黄蜂 发表于:2009-05-31 17:02:26
谢谢三楼的老师,删除表的内容实现了,还能告诉我下如何用命令按钮执行导入EXCEL表吗

赵文斌 发表于:2009-05-31 19:05:29

TransferSpreadsheet 方法

参阅应用于示例特性

在 Visual Basic 中,TransferSpreadsheet 方法执行 TransferSpreadsheet 操作。

expression.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)

expression      必需。返回“应用于”列表中的一个对象的表达式。

TransferType   可选 AcDataTransferType

SpreadsheetType   可选 AcSpreadSheetType

TableName     可选 Variant 型。字符串表达式,表示要向其中导入电子表格数据、从中导出电子表格数据或链接电子表格数据的 Microsoft Access 表的名称,或要将其结果导出到电子表格的 Microsoft Access 选择查询的名称。

FileName     可选 Variant 型。字符串表达式,表示要从其中导入、导出到或链接到的电子表格的名称与路径。

HasFieldNames     可选 Variant 型。使用 True (-1) 可以在导入或链接时,将电子表格中的第一行用作字段名。使用 False (0) 可以将数据表第一行看成普通数据。如果将该参数留空,则采用默认值 (False)。在将 Microsoft Access 表或选择查询数据导出到电子表格中时,无论为该参数输入了何值,字段名称都将插入到电子表格的第一行中。

Range     可选 Variant 型。字符串表达式,表示电子表格中单元格的有效范围或范围名称。该参数仅可用于导入。若要导入整个电子表格,请将该参数留空。导出到电子表格时,必须将该参数留空。如果输入了一个范围,导出将失败。

UseOA     可选 Variant 型。

说明

有关该操作及其参数如何使用的详细信息,请参阅该操作的主题。

语法中的可选参数允许留空,但是必须包含参数的逗号。如果将位于末端的参数留空,则在指定的最后一个参数后面不需使用逗号。

注释  还可以通过使用 Recordset 对象的 ActiveConnection 属性,来使用 ActiveX 数据对象 (ADO) 创建链接。

示例

下面的示例在 Lotus 电子表格 Newemps.wk3 的指定范围内将表导入到 Microsoft Access 的“Employees”表,并用电子表格中的第一行作为字段名。

DoCmd.TransferSpreadsheet acImport, 3, _
    "Employees","C:\Lotus\Newemps.wk3", True, "A1:G12"
		


总记录:5篇  页次:1/1 9 1 :