本篇介绍创建数据库的函数CreateDB()，此函数依旧调用类里面的DOsql_2()函数，调用方法跟上篇一样，通过传入sql语句来创建数据库，
先上代码：
'创建数据库 创建成功返回真
Function CreateDB(Byval DBname)
CreateDB=False '开始赋值返回值为假
If CheckDB(DBname) Then
Msgbox("数据库已经存在无法创建") '检查数据库是否存在，存在则弹窗提示，不允许创建
Else
'创建数据库 创建完检查是否成功
N_sql="Create Database "+DBname+" COLLATE Chinese_PRC_CI_AS " '创建数据库语句
DOsql_2(N_sql) '传入sql语句执行创建
If CheckDB(DBname) Then '再次检查数据库是否存在，存在则返回真
CreateDB=True
End If
End If
End Function
先检查数据库是否存在，不存在则直接弹出msgbox提醒数据库已经存在，数据库不存在时将sql语句赋值，执行DOsql_2()函数，调用完成后，又调用了CheckDB()用来检查数据库是否创建成功，接下来在wincc画面用按钮创建一个数据库，在创建数据库之前，先看下都存在那些数据库，下面是所有数据库的列表
接下来在wincc画面下新建一个按钮用来创建一个名称叫ABC的数据库，在按钮的VBS脚本下键入如下代码：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim mydata
Set mydata=New DATABASE
If mydata.CreateDB("ABC") Then
Msgbox("数据库创建成功")
Else
Msgbox("数据库创建失败")
End If
End Sub
执行此代码得到如下的弹窗，说明数据库创建成功
如果点击确定之后再次点击创建数据库的按钮，得到如下的弹窗
在 SQL Server Management Studio 下面刷新一下数据库，可以看到数据库ABC已经创建成功
CreateDB()函数介绍 完