Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/04/2004, 19:07
Avatar de claudiovega
claudiovega
 
Fecha de Ingreso: octubre-2003
Ubicación: Puerto Montt
Mensajes: 3.667
Antigüedad: 21 años, 3 meses
Puntos: 11
puedes hacer esto (usando ADO):

dim strSql as string
dim rsMysql as new adodb.recordset

rsMysql.open "show databases;", conexion
while not rsMysql.eof
cboBases.additem rsMysql.fields("BD")
rsMysql.movenext
wend

creo que el campo que tiene el nombre se llama BD, aunque podrias sacarlo por su indice, que es cero:

cboBases.additem rsMysql.fields(0)
__________________
Dedicado a proyectos web, actualmente desarrollando un sistema de diseño de flyers online muy fácil de usar.