<<< 返回 access911.net 编程静态资料库索引页

新手来看:如何更改(修改/重命名)表/窗体/报表...得名字

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-8-22  浏览人次:2651


专题地址:http://access911.net/fixhtm/78FAB51E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:新手来看:如何更改(修改/重命名)表/窗体/报表...得名字《其他》

 


问题:

如何更改表或者其他数据库对象得名字

 


方法一:


更改表名,调用 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
.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/78FAB51E11DC.htm

 


上一篇:新手来看:ole db和odbc数据提供者有什么不同?

下一篇:用VB编了一个应用程序,帮助文件如何调用

2017年2月22日生成静态资料