51代码网ORACLEMYSQLSQL SERVER其它数据库java/jspasp/asp.netC/C++/VC++APP应用其它语言服务器应用
您现在的位置: 51代码网 >> 其它数据库 >> 文章正文

ADOX操作ACCESS,在两列之间插入新列

更新时间:2012-9-7:  来源:51代码网

请教各位达人
  ADOX操作ACCESS,怎么在两列之间插入新列。

VB代码:--------------- 
Sub CreateTable() 

Dim tbl As New Table 
Dim cat As New ADOX.Catalog 

'打开目录。 
' 打开目录。 
cat.ActiveConnection = _ 
""Provider=Microsoft.Jet.OLEDB.4.0;"" & _ 
""Data Source=c:\Program Files\Microsoft Office\"" & _ 
""Office\Samples\Northwind.mdb;"" 

tbl.Name = ""MyTable"" 
tbl.Columns.Append ""Column1"", adInteger 
tbl.Columns.Append ""Column2"", adInteger 
tbl.Columns.Append ""Column3"", adVarWChar, 50 
cat.Tables.Append tbl 


问题: 我怎么在"Column1"和"Column2"之间插入新列"Column4

因为是在代码里面操作的,有没有在"Column1"和"Column2"之间插入新列"Column4"的代码?
我想实现在指定的某一列前(后)最加一列,而“Columns.Append” 最加的列是在最后面的,不能满足要求。用SELECT AS来生成新的顺序

  • 上一篇文章:
  • 下一篇文章: 没有了
  • 赞助商链接
    推荐文章
  • 此栏目下没有推荐文章
  • {
    设为首页 | 加入收藏 | 友情链接 | 网站地图 | 联系站长 |