| Pregunta: | 24108 - ABRIR CONSULTA ALMACENADA CON PARAMETROS Y ADO |
| Autor: | Christian |
| Tengo un gran inconveniente al querer ejecutar esta consulta en una base de acces ya que la misma tiene dos parametros y no se como pasarselos, el ejemplo que esta abajo funciona bien si la consulta no tiene parametros pero a la hora de ponerle un parametro no se como pasarselo.
Con DAO si funciona pero con ADO no tengo ni idea de como hacerlo Set cn = New ADODB.Connection cn.Open ("Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=True;Data Source=" & App.Path & "\General.mdb") RsUsuarios.Open "[Ingreso_al_sistema]", cn, adOpenKeyset, adLockReadOnly, adCmdStoredProc Ingreso_al_Sistemas --> es la consulta de access Si alguuien me puede ayudar se lo agradeceria mucho De ante mano gracias a todos por colaborar Saludos Christian | |
| Respuesta: | nahuel penna |
| esto en un modulo
Public cn As Connection Sub conexion() Dim E As String ChDir App.Path ChDrive App.Path E = App.Path If Len(E) > 3 Then E = E & "\" End If Set cn = New Connection With cn .Provider = "microsoft.jet.oledb.4.0" .ConnectionString = "" & E & "db1.mdb" .CursorLocation = adUseClient End With cn.Open End Sub esto en load del formulario With Rs5 .Source = "SELECT ..." .ActiveConnection = Module1.cnprogramacion2 .CursorType = adOpenStatic .CursorLocation = adUseClient .LockType = adLockOptimistic .Open End With | |