创建表:
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编辑过]