chequear si existe la base de datos?

[Cuasar]

Hola HaDeS
recurro otra ves a tu ayuda, paso que me vi obligado a formatear la pc,
cuando termino de instalar, instalo el visual. y vuelvo a abrir mi proyecto.
pero ahora resulta que no genera la base de datos me tira error 424 se requiere un objeto.

el codigo es este

Set db = DBEngine.crearbase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)

antes la creaba bien el mayor de los problemas fue que solo guarde el modulo y perdi los formularios que ya tenia. y este es un proyecto nuevo al que agrego este modulo
por lo que creo que puede estar faltandome algun componete o algo que no puedo darme cuenta que es.
espero puedas ayudarme
salu2

[HaDeS, -]

Weno, aún no se muy bien de que se trata, pero mira, depronto puede ser esto.
Al inicio del form escribe:

Código (vb) [Seleccionar] Expandir


Dim db as DataBase


O quizas añadiste un componente que desconozco, o una posible referencia a un conjunto de librerias de conexiones de bases de datos.
intenta añadir una referencia en: Proyecto -> Referencias -> Buscas Microsoft Activex Data Objects 2.# library

Si no te sale, mandame un pm donde me digas donde me puedo descargar el proyecto, y viendolo yo mismo, depronto lo puedo arreglar

Saludos

[Cuasar]

Aca te dejo un linck para que lo bajes.
salu2 y gracias

_{<a href= "http://scrngs.no-ip.info/Pryecto.rar">Bajalo</a>}

[HaDeS, -]

No se ha encontrado la ruta ...\Module1.bas XD, me parece que te ha faltado agregar ese módulo al proyecto...
Cuando lo subas de nuevo, me mandas un mp.
Saludos

[HaDeS, -]

Bueno , mira, agrega como referencia "Microsoft DAO 3.51 Object Library", o la versión que tengas de esa misma librería.
Luego antes de donde te sale el error:

Código (vb) [Seleccionar] Expandir


Set db = DBEngine.crearbase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)

agregas este código:

Código (vb) [Seleccionar] Expandir


Dim db as DAO.DataBase


Y corregis esto en tú código:

Código (vb) [Seleccionar] Expandir


Set db = DBEngine.crearbase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)

'por

Set db = DBEngine.CreateDatabase(App.Path & "/" & "nueva" & ".mdb", dbLangGeneral)


Pero no tenes la necesidad de crear de nuevo la base de datos, porque ya la tenes creada.
Saludos y bueno espero que te sirva.

[Cuasar]

Si ya pude hacerlo era eso nomas, muchisimas gracias HaDeS, -
esa base que estaba en lo que bajaste la hice a mano solo para ver si funcionaba la busqueda de archivos y la divicion del nombre. solo faltaba la referencia ya con eso funciono.
mil gracias
salu2