本篇给大家介绍DeleteTable()函数，此函数依旧包含在DATABASE类里面，该函数的作用是删除一个存在的表

先上代码：

'删除表 Function DeleteTable() DeleteTable=False If CheckDB(N_DBname)=False Then Msgbox("数据库不存在，请检查数据库&#​34;) Exit Function End If If CheckTable()=False Then Msgbox("表不存在，无法删除&#​34;) Else N_sql=" drop table &#​34; + N_TBname DOsql_1(N_sql) If CheckTable()=False Then DeleteTable=True End If End If End Function

        此函数依然十分的简短，功能也是十分的简单，先去检查数据库存在不存在，然后检查表存在不存在，数据表存在则赋值sql语句执行删除

        接下来看一下在wincc按钮下如何调用，在wincc画面的按钮下键入一下VBS脚本：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)    

                                                                                                                                     Dim mydata Set mydata=New DATABASE mydata.DBname="DDD&#​34; mydata.TBname="Table_1&#​34; If mydata.DeleteTable() Then Msgbox("数据表删除成功&#​34;) End If End Sub

打开Microsoft SQL Server Management Studio 可以看到数据库DDD下面有三个表

接下来运行wincc点击按钮执行脚本

在Microsoft SQL Server Management Studio下面刷新，再次查看数据库

可以看到表Table_1被成功删除，我们可以再次点击wincc的按钮执行删除脚本，得到如下结果

DeleteTable()函数到此就介绍完了。