Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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