如何用vb下，ADOX（或其他方法）给ACCESS数据库中的旧表（即已有数据）加索引？在线等候，立刻加分

[chinasqf]

我用的方法：

数据库名：shuiyeold.mdb(2000)
表名：templs
字段名： COLUMN1，COLUMN2

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

cat.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\shuiyeold.mdb;"
Tbl.Name = "templs"

idx.Columns.Append "column1"
idx.Columns.Append "column1"


' 将索引追加到表上
tbl.Indexes.Append idx

执行时没问题，但索引没加上

[chinasqf]

<a href="www.cctv.com">真的很难吗？</a>

[limengchen]

加上cat.tables.refresh试试。

[alinker]

正好咋天在坛子里找到了一段，现转贴：

问：
连接数据库方式：（ADO2.1）
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\N2K.mdb;Jet OLEDB:Database Password=；" ';Persist Security Info=False"
cn.Open cnstr
数据库中只有一表：BIAO
AA BB CC DD(字段名)

01 aa 20 asfglaadfk（数据）
........
现数据有100000行，速度很漫，原因是我没有加索引，请问能用程序加索引吗？
立刻加分

******************************************************
答：

创建索引范例

如下代码演示如何创建新的索引。索引针对表的两个列建立。

Sub CreateIndex()

Dim tbl As New Table
Dim idx As New ADOX.Index
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

' 定义多列索引
idx.Name = "multicolidx"
idx.Columns.Append "Column1"
idx.Columns.Append "Column2"

' 将索引追加到表上
tbl.Indexes.Append idx

End Sub

[chinasqf]

真是没办法

[bucher]

试试看用SQL语言加索引

[bcrun]

另外在现有数据的表里加自动增加字段?我参考MSDN用ADOX试了半天,只新建的表能加这种字段,办法现在只会依照VISDATA用DAO建

[sonicdater]

http://www.csdn.net/expert/topic/617/617913.xml?temp=.2630884

[y1g1y1]

mk:@MSITStore:C:\WINNT\Help\ADO210.CHM::/htm/admscindexcreationexample.htm

或

mk:@MSITStore:C:\WINDOWS\Help\ADO210.CHM::/htm/admscindexcreationexample.htm

[y1g1y1]

自增字段创建方法范例：

mk:@MSITStore:C:\WINNT\Help\ADO210.CHM::/htm/admscautoincrementcolumnexample.htm

或

mk:@MSITStore:C:\WINDOWS\Help\ADO210.CHM::/htm/admscautoincrementcolumnexample.htm

[bcrun]

!!!!!!!!!!!!!!!!!!!!!!!!1??????????????????????????
两位老兄乐于助人,可惜怎么都不看清楚我的意思呀!!
在"现有数据的表"里加自动增加字段!用ADO(X)!!!!

你们说的那些我早就知道了