在wincc怎么创建SQL数据库中的表格,

在wincc画面只有设定表格名称，然后以该表格名称创建sql表格。在网上找了些资料都是vb和数据库的操作。本人数据库小白，请大侠帮忙看下该怎么写这个脚本。

下面是我在网上找的脚本改的，请指点一二！

Dim sSql

Dim oRs

Dim conn

Dim oCom

Dim Con

Dim data1,data2

'读取WINCC变量

data1=HMIRuntime.Tags ("table").Read 

Con="Provider=SQLOLEDB.1; Integrated Security =SSPI;Persist Security Info=False; Initial Catalog=DD1;Data Source=PC\WINCC"''

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString= Con

conn.CursorLocation=3

conn.Open

Msgbox "。。。。。"'(如果和数据库通讯成功，弹出信息)

'

create table ["data1"]

(

 Int IDENTITY (1,1) PRIMARY KEY ,'[自动编号字段]

[age] VarChar(50) default '默认值\' null ,[字段1] 

[number] VarChar(50) default ,'[字段2]

)

Set oRs=CreateObject("ADODB.Recordset")

Set oCom=CreateObject("ADODB.Command")

Set oCom.ActiveConnection=conn

oCom.CommandType=1

oCom.CommandText=sSql

Set oRs=oCom.Execute

Set oRs=Nothing

conn.Close

Set conn=Nothing