<<< 返回 access911.net 编程静态资料库索引页 新手来看：如何更改(修改/重命名)表/窗体/报表...得名字 作者：cg1 摘自：access911.net 录入：cg1 时间：2003-8-22 浏览人次：721
专题地址：http://access911.net/index.asp?u1=a&u2=78FAB51E11DC 如果需要更详细的评论或说明，请点击该地址。 简述：新手来看：如何更改(修改/重命名)表/窗体/报表...得名字《其他》
问题：
方法一：
|
更改表名，调用 ADOX 即可 (测试环境为ADOX2.7)
Function Test()
Debug.Print renameTableName("b", "cxcd")
End Function
Function renameTableName(strOldName As String, strNewName As String) As Boolean
On Error Resume Next
Dim tbl As ADOX.Table
Dim cat As New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection
'上面这句中 CurrentProject.Connection 在VB中要更改为已经open的connection对象
For Each tbl In cat.Tables
If tbl.Name = strOldName Then tbl.Name = strNewName
Next
If Err.number <> 0 Then
.....................
........... |
|
| 
