请教各位达人
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来生成新的顺序