USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Renomeando uma tabela usando ADO
Postada em 13/7/2001 por K@ÐØ ®      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página