Referencias de VBA

Como estas Valedor, aquí te tengo una duda que no puedo resolver:
Como puedo habilitar las referencias que tiene el VBA.
Un poco más detallado, estoy usando ADO para conectarme a una Base de datos, pero en referencias se necesita habilitar "Microsoft activeX Data Objects 2.1 Library".
La idea es que debo colocar el archivo en varias maquinas, y en cada maquina tengo que habilitar una y otra vez la referencia.
Espero que puedas ayudarme... Y sobre todo comprendido la pregunta.
PD. Me disculparas la pregunta anterior que deje a medias.
1

1 Respuesta

201.000 pts.
No hay problema de la pregunta anterior, solo procura finalizarlas en cuanto no tengas más preguntas, gracias...
Respecto a tu pregunta, yo también he distribuido archivos en varias maquinas y no tengo que estar activando las referencias, pero de todos modos dejame hacer unas pruebas.
Ok, gracias.
Espero poder conversar un poco más acerca de la pregunta anterior.
Me esta funcionando la solución que me diste, pero tengo un par de dudas adicionales.
Saludos
Oscar S.
Pues, puedes hacerlas en este hilo sin extenderte demasiado o crear una nueva pregunta.
El código que adjunto me deja "filtrar" datos desde una fecha de inicio hasta una de termino...
Como hago para aplicarlo digamos en un campo numérico o de texto...
Claro... dando criterios adicionales como and u or
Espero que se haya entendido la pregunta
Sub ADOExecuteParamQuery()
Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim cmd As ADODB.Command
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
' Open the connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\pruebita.mdb;"
' Open the catalog
cat.ActiveConnection = cnn
' Get the Command object from the
' Procedure
Set cmd = cat.Procedures("Sales by Year").Command
'********* Como especifico "parameters" en campos numericos o de texto ???
cmd.Parameters _
("Forms![Sales by Year Dialog]!BeginningDate") = #8/1/1997#
cmd.Parameters _
("Forms![Sales by Year Dialog]!EndingDate") = #8/31/1997#
rst.Open cmd, , adOpenForwardOnly, _
adLockReadOnly, adCmdStoredProc
rst.Close
End Sub
Cuidate y suerte
Oscar
Ando un poco corto de tiempo, si aun te interesa mi ayuda, puedes enviarme tu archivo compreso a mi correo, saludos...
MbsARROBAinboxPUNTOnet
Mauricio
OK, te agradeceré mucho si finalizas esta pregunta, gracias...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas