发布网友
共3个回答
懂视网
VBA修改ACCESS表名
Private Sub changetabname_Click() Dim tbl As TableDef Dim dbs As Database Dim nbl As String Dim obl As String nbl = "Newtable" Set dbs = CurrentDb For Each tbl In dbs.TableDefs obl = tbl.Name If obl = "Table1" Then tbl.Name = nbl MsgBox "修改成功", vbInformation, "提示" End If Next End Sub
VBA修改ACCESS表名
标签:base sub inf tab ati led highlight mat 表名
热心网友
'修改表名要引用.Microsoft ADO Ext. 2.X for DDL and Security
Private Sub Command1_Click()
Dim db As New ADODB.Connection
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\database.mdb"
db.Open
RenameTableName db, "oldTableName", "newTableName"
End Sub
'RenameTableName的返回值-1表示出错.
' 0表示没有存在要修改的表.
'1 表示成功
Public Function RenameTableName(DatabseConnectionObject As ADODB.Connection, strOldName As String, strNewName As String) As Integer
On Error GoTo acd
Dim tbl As ADOX.Table, cat As New ADOX.Catalog
Set cat.ActiveConnection = DatabseConnectionObject '设置目录的链接
RenameTableName = 0
For Each tbl In cat.Tables
If LCase(tbl.Name) = LCase(strOldName) Then
tbl.Name = strNewName '重命名表的名称
RenameTableName = 1
End If
Next
Exit Function
acd:
RenameTableName = -1
End Function
参考资料:http://topic.csdn.net/t/20060109/12/45058.html
热心网友
用alert关键字