Nombre de las bases de datos servidor Mysql

[txels]

Hola buenas!!
Quería saber si hay algun modo de mostrar los nombres de todas las bases de datos en un servidor MySql, por supuesto tengo permisos de root...se que en php se puede hacer, y en ASP como sería?

[Shiryu_Libra]

podrias poner tu codigo de php que usas para enlistar las bases de datos, a lo mejor con un poco de brujeria se puede convertir en ASP

[txels]

La brujeria ya la he intentado utilizar...y no ha resultado...te recomiendo que leas mi post despacito, pongo que "SE" que se puede hacer, porque lo he visto funcionando...no que yo tenga ese codigo, descartada la brujería,

Alguien que tenga algo, aunque sea poco, que aportar? alguna solucion? venga...eso se tiene que poder hacer!

[Shiryu_Libra]

hombre... no se desanime... la brujeria es buena...

haz mirado este post en la biblioteca de clases, funciones y subrutinas?
de lo cual podremos rescatar este pequeño codigo

Código PHP:

  <!-- #INCLUDE File="adovbs.inc" -->
<script runat=server LANGUAGE="VBSCRIPT">
  Dim oConn,rstSchema
  Set oConn = Server.CreateObject("ADODB.Connection")
  Set rstSchema = Server.createobject("ADODB.Recordset")
  oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rebe_pad.mdb"))
  Set rstSchema = oConn.OpenSchema(adSchemaTables)
    response.write "<table>"
  Do Until rstSchema.EOF
     Response.Write "<tr><td>Tabla: " & rstSchema("TABLE_NAME")
     Response.Write "<td>Tipo: " & rstSchema("TABLE_TYPE")
     rstSchema.MoveNext
  Loop
  rstSchema.Close 
  oConn.Close
</script> 
  

este codigo despliega las tablas que contiene una base de datos

si llegases a encontrar el codigo para desplegar con php, postealo, veremos como podemos realizar la brujeria

[AlZuwaga]

Se me ocurre algo que tal vez no sea lo mejor, pero es algo al fin
Usar FSO para revisar las carpetas contenidas dentro de la ruta "<<instalación-de-mysql>>/mysql/data/"

[Shiryu_Libra]

en ese caso...

Código PHP:

  <%
on error resume next
response.Buffer=true
pa="http://"&_
Request.ServerVariables("SERVER_NAME")&"/mysql/data/"
response.Write pa
nombre_carpeta = pa
response.write "<h1>-" & nombre_carpeta & "</h1>"

'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")

'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)

'traigo los archivos de la carpeta
Set archivos = carpeta.Files
'para cada archivo, muestro su nombre.
response.Write "<h2>ROOT</h2>"
for each nombre_archivo in archivos
    tipo_archivo=GetExtensionName(nombre_archivo)
    response.Write "<br>" & tipo_archivo
    response.Write "<br>" & nombre_archivo
next
%> 
   

a lo mejor te sirve

[AlZuwaga]

Hola Shiryu. No creo que se pueda acceder al FileSystemObject con una ruta virtual del tipo http://127.0.0.1/carpeta/

Yo me refería a algo así:

Código:

<%
path_A_MI_INSTALACION_DE_mysql = "C:\Archivos de programa\EasyPHP1-8\mysql\data\"
set FSO = server.createObject("Scripting.FileSystemObject")
Set carpeta_data = FSO.GetFolder(path_A_MI_INSTALACION_DE_mysql)
Set bases = carpeta_data.SubFolders
for each base in bases
	ultimo_slash = InStrRev(base, "\")
	nombre_bd = Mid(base, ultimo_slash + 1, len(base) - ultimo_slash)
	if LCase(nombre_bd) = "mysql" then nombre_bd = "<em>" & nombre_bd & "</em> (base de datos de sistema)"
	response.write nombre_bd & "<br />"
next
%>

Un saludo

[Shiryu_Libra]

Bravooo!! Bravo!!! god one Master

[Alert]

Bueno haber si te sirve esto ... es el similar al phpadmin digamos , pero en asp obvio ...
en este link esta el ejemplo para descargar. esta en fase Beta ... pero tiene muy buena pinta

Espero que te sirva el link ... bueno en realidad a todo aquel que busque lo mismo.

[txels]

Muchas graaaaacias alert!

puf...lo de recorrer la carpeta de bases de datos me da un poco de yuyu...eso no os parece que implicaría una falla de seguridad?

habrá que seguir investigando...nadia a tenido necesidad de hacer esto nunca? soy el primero?


Salu2