创建表：
Dim Builder As New ADOXBuilder("本地sql") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
With tbl
.AddColumn("日期" ,ADOXType.DateTime)
.AddColumn("产品" ,ADOXType.String, 12)
.AddColumn("客户" ,ADOXType.String, 20)
.AddColumn("数量" ,ADOXType.Integer)
.AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()
删除表：
Dim Builder As New ADOXBuilder("本地sql") '要指定数据源名称
Builder.Open()
With Builder
.DeleteTable("订单")
End With
Builder.Close()
怎么实现创建数据库呢？
[此贴子已经被作者于2021/1/18 13:50:30编辑过]
加好友 
发短信
Post By：2021/1/18 13:36:00 [只看该作者]
