Bienvenido a la mayor comunidad de usuarios EXCEL
Regístrate gratis ahora para ver contenidos y descargas sin restricciones!Regístrate gratis Ingresar
SQL y ADO
- Autor del tema Adrian
- Fecha de inicio
Adrián, excelente, disculpame si no te pase el archivo nuevamente, solamente que respeté tu decisión, y no volvi a intentar....
Podrías probar lo siguiente, después voy a esperar tu comentario...
Podrías probar lo siguiente, después voy a esperar tu comentario...
Adrian
Moderator
- Registrado
- 13 Jun 2004
- Mensajes
- 7.606
Hola P@li, y si yo te dije que no envíes nada solo con lo que medijiste era suficiente, paso a comentrte sobre tu código:
Siempre que se elimine un bucle es mejor, muy bueno p@li, ahora una duda...
Siempre que se elimine un bucle es mejor, muy bueno p@li, ahora una duda...
Gracias por el aporte.
Me servirá mucho, y mas ahora que estoy manejando las bases de datos en access. Aunque tambien hago las bases en excel, es mucho mas fácil hacerlo en access...
Me servirá mucho, y mas ahora que estoy manejando las bases de datos en access. Aunque tambien hago las bases en excel, es mucho mas fácil hacerlo en access...
Adrian
Moderator
- Registrado
- 13 Jun 2004
- Mensajes
- 7.606
No estoy buscando eficiencia ni elegancia en estos archivos que adjunto solo efectividad, va otro de mis precarios manejo de ADO.
Pues hermano, lo único que te digo es que cuando empiece a entender todo esto, mas que todo las sentencias SQL, vamos a ser mucho mas eficientes.
Gracias, por compartir estos conocimientos...
Gracias, por compartir estos conocimientos...
Sugerencia:
En vez de usar
Range("B5").Value = Rst.Fields(0)
Range("D5").Value = Rst.Fields(1)
Mejor esto:
Range("B5").Value = Rst!Propietario
Range("D5").Value = Rst!Cantidad
Motivo, aun...
En vez de usar
Range("B5").Value = Rst.Fields(0)
Range("D5").Value = Rst.Fields(1)
Mejor esto:
Range("B5").Value = Rst!Propietario
Range("D5").Value = Rst!Cantidad
Motivo, aun...
En caso de no haber encontrado coincidencias, el Recordset está vacío, si esto no se comprueba puede generar errores...
Para comprobar esto uso mucho lo siguiente
If not(Rst.eof and Rst.bof)...
Para comprobar esto uso mucho lo siguiente
If not(Rst.eof and Rst.bof)...
Ejemplo de lo anterior
If Not (Rst.EOF And Rst.BOF) Then
Range("B5").Value = Rst.Fields(0)
Range("D5").Value = Rst.Fields(1)
Else
msgbox "El DNI solicitado no corresponde a ningún...
If Not (Rst.EOF And Rst.BOF) Then
Range("B5").Value = Rst.Fields(0)
Range("D5").Value = Rst.Fields(1)
Else
msgbox "El DNI solicitado no corresponde a ningún...
Fernando Lemus
Member
- Registrado
- 3 Feb 2006
- Mensajes
- 142
Un comentario nada mas se puede agregar un determinado rango de informacion de excel a acces....
Ejemplo
Id. Producto Precio.
01 FRIJOL Q12.00
02 ARROZ Q 2.50...
Ejemplo
Id. Producto Precio.
01 FRIJOL Q12.00
02 ARROZ Q 2.50...
Pues la primera vez que ví el título de este tema hasta miedo me dió luego de ver el código no entendí ni una línea, ya luego de algo de estudio puedo comprender lo bueno que resulta usar ADO...
federico ramirez marron
Member
- Registrado
- 21 Sep 2004
- Mensajes
- 823
AQUI ESTA UN EJEMPLO DE COMO JALAR INFORMACION DE ACCEES A EXCEL MEDIANTE LENGUAJE SQL
https://www.exceluciones.com/portal/viewtopic.php?t=5202&highlight=
https://www.exceluciones.com/portal/viewtopic.php?t=5202&highlight=
en ingles:
https://www.rondebruin.nl/ado.htm
https://www.rondebruin.nl/accessexcel.htm
https://www.erlandsendata.no/english/index.php?t=envbadac
https://www.excelguru.ca/taxonomy/term/2...
https://www.rondebruin.nl/ado.htm
https://www.rondebruin.nl/accessexcel.htm
https://www.erlandsendata.no/english/index.php?t=envbadac
https://www.excelguru.ca/taxonomy/term/2...
Gracias federico ramirez marron y KL ya tengo mas para estudiar entonces de este tema.
Saludos
Saludos
Hola foristas, quisiera dejar un aporte, ya que he trabajado varias veces con conexiones entre Excel y Oracle, lo cual es muy parecido a hacer la conexion con Access:
En una hoja cualquiera tengo...
En una hoja cualquiera tengo...
