怎样用VBA代码把重命名ACCESS数据库中的数据表？

kankandi · 发表于 2024-7-9 16:58

如题所示，怎样用VBA代码把重命名ACCESS数据库中的数据表？谢谢各位大佬解答！

剑指E · 发表于 2024-7-9 17:23

操作环境？

kankandi · 发表于 2024-7-9 19:18

剑指E 发表于 2024-7-9 17:23
操作环境？

在excel中用VBA重命名ACCESS数据库中的数据表

剑指E · 发表于 2024-7-9 21:15

kankandi 发表于 2024-7-9 19:18
在excel中用VBA重命名ACCESS数据库中的数据表

需要数据库实例文件

xjl565135022 · 发表于 2024-9-3 17:08

Sub test()
Dim CN As New ADODB.Connection '定义数据链接对象，保存连接数据库信息；请先添加ADO引用
Dim RS As New ADODB.Recordset '定义记录集对象，保存数据表
strCn = "Provider=sqloledb;Server=数据库地址;;provider=SQLOLEDB.1;Database=数据库名;Uid=帐号;Pwd=密码;" '定义数据库链接字符串
ActiveSheet.Cells.ClearContents
StrSQL = "EXEC sp_rename '旧表名','新表名'"
CN.Open strCn '连接数据库
RS.Open StrSQL, CN, 1, 3
End Sub

		自动登录	找回密码
密码			免费注册