ADOX.Catalog ActiveConnection属性怎么用
'更改数据表名
Public Sub ReNameTable(ByVal DbCon As DB.OleDbConnection, ByVal StrOldName As String, ByVal StrNewName As String)
Dim tab As ADOX.Table
Dim cat As New ADOX.Catalog
DbCon.Open()
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=F:\OriginalDB.mdb;"
'cat.ActiveConnection = DbCon
tab = cat.Tables.Item(StrOldName)
tab.Name = StrNewName
tab = Nothing
cat = Nothing
End Sub

上面代码运行到cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=F:\OriginalDB.mdb;"时报错：
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
请问如何解决　？　不想定义ADODC对象。

[解决办法]
没用过,你可以使用oledb 来连接,效果相同,你上面的写法就可以用到oledb但是连接的时候不是activeconnection 是 OleDbConnection
[解决办法]
up
[解决办法]
up
[解决办法]
友情up
[解决办法]
友情up