Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
DELETE FROM - 删除数据库的数据
作者:bengdeng | 来源:Excel吧 | 时间:2008-10-11 | 阅读权限:游客 | 会员币:0 | 【

通过前两篇 SQL语言教程 的介绍,我们已可以向数据库中添加数据和修改数据库中已有的数据。下面要介绍的 DELETE FROM  ,就能让我们删除数据库中的数据,其语法是:

DELETE FROM 表格名 WHERE {条件}

DELETE FROM 如果不指定条件,将清除指定表格中的所有数据,所以使用DELETE FROM时应该特别小心,因此,很多时候我们经常在数据中增加一个列来标识数据是否向用户展示,这样对于数据就比较安全,不过这就是后话了,不在此继续讨论了。下面还是给出一个例子,功能是删除“明细表”中所有“物品名称”为“铅笔”的数据。

Sub 删除销存表数据库中的数据()
'*******************************************
'时间:2008-10-11
'作者:bengdeng
'功能:在程序文件同一目录下进销存表数据库中删除数据
'注意:要在工具/引用中引用microsoft activex date objects x.x
'      其中x.x为版本号,可能会因为你安装的office的版本不同而不同,本例引用了2.5版
'发布:http://www.excelba.com
'*******************************************
Dim conn As ADODB.Connection
Dim WN As String
Dim TableName As String
Dim sSql As String
Dim TStr As String

WN = "进销存表.mdb"
TableName = "明细表"
TStr = "铅笔"

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                        "Data Source=" & ThisWorkbook.Path & "\" & WN
conn.Open
If conn.State = adStateOpen Then
    sSql = "DELETE FROM " & TableName & " WHERE 物品名称 = '" & TStr & "'"
    conn.Execute sSql
    MsgBox "成功删除“" & TableName & "”中“" & TStr & "”记录!", , "http://excelba.com"
    conn.Close
End If
Set conn = Nothing
End Sub

因为Excel文件不支持用DELETE FROM 删除数据,因此这篇文章就没有相关的对Excel文件操作的程序了。如果要删除Excel文件中的行,应该在VBA中用Delect来完成,有兴趣的朋友也可以动手改一下上面的程序,来看一下错误的提示!

最后大家还是动手复制一下上面的程序,来看一下效果吧!

如果不是从第一篇教程看起的朋友,上面的程序需要的数据库与文件,请到http://www.excelba.com/Art/Html/293.html 中利用里面的代码生成这篇文章需要的文件,然后再运行上一篇文章http://www.excelba.com/Art/Html/299.html 中的代码在明细表中增加铅笔的记录,最后再运行这段代码。今天的内容,你学会了吗*^_^*

文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口