如何使用sql语言更改表名

[QQRN]

请写详细点……
谢谢

[husnp]

SQL好象没有这样的语句，你可用SQL复制表，再把原表删除。

[QQRN]

不会吧……天呀……

[qhzxcz]

Private Sub Command1_Click()
'需引用Microsoft ADO Ext. 2.6 (ADOX)及ADODB
Dim objConnection As New ADODB.Connection
Dim objCatalog As New ADOX.Catalog
Dim objTable As New ADOX.Table

objConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
objConnection.Open "C:\My Documents\db1.mdb"

Set objCatalog.ActiveConnection = objConnection
Set objTable = objCatalog.Tables("table1")

'改表名
objTable.Name = "cz"
'改字段名
objTable.Columns("Name").Name = "Name1"

objConnection.Close
Set objConnection = Nothing

MsgBox "OK!"
End Sub

[qhzxcz]

不过不是sql语句.

[szyino]

Dim DataBase As DataBase
Set DataBase = OpenDatabase("database.mdb")
'删除表
DataBase.TableDefs.Delete "tablename"
'改表名
DataBase.TableDefs("oldname").Name = "newname"

或者

Public SqlCommand As New ADODB.Command '定义 SQL 命令
SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
SqlCommand.CommandText = "drop table "
SqlCommand.Execute

[QQRN]

to szyino(医诺尔)
我是用ADODB的，你写的

Public SqlCommand As New ADODB.Command '定义 SQL 命令
SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
SqlCommand.CommandText = "drop table "
SqlCommand.Execute


是改表名么？？？

[luchunhua]

用sql语句建立一个表（这个表的表名是你想要修改后的表名，字段与原来的一样）然后从原来的那个表导入数据（用insert）,最后再删除原来的那个表！

[QQRN]

谢谢大家，我换了其他方法了……散分……