sdemingo Help

Adrian
07 de Mayo del 2004
hola
me diste este codigo para conecar una base de datos y funciona bien,,
Private Sub Form_Load()

Dim oConexion As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ruta As String
Dim strSql As String


ruta = "c:porteria1porteria.mdb"

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open ruta

pero la cosa es que necesito que me sirva para todos los formularios y no se como hacerle, eh intentado ponerle public al oConexion pero no funciona.
gracias de antemano por la ayuda

mena
07 de Mayo del 2004
hola, bueno no soy SDEEMINGO pero creo que te puedo ayudar. Existen dos formas de resolver tu pregunta
1: Agrega un Modulo a tu proyecto, y en el declara la variable alli como publica. (para agregarlo en el menu proyecto, insertar modulo) UN MODULO PERO NO UN MODULO DE CLASE SON DIFERENTES.
2: Es que la declares publica en el formulario que tienes pero declarala hasta arriva en la primera linea de codigo no dentro de una funcion. Y despues desde otro formulario accedes a ella asi:
FormularioOrigina.OConexion.open

espero te sirva bye

Adrian
07 de Mayo del 2004
hola mena, gracias por responder pero aun tengo mas preguntillas, la verdad es que ya la declare en un modulo pero no me resulto y no quisiera abrir mi base de datos cada vez que entro a un formulario porque me da error, me podrias dar un ejemplito de lo que me comentastee??
gracias

P.D. no tardes en responder estoy estancADO

Orlando
07 de Mayo del 2004
En el formulario de tu Menu Principal, puedes poner
el código de apertura de la conexion a la BD en el
evento :

Private Sub frmPrincipal_Initialize()
...abres la BD
end sub

Este evento solo se ejecuta una vez , cuando entras al programa.

Saludos.

Adrian
07 de Mayo del 2004
muchas muchisisismas gracias mena y orlando ya funciona :-)