Programación General > Bases de Datos

 Aclaracion, DBCombo

<< < (2/2)

judamo:

--- Cita de: "cpmario" ---Te adjunto un pequeño proyecto para que te orientes como manejar el DBCombo.
Revisa las referencias y los controles. Debes de tener instalado el Service Pack 6 del Visual Basic para que puedas manejar las base de datos Access 2000.

 :comp:
--- Fin de la cita ---

Antedoto le agradesco que se pasara por ese lado, me hace sido muy util su ejemplo, ahora el proyecto puede continuar  :) .

gracias cpmario

Otra pregunta estas lineas que Hacen


--- Código: Text --- On Error Resume NextChDrive CurDir(App.Path) ChDir App.Path 

cpmario:
Te explico.
Si te fijas en el control data en la propiedad DatabaseName, solo tiene el nombre del archivo de la base de datos (Movies.mdb) no tiene todo el Path de donde encontrar la base de datos. Si tu colocas el proyecto en cualquier fólder, al ejecutar el programa, este encuentra la base de datos. Pero si escribieras el path completo tendrías que estarlo cambiando de acuerdo al fólder donde se encuentra la base de datos.

 
--- Código: Text ---On Error Resume NextChDrive CurDir(App.Path)ChDir App.Path 
La primera línea es para cuando se genera un error si el programa se desea manejar en una red. Cuando el programa se maneja a través de una red una de las líneas que le sigue genera un error.
Las otras 2 líneas le dicen al programa que el directorio de trabajo es donde se encuentra el proyecto o el ejecutable.
Cuando el control data busca la base de datos en este caso Movies.mdb, la busca en el directorio de trabajo del programa.
Lo anterior permite que el programa junto con la base de datos pueda colocarse en cualquier fólder y siga funcionando.

Se puede hacer también colocando lo siguiente en Form_Load.

--- Código: Text ---Private Sub Form_Load()    Dim strAppPath As String    strAppPath = App.Path & IIf(Right$(App.Path, 1) <> "", "", "")    Data1.DatabaseName = strAppPath & "Movies.mdb"End Sub  :comp:

m0skit0:
Para ser más concretos y correctos  :P


--- Código: Text ---On Error Resume Next 
Significa que en caso de error que no haga caso y siga con la siguiente instrucción. El alcance de esta sentencia es local.

Buen trabajo, cpmario  :good: !!

Navegación

[0] Índice de Mensajes

[*] Página Anterior