主题：外部数据源设置

此主题相关图片如下：irxdkdd6}c_h{jbbk1ksu06.png

有几个问题：1.代码在哪里写？2.怎样设置主键？3.下面代码还要怎样修改？

Dim  Builder As  New  ADOXBuilder("nwnd")  '要指定数据源名称
Dim tbl  As ADOXTable
 Builder.Open()
 tbl = Builder.NewTable("Users") '创建表
With tbl
     .AddColumn("Name" ,ADOXType.String)
     .AddColumn("Type" ,ADOXType.Integer)
     .AddColumn("Config" ,ADOXType.text)
End With
 Builder.AddTable(tbl, True, True) '增加表
Builder.Close()

要另外写代码

 

Dim cn As new ADODB.Connection()
Dim ca As new ADOX.Catalog

cn.Open(Connections("test").ConnectionString , Nothing, Nothing, -1)
Ca.ActiveConnection = cn

Dim tbl As new ADOX.Table()
tbl.ParentCatalog = ca
tbl.Name = "users"

Dim C As new ADOX.Column()
C.ParentCatalog = ca
C.Type = ADOX.DataTypeEnum.adVarWChar
C.Properties("Nullable").Value = True
c.name = "Name"
tbl.Columns.Append(c, ADOX.DataTypeEnum.adLongVarWChar, 50)
tbl.Columns.Append("type", ADOX.DataTypeEnum.adInteger, 0)
tbl.Columns.Append("Config", ADOX.DataTypeEnum.adLongVarWChar, 200)
tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "Name", "", "")
ca.Tables.Append(tbl)

cn.Close()
ca = Nothing

参考 http://blog.csdn.net/kfhzy/article/details/6020283

 

此主题相关图片如下：iz3rx8ts$n7tkil(_j2a7p.png

之前已经设置过了，但是不知道在哪个地方查看？可以远程操作一下吗？

 先删除原来的users表，然后重新运行代码。

原来表写的代码好像设置了很多东西，如果删除了就恢复不了，可以远程操作吗？

 

删除users表有什么难的？

 

http://www.foxtable.com/help/topics/1818.htm

 

是这个表吗？

此主题相关图片如下：@a%68d5(}psmpfuw4}x$h~l.png

这个表有几百行数据，确定删除？

 那现在你想做什么？如果要新增一个表，就用2楼的代码，表名你可以改成另外一个表名