用这个方法动态创建外部表成功,打开SQL数据库可以看到。
Dim Builder As New ADOXBuilder("外部数据源")
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()
但用下列方法不能动态加载:
If DataTables.Contains("订单") = False Then '如果表C没有加载
DataTables.Load("订单") '加载表C
End If
原因是:系统内没有“订单”这个外部数据表。难道还要手工添加这个外部数据表吗?
请有外部数据源的狐友帮忙测试一下,还是有别的什么办法?请教!