problema con una conexi贸n ADO
Carles Quintana
23 de Mayo del 2003
Voy a explicaros un problema que tengo. Resulta que he preparado con el DataEnvironment una conexi贸n a trav茅s de ODBC con un fichero de access. Este se crea durante la primera ejecuci贸n del programa, lo que quiere decir que no existe al iniciar la aplicaci贸n.
El c贸digo del programa es el siguiente:
......
Private Sub Form_Load()
'Mirar si existe base de datos para crearla
If ModBddCrear.FileExists(App.Path & "FicherosAWB.mdb") = False Then
ModBddCrear.CreateDir (App.Path & "FICHEROS")
ModBddCrear.createBDD ("AWB.MDB")
End If
AccesoBdd.conexion1.Open
.....
Como podeis ver, la primera vez que se ejecuta el programa, al llegar a este punto, el programa peta. Mi jefe no acepta la soluci贸n de crear el fichero, cerrar el programa y volverlo a abrir. As铆 que he de buscar una alternativa.
Lo 煤nico que se me ocurre es crear la conexi贸n manualmente. Pero esto obligar铆a a hacer el cambio en muchas partes del programa. As铆 que os escribo para preguntaros si se os ocurre alguna otra forma, tal vez refrescar la conexi贸n.
En fin, lo dejo en vuestros manos. Confio que se os ocurra algo.
Atentamente,
Carles Quintana
El c贸digo del programa es el siguiente:
......
Private Sub Form_Load()
'Mirar si existe base de datos para crearla
If ModBddCrear.FileExists(App.Path & "FicherosAWB.mdb") = False Then
ModBddCrear.CreateDir (App.Path & "FICHEROS")
ModBddCrear.createBDD ("AWB.MDB")
End If
AccesoBdd.conexion1.Open
.....
Como podeis ver, la primera vez que se ejecuta el programa, al llegar a este punto, el programa peta. Mi jefe no acepta la soluci贸n de crear el fichero, cerrar el programa y volverlo a abrir. As铆 que he de buscar una alternativa.
Lo 煤nico que se me ocurre es crear la conexi贸n manualmente. Pero esto obligar铆a a hacer el cambio en muchas partes del programa. As铆 que os escribo para preguntaros si se os ocurre alguna otra forma, tal vez refrescar la conexi贸n.
En fin, lo dejo en vuestros manos. Confio que se os ocurra algo.
Atentamente,
Carles Quintana