我用ADO + datagrid打開和新建數据庫. 我如何delete指定的數据表. 和指定的field ?
解决方案 »
- 请教数据库二进制图片的写入和读取....
- 高分100,求助SendMessage问题
- 如何使指定的文本框中的文字高亮显示?在先等~~~
- 有vb打印报表的原代码吗?给一个。或者给个建议也行
- 放了一个Frame控件,想把很多已有的控件都放进去,可总是Frame在最前面怎么办?
- 请问怎样把TEXT1里面的内容都选中?
- 我想问一下如果按照mstop (陈建华)讲义中讲的方法(把MHGRID变成EXCEL样式)怎么样能把表格中的数据存到MDB中。哪位高手如果知道指点小第一
- 请问WINSOCK的使用(分不够在加)
- 关于自定义函数返回值的问题
- 建议管理员把非技术性的帖子删除,浪费时间(包括我的)
- 提问,如何让计算机的"重新启动"事件 变成 关闭计算机?
- VB如何向WEB提交数据!!???高手指点!立马给分
从数据库中删除已存在的表,或从表中删除已存在的索引。
--------------------------------------------------------------------------------注意 对于非微软数据库, Microsoft Jet数据库引擎不支持DROP或 DDL 语句的使用。应采用 DAO Delete 方法。
--------------------------------------------------------------------------------语法
DROP {TABLE表 | INDEX索引 ON表 | PROCEDURE procedure | VIEW view}这 DROP 语句分为以下几个部分:部分 说明
table 欲删除的表的名称,或欲删除的索引所在的表的名称。
过程 欲创建的表的名称。
view 欲创建的表的名称。
index 欲从表中删除的索引的名称。
说明
必须先关闭表,然后才能删除此表或此表中的索引。也可以使用 ALTER TABLE 语句 来删除表中的索引。你可以用 CREATE TABLE 建立一个表,也可以用 CREATE INDEX 或 ALTER TABLE 建立一个索引。使用 ALTER TABLE修改表。DROP 语句示例下列示例假设在 Northwind 数据库中的员工表上存在一个假设的 NewIndex 索引。 此示例从员工表中删除 MyIndex 索引。Sub DropX1()
Dim dbs As Database
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单,
' 从员工表中删除 NewIndex。 dbs.Execute "DROP INDEX NewIndex ON Employees;"
dbs.Close
End Sub此示例从数据库中删除员工表。Sub DropX2()
Dim dbs As Database
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单,
' 删除员工表。 dbs.Execute "DROP TABLE Employees;"
dbs.Close
End Sub
创建一个删除查询把记录从 FROM 子句列出并符合 WHERE 子句的一个或更多的表中清除。语法
DELETE [表.*]
FROM 表
WHERE标准DELETE 语句可分为以下几个部分:部分 说明
table 从其中删除记录的表的可选名称。
table 从其中删除记录的表的名称。
criteria 确定删除哪个记录的表达式。
说明
可以使用 DELETE 删除多个记录。可以用 Execute 方法和 DROP 语句从数据库中删除整个表。不过,若用这种方法删除表,将会失去表的结构。不同的是当使用 DELETE,只有数据会被删除;表的结构以及表的所有属性仍然保留,例如字段属性及索引。可以用 DELETE从与其他表有着 一对多关系的表中清除记录。若在一个查询中删除了关系中‘一’的一方的表的相应记录,级联删除操作将删除关系中‘多’的一方的表的记录。例如,在客户表与订单表之间的关系中,客户表是‘一’方,而订单表是‘多’方。如果指定使用级联删除,从客户数据中删除一个记录,相对应之订单记录也会被删除。删除查询不只删除指定字段之中的数据,它会删除全部的记录。如果要删除指定字段值,可创建更新查询使该值变为 Null.
--------------------------------------------------------------------------------重点 当使用删除查询删除记录之后,不能取消此操作。如果想要知道哪些记录已被删除,首先验证使用相同条件的选定查询的结果,然后运行删除查询。
随时注意维护数据的复制备份。如果您误删除记录,可以从备份副本中将数据恢复。 --------------------------------------------------------------------------------
DELETE 语句示例此示例删除所有员工其职称为 Trainee 的记录。当 FROM 子句仅包含一个表,您不必在 DELETE 语句中列出表名称。Sub DeleteX()
Dim dbs As Database, rst As Recordset
' 在您的计算机中修改此行使其正确指到 Northwind 的路径。 Set dbs = OpenDatabase("Northwind.mdb") ' 对运费超过 $100 的订单,
' 删除员工职称为 Trainee 的员工记录。 dbs.Execute "DELETE * FROM " _ & "Employees WHERE Title = 'Trainee';" dbs.Close
End Sub
con.excute ("drop table 表名")