modulo de conexión a base de datos

gabriel
07 de Octubre del 2008
Necesito crear un modulo el cual contenga una conexión a una base de datos, al cual se pueda acceder desde cualquier formulario de mi programa he intentado de la siguiente forma:

Public Function abrir()
On Error GoTo licen
Set CNN = New ADODB.Connection
CNN.Open ("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=principal1.mdb")
Exit Function
licen:
End Function

Pero solo me funciona si esta dentro del formulario activo, si creo un modulo me marca un error
"Error 3709 No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es valida en este contexto"

Alguien ha creado un modulo como este, pueden ayudarme, llevo tiempo con esto...

S@ludos

csdk
07 de Octubre del 2008
Public ADOCONN As New ADODB.Connection 'CONEXION*************variable
Public Function conex()
ADOCONN.ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=SISVA;Data Source=HIGHLIFE"'cadena deconexionen tu caso pon la tuya
ADOCONN.Open
End Function
funcion cerrar
Public Function desconectar()
ADOCONN.Close
End Function
y un ejemplo
Call conex
RST_EMPLEADO.Source = "INSERT INTO TB_EMPLEADO VALUES(" & Txt_CvlEmpleado.Text & ",'" & Txt_Nombre.Text & "'," & CVL_N & ",'" & Cbo_Sexo.Text & "','" & Cbo_Puesto.Text & "'," & CVL_S & ",'" & Txt_Rfc.Text & "','" & Txt_Curp.Text & "')"
RST_EMPLEADO.ActiveConnection = ADOCONN
MsgBox "REGISTRO ALMACENADO", vbExclamation
RST_EMPLEADO.Open
desconectar

gabriel
07 de Octubre del 2008
Gracias csdk era lo que necesitaba.....