Jump to content



Photo

Renomear Tabelas


  • Please log in to reply
4 replies to this topic

#1 _zEek_

_zEek_

    12 Horas

  • Usuários
  • 140 posts
  • Sexo:Não informado
  • Localidade:MS

Posted 30/01/2007, 13:30

Preciso renomear varias tabelas de minusculo para maiusculo.. urgente algeum tem algum script???
  • 0

#2 sk15

sk15

    Super Veterano

  • Usuários
  • 2071 posts
  • Sexo:Masculino
  • Localidade:SP - SP

Posted 30/01/2007, 14:18

Mas assim vc quer um Script que faça isso ou o código SQL que renomeia as tabelas??
Vai a SQL se não for dá um berro :)

RENAME TABLE `BANCO`.`TABELA_MINUSCO` TO `BANCO`.`TABELA_MAIUSCULO`;

Edited by sk15, 30/01/2007, 14:18.

  • 0

#3 _zEek_

_zEek_

    12 Horas

  • Usuários
  • 140 posts
  • Sexo:Não informado
  • Localidade:MS

Posted 30/01/2007, 14:52

é o seguinte, o governo mandou um script da previdencia municipal, o script ta todo com tabelas maiusculas, e o banco de dados ta todo com tabelas minusculas. e o mysql é sensitive. entao fica + fácil renomear as tabelas do que o script! entede?? queria fazer isso como se fosse um processo em lote. é muita tabela!
  • 0

#4 sk15

sk15

    Super Veterano

  • Usuários
  • 2071 posts
  • Sexo:Masculino
  • Localidade:SP - SP

Posted 30/01/2007, 16:18

Bem vc pode usas essas SQL's; Mostra todas as tabelas do Banco
SHOW TABLES

Ai ficaria tipo assim (bem simples,se arruma ai a seu jeito):

<%
' Conexões ..
banco = "meu_banco"

Set Tables = Conexao.Execute("SHOW TABLES")
While Not Tables.EOF

 LowName = LCase(Tables("Table"))
 
 Set Exe = Conexao.Execute("RENAME TABLE `" & banco & "`.`" & Tables("Table") & "` TO `" & banco & "`.`" & LowName & "`;")
 Set Exe = Nothing
  
 Tables.MoveNext
Wend

Response.Write "OK :)"
%>

Tipo assim, o "Tables("Valor")" precisa ser testado por que eu não sei o que ele retorna-ra, nunca fiz isso com ASP so com PHP e PHP em geral se usa o Array numeral tipo "Tables(0)"
  • 0

#5 _zEek_

_zEek_

    12 Horas

  • Usuários
  • 140 posts
  • Sexo:Não informado
  • Localidade:MS

Posted 30/01/2007, 20:51

Consegui Resolver Assim!!

<!-- #include virtual=/SSI/SSIconexao.asp -->

<%
response.buffer = false

Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = vgoConexao

banco = "previsca41_1"

for i = 0 to cat.tables.count - 1
LowName = uCase(cat.tables(i).name)
Set Exe = vgoConexao.Execute("RENAME TABLE `" & banco & "`.`" & cat.tables(i).name & "` TO `" & banco & "`.`" & LowName & "`;")
response.write "Tabela: " & cat.tables(i).name & "<br>"
Next
%>

Abraço!!!
  • 0




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq