27/04/2004, 19:07
|
 | | | Fecha de Ingreso: octubre-2003 Ubicación: Puerto Montt
Mensajes: 3.667
Antigüedad: 21 años, 4 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. |