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

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com