modulo de conecxi贸n de base de datos
gabriel
20 de Febrero del 2006
Hol@ a todos, mi problema es necesito crear un modulo o funci贸n para simplificar la conexi贸n a una base de datos, esdecir que cualquier formulario pueda acceder a la conexi贸n contenida en ese modulo, cree la sifuiente funcion
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 cuando un programa trata de acceder a la base de datos marca un error, alguien de ustedes sabe como puedo crear un modulo que permita acceder a la conecxi贸n desde cualquier formulario.
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 cuando un programa trata de acceder a la base de datos marca un error, alguien de ustedes sabe como puedo crear un modulo que permita acceder a la conecxi贸n desde cualquier formulario.
csdk
20 de Febrero del 2006
Public Function conex()
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=INCENTIVOS;Data Source=HIGHLIFE"
ADOCONN.Open
End Function
Public Function desconectar()
ADOCONN.Close
End Function
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=INCENTIVOS;Data Source=HIGHLIFE"
ADOCONN.Open
End Function
Public Function desconectar()
ADOCONN.Close
End Function