|
Dim ssw As String = "客户表"
Dim lst As List(Of String)
lst = Connections("彬阳数据").GetTableNames
If lst.Contains(ssw) = False Then
Dim Builder As New ADOXBuilder("彬阳数据") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("客户表") '创建表
With tbl
.AddColumn("客户编号" ,ADOXType.String, 50)
.AddColumn("客户税号" ,ADOXType.String, 60)
.AddColumn("客户名称" ,ADOXType.String, 120)
.AddColumn("客户地址" ,ADOXType.String, 120)
.AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl, True, True) '增加表
Builder.Close()
End If
|
加好友 
发短信
Post By：2019/3/6 9:00:00 [显示全部帖子]
