Consulta base de datos access

[Dj_Dans]

Bueno Panas, como nadie nace sabiendo trataré de explicar a continuación:



1.- En tu proyecto crea un módulo, en cual deberás colocar lo siguiente:



__________________________________________________ ____________

''''Conexión Para Access '97



Public NomBase, StrConexion
Public DB As DAO.Database


Sub Main()
NomBase = App.Path & "\db2000.mdb"

Set DB = OpenDatabase(NomBase)
StrConexion = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & NomBase & ";" & _
"Persist Security Info=False"

entrar.Show
End Sub




Explicación :

* db2000.mdb: Nombre De La Base De Datos

* Provider=Microsoft.Jet.OLEDB.3.51; -> Es el Provider que ocupas para Access'97

* NomBase: Es La Ubicación De La Base De Datos
* entrar.show : Es el formulario con el que se desea partir el programa (en este caso mi formulario se llamaba entrar)


__________________________________________________ ___________

''''Conexión Para Access '2000 En Adelante






Public NomBase, StrConexion
Public DB As DAO.Database


Sub Main()
NomBase = App.Path & "\db2000.mdb"

Set DB = OpenDatabase(NomBase)
StrConexion = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & NomBase & ";" & _
"Persist Security Info=False"

entrar.Show
End Sub




Explicación :

* db2000.mdb: Nombre De La Base De Datos

* Provider=Microsoft.Jet.OLEDB.4.0; -> Es el Provider que ocupas para Access 2000 En Adelante

* NomBase: Es La Ubicación De La Base De Datos


__________________________________________________ _______________


2.- Un vez realizado el paso anterior debes irte a Proyecto/Propiedades del Proyecto, luego aparecerán varias pestañas, posecionarse en General, luego en Objeto inicial seleccionar Sub Main

3.- La Conexión está lista para ser usada desde cualquier formulario, pues en el módulo queda como pública, por lo que no tendrás que colocar y abrir innecesariamente la conexión en los distintos formularios, solo debes llamarla.







Espero Le Sirva A Alguien.




Salu2.