Visual Basic - problema con OpenSchema

Life is soft - evento anual de software empresarial
   
Vista:

problema con OpenSchema

Publicado por andres hernandez (2 intervenciones) el 24/04/2009 22:52:38
amigos use el codigo qeu me dieron, (aora no recuerdo el nombre creo que fue P3L30N)

Con el método OpenSchema de ADO:

Dim rs As ADODB.Recordset
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until rs.EOF
Combo1.AddItem rs("TABLE_NAME")
rs.MoveNext
Loop

Por supuesto, "cn" es la conexión a la base de datos.

y ahora me da el siguiente error

NO SE HA DEFINIDO EL TIPO DEFINIDO POR EL USUARIO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Juego de coches
- Fecha
- Numeros a letras

Otra forma

Publicado por Yo (8 intervenciones) el 24/04/2009 23:31:28
Mejor prueba esto (que me funciona perfecto en MySQL):

Dim rs As ADODB.Recordset
Set rs = cn.Execute("Show tables")
Do While Not rs.EOF
Combo1.AddItem rs.fields(0)
rs.MoveNext
Loop

Se supone que usas ADO, y que "cn" ya está conectada a la base de datos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Otra forma

Publicado por P3L30N2009 (701 intervenciones) el 25/04/2009 08:53:57
Para Yo:

Efectivamente, eso funciona perfecto con MySQL, pero no con otras bases de datos como Access p.e.Sin embargo el método OpenSchema funciona tanto en Access como MySQL.

Para andres:

El error que te da es porque seguramente no has marcado la referencia a ADO.
Pincha en el menú Proyecto y selecciona "Referencias", busca "Microsoft ActiveX Data Objects 2.8 Library" y la marcas.

Nota: Si no te aparece esa versión (2.8) marca la mas aproximada.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar