Hola Primero te recomendaria el trabajar con con programacion ADO y no con el OBJETO ADODC ya que como se entiende usas un objeto incrustable y le das las propiedades por una ventana en cambio en la programacion ADO todo lo creas
por comandos
Y tambien te recomiendo usar los MODULOS y variables publicas
ejm:
Código:
Public Base As String
Sub Main()
Base = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\Cliente-cuatroSist. YauliyacuControl Mina.mdb;Persist Security Info=False"
'Base = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;password=USE635NB9N;Initial Catalog=dbPRUEBAS;Data Source=PC-SQL2"
FrmAcceso.Show
End Sub
Te envio un codigo chiquito para usar programacion ADO
todo esto en un modulo y siempre deberias de inicializar un main
Código:
Public Const strConex = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;password=USE635NB9N;Initial Catalog=dbPRUEBAS;Data Source=PC-SQL2"
Sub Main()
FrmAcceso.Show
End Sub
Function fDevolverRS(ByVal xSQL As String) As ADODB.Recordset
Dim RsAux As New ADODB.Recordset
Dim Conex As New ADODB.Connection
Conex.Open strConex
RsAux.Open xSQL, Conex, adOpenStatic
Set fDevolverRS = RsAux
Exit Function
End Function
ahora para utilizar y abrir tus recordset lo haces asi, debes de saber en donde seria el mejor momento para aperturar un recordset normalmente se hace en el load de un form
para llamar
Código:
Dim RsUsuarios As New ADODB.Recordset
Set RsUsuarios = fDevolverRS("select * from usuarios")
Dim RsPersonal As New ADODB.Recordset
Set RsPersonal = fDevolverRS("select * from Personal where tipo='Administrador'")
-
[email protected]
Cualquier duda aqui esta mi correo
[email protected] Lima-Peru