在VB中如何修改access数据库的表名?

发布网友

我来回答

共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关键字