用ADO怎样把access中的表改名？

[7kxa]

不需要把表复制一份再删除源表吧？

[viena]

需要

[hnhl]

select * into 你想改的表名 from 源表名
drop 源表名

[neo40]

没研究过，但给你一个得到表名的例子吧

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mydbname.mdb;"
cnn1.Open strCnn
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
Debug.Print "Table name: " & rstSchema!TABLE_NAME & vbCr & "Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close

[amongwang]

'生成一个与表OldName完全相同的新表NewName
select * into NewName from OldName
'删除原表
drop Table OldName

以上方法可以实现表名的更改