Jump to content

Macros excel – vba 67.- extraer registros de access con sql - select


José_Santos

Recommended Posts

Gracias [uSER=191714]@José_Santos[/uSER] , era eso. Empezaba a extraer desde el RS(1) que no se porqué extraña razón era el ID y el RS(0) la fecha...

He probado en otro access nuevo y desde el RS(1) saca bien los datos. Algo habré tocado en ese primer fichero.

Gracias de nuevo.

Link to comment
Share on other sites

Las conexiones a Access son xvres, yo le coloco contraseña a la BD en Access, de esta manera es más segura y cualquier usuario ya no la editará

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Direccion & ";Persist Security Info=False;;Jet OLEDB:Database Password='CONTRASEÑA';"[/CODE]

Link to comment
Share on other sites

Las conexiones a Access son xvres, yo le coloco contraseña a la BD en Access, de esta manera es más segura y cualquier usuario ya no la editará

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Direccion & ";Persist Security Info=False;;Jet OLEDB:Database Password='CONTRASEÑA';"[/CODE]

Solo mencionar que para colocarle contraseña, se debe colocar un cifrado heredado, sino mostrará un mensaje de que la contraseña es incorrecta

Proceso:

Ir a Access>Archivo>Opciones>Configuración de Cliente>Avanzadas

Al final dice "Método de cifrado"

por defecto siempre esta en "Usar cifrado predeterminado (mayor seguridad)"

deben de seleccionar el primero "Usar cifrado heredado..."

Y listo ya se podrá acceder a la info :)

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Muchas Gracias Janlui. Funciona perfecto, veras que he añadido a la macro una última línea que es la que crea el fichero final TXT en una ubicación concreta. Lo que no se es porque una vez generado el TXT la última parte la vuelve a entrecomillar (en la hoja 5 del fichero que adjunto veras un pantallazo del TXT que genera) Repito, muchas gracias por la ayuda Saludos       Ejemplo3.xlsm
    • Observé un pequeño error, espero ya esté bien. Sub genera_txt()     Set datos = Worksheets("Hoja1")     Sheets("hoja2").Select     Dim cadena As String     Range("a27:a5000").ClearComments     rd = 2     rs = 27     xc = Chr(34)     Do While datos.Cells(rd, 1) <> ""         cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc         For i = 7 To 11             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc         For i = 12 To 56             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc         Cells(rs, 1) = cadena         rs = rs + 1         rd = rd + 1     Loop End Sub  
    • Disculpa que no te lo regrese en el archivo, pero mi nivel de membresía no me permite completar al 100% el apoyo que solicitan.
    • Copia la macro y el resultado lo pondrá en la Hoja2... Saludos Sub genera_txt()     Set datos = Worksheets("Hoja1")     Sheets("hoja2").Select     Dim cadena As String     Range("a27:a5000").ClearComments     rd = 2     rs = 27     xc = Chr(34)     Do While datos.Cells(rd, 1) <> ""         cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc         For i = 6 To 10             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc         For i = 11 To 56             cadena = cadena & datos.Cells(rd, i)         Next         cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc         Cells(rs, 1) = cadena         rs = rs + 1         rd = rd + 1     Loop End Sub  
    • Todas tus celdas deberán tener formato numérico.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy