|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Renomeando uma tabela usando ADO
|
 |
|
|
|
Postada em 13/7/2001 por K@ÐØ ®
ricardolerma@uol.com.br
Dim DB As New ADODB.Connection, CT As New ADOX.Catalog, Conta As Integer
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;Mode=Read|Write;Persist Security Info=False"
DB.CursorLocation = adUseClient
DB.Open
Set CT.ActiveConnection = DB
For Conta = 0 To CT.Tables.Count - 1
If CT.Tables(Conta).Name = "NomeAtual" Then
CT.Tables(Conta).Name = "NovoNome"
End If
Next
DB.Close
|
|
|
|
|
