Página 1 de 1
Renomear Tabelas asP + MYSQL
#2
Postou 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
Vai a SQL se não for dá um berro
RENAME TABLE `BANCO`.`TABELA_MINUSCO` TO `BANCO`.`TABELA_MAIUSCULO`;
Este post foi editado por sk15: 30/01/2007, 14:18
#3
Postou 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!
#4
Postou 30/01/2007, 16:18
Bem vc pode usas essas SQL's; Mostra todas as tabelas do Banco
Ai ficaria tipo assim (bem simples,se arruma ai a seu jeito):
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)"
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)"
#5
Postou 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!!!
<!-- #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!!!
Página 1 de 1

Entrar
Cadastre-se
Ajuda
Citar