Rename an Access table in VB 1

[vietnam97]

I'm using DAO in visual basic, and I need to rename an access table MyTable to MyBackup, how would I do it?

Thanks,

Bao

 

[Swi]

Public Sub RenameTable(DataBaseName, InputTableName As String, OutputTableName As String)
Dim DB As Database
Dim TDF As TableDef
Set DB = OpenDatabase(DataBaseName, True, False)
For Each TDF In DB.TableDefs
If UCase$(TDF.Name) = UCase$(InputTableName) Then
TDF.Name = OutputTableName
End If
Next
MsgBox "Done!", vbInformation
End Sub

Private Sub Command1_Click()
RenameTable "C:\db1.mdb", "MyTable", "MyBackup"
End Sub

Swi

 

[vietnam97]

Thanks for the info swi. Now how do I copy one table into the other e.g. MyTable to MyBackup?

Bao

 

[CCLINT]

See the SQL Statement:

SELECT INTO