[Resolvido] Exibir informações de uma base de dados MySql

[jrcardozo 4]

Pra quem precisa criar um assistente de exportação Sql(tipo phpmyadmin) seque a lógica e os comandos Sqls, lembrando que só peguei algumas informações, quem precisar de mais só usar o google pra achar os comandos Sql do mysql

Testes feitos em MySql 5.1

ASP

<%

'Criado por   :  Jonathan R. Cardozo (jonathandj)

'Data Criação   :  05/2007

'Data Modificação :  22/08/2007

'Finalidade:   :  Exibir dados do banco mysql para exportação em SQL

database = "dbteste"

servername = "localhost"

uerId  = "root"

psw   = "root"

Set openConn = Server.CreateObject("ADODB.Connection")

openConn.Open "Driver={MySQL ODBC 3.51 Driver}; SERVER="&servername&";DATABASE="&database&"; UID="&uerId&"; PWD="&psw&";OPTION=35"

 

set rsTable = openConn.execute("SHOW TABLES IN "&database&";")

if not rsTable.eof then

 set rsTable = openConn.execute("SHOW TABLE STATUS IN "&database&";")

 do while not rsTable.eof

  'exibindo as informações da tabela

  Response.Write("<font style=""padding-right:5px;padding-left:5px;padding-top:5px;border:1px solid #CCCCCC;font:bold 13px arial;"">TABLE NAME: "&rsTable(0)&"</font>" & vbnewline)

  with response

   .Write("<table style=""border:1px solid #CCCCCC;font:12px arial;"" cellpadding=""3"" cellspacing=""3"" width=""100%"">" & vbnewline)

   .Write("<tr bgcolor=""#CCCCCC"">" & vbnewline)

   .Write("<td align=""center"">Type</td>" & vbnewline)

   .Write("<td align=""center"">Row format</td>" & vbnewline)

   .Write("<td align=""center"">Rows</td>" & vbnewline)

   .Write("<td align=""center"">Avg row length</td>" & vbnewline)

   .Write("<td align=""center"">Data length</td>" & vbnewline)

   .Write("<td align=""center"">Max data length</td>" & vbnewline)

   .Write("<td align=""center"">Index length</td>" & vbnewline)

   .Write("<td align=""center"">Data free</td>" & vbnewline)

   .Write("<td align=""center"">Auto increment</td>" & vbnewline)

   .Write("<td align=""center"">Create time</td>" & vbnewline)

   .Write("<td align=""center"">Update time</td>" & vbnewline)

   .Write("<td align=""center"">?</td>" & vbnewline)

   .Write("<td align=""center"">Collation</td>" & vbnewline)

   .Write("<td align=""center"">Checksum</td>" & vbnewline)

   .Write("<td align=""center"">Check time</td>" & vbnewline)

   .Write("<td align=""center"">Create options</td>" & vbnewline)

   .Write("</tr>" & vbnewline)

   .Write("<tr bgcolor=""#FFFFFF"">" & vbnewline)

   for i = 2 to 17  

        .Write("<td bgcolor=""#F2F2F2""> "&rsTable(i)&"</td>" & vbnewline)

   next 

   .Write("</tr>" & vbnewline)

  end with

  with response

   .Write("</tr>" & vbnewline)

   .Write("</table>" & vbnewline)

  end with

 

  'exibindo as informações das colunas

  set rsColummn = openConn.execute("SHOW FULL COLUMNS IN "&rsTable(0)&";")

  if not rsColummn.eof then

   with response

        .Write("<table style=""border:1px solid #CCCCCC;font:12px arial;"" cellpadding=""3"" cellspacing=""3"" width=""100%"">" & vbnewline)

        .Write("<tr bgcolor=""#CCCCCC"">" & vbnewline)

        .Write("<td width=""35%"" align=""center"">Column Name</td>" & vbnewline)

        .Write("<td width=""20%"" align=""center"">Data Type</td>" & vbnewline)

        .Write("<td width=""5%"" align=""center"">Collation</td>" & vbnewline)

        .Write("<td width=""5%"" align=""center"">Null</td>" & vbnewline)

        .Write("<td width=""5%"" align=""center"">Key</td>" & vbnewline)

        .Write("<td width=""20%"" align=""center"">Default Value</td>" & vbnewline)

        .Write("<td width=""15%"" align=""center"">Auto Inc.</td>" & vbnewline)

        .Write("<td width=""15%"" align=""center"">Extra</td>" & vbnewline)

        .Write("</tr>" & vbnewline)

   end with

   colorLine = "#F2F2F2"

   do while not rsColummn.eof

        if colorLine = "#FFFFFF" then

         colorLine = "#F2F2F2"

        else

         colorLine = "#FFFFFF"

        end if   

        with response

         .Write("<tr>" & vbnewline)

         for j = 0 to 7

          .Write("<td bgcolor="""&colorLine&"""> "&rsColummn(j)&"</td>" & vbnewline)

         next

         .Write("</tr>" & vbnewline)

        end with         

        rsColummn.movenext     

   loop

   with response

        .Write("</tr>" & vbnewline)

        .Write("</table>" & vbnewline)

   end with

  end if

  rsColummn.close

  set rsColummn = nothing  

 rsTable.movenext

 Response.Write("<br>" & vbnewline)

 Response.Write("<br>" & vbnewline)

 loop

end if

rsTable.close

set rsTable = nothing

openConn.close

set openConn = nothing

%>

Favor manter meu nome nos créditos