【Access开发】批量修改多个数据库字段名

HI，大家好呀！

又到了一周一更新的时间了，最近我们这里的天气就是过山车，今天穿棉袄，明天就短袖，这忽高忽低的温度真刺激！

那给大家讲点啥呢？我们直接动手来开发吧！

开始之前，先给我一键三连吧！谢谢大家啦！

01

创建窗体

我们先来创建一个窗体，放上一些控件，具体的属性如下：

具体的摆放如下图，中间大的那个是列表框，列表框的多重选择要改成“简单”

02

添加代码

接下去，我们就可以来添加代码了，代码有点多，但还是比较基础的。

Private Sub btnBrowse_Click()
Me.txtFile = OpenFile(False)
Me.List_Name.RowSourceType = "Value List"
Me.List_Name.RowSource = FilePath(Me.txtFile, "")
End Sub

Private Sub btnOK_Click()
Dim db As Object 'DAO.Database
Dim tdf As Object ' DAO.TableDef
Dim varItem As Variant
If IsNull(Me.txtNew) Then
MsgBox "新字段名不能为空，请输入修改后名称。", vbExclamation
Me.txtNew.SetFocus
Exit Sub
End If
If IsNull(Me.txtOld) Then
MsgBox "原字段名不能为空，请输入修改前名称。", vbExclamation
Me.txtOld.SetFocus
Exit Sub
End If
For Each varItem In Me.List_Name.ItemsSelected
Set db = DBEngine(0).OpenDatabase(Me.txtFile & "\" & Me.List_Name.Column(0, varItem))
'这里写的是固定的表，也可以修改成动态的
Set tdf = db.TableDefs("T_Test")
tdf.Fields(Me.txtOld).name = Me.txtNew

Next
MsgBox "修改成功。", vbInformation
End Sub

'打开文件或文件夹的函数
Function OpenFile(TF As Boolean) As String
Dim dlgOpen As FileDialog
Dim i As Long, j As Long
'通过文件对话框获取文件或文件夹
If TF = True Then
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
Else
Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
End If
With dlgOpen
If Not .show Then Exit Function
End With
'返回选择的第一个文件或文件夹
OpenFile = dlgOpen.SelectedItems(1)
Set dlgOpen = Nothing
End Function
'获取指定文件中数据库文件的列表
Function FilePath(MyPath As String, Myname As String) As String
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myfile As File
Dim str As String
'获取文件夹
Set myFolder = myFSO.GetFolder(MyPath)
'判断文件夹是否存在
If myFSO.FolderExists(myFolder) = True Then
str = ""
'存在则返回数据库(.accdb)文件列表
For Each myfile In myFolder.Files
' Debug.Print myfile.Name
If right(myfile.name, 5) = "accdb" Or right(myfile.name, 3) = "mdb" Then
If myfile.name <> Myname Then
str = str & myfile.name & ";"
End If
End If
Next myfile
FilePath = str
Else
'文件夹不存在则返回空值，并弹出提示对话框
MsgBox "文件夹不存在"
FilePath = ""
End If
End Function

03

运行测试

最后，当然还是测试了，我们来看看效果。

注意，这里的测试数据库，我都建立了相同的表，且字段名也是一样的，这样才可以批量修改，这里我们把字段名F1改成test1。

大家快去测试一下吧！

#access##vba##excel##office#