............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Solicitud de código vba para registrar operaciones de un formulario con listbox a una base de datos acces 2007

Ver el tema anterior Ver el tema siguiente Ir abajo

Solicitud de código vba para registrar operaciones de un formulario con listbox a una base de datos acces 2007

Mensaje por Enigma25 el Dom Ene 13, 2013 6:27 pm

Buenas tardes

En verdad muy complacido por la excelente pagina. Hoy 13-01-13 me inscribir en el foro y con solo ver algunos temas y demas, quedé muy contento.
Espero contar con su apoyo y por supuesto, tambien estaré a la orden para lo que se necesite.

Como podrám apreciar en el tema, busco de hacerme de un codigo con el cual pueda guardar en una tabla access, los registros de la operacion que haga, bien sea en el formulario de entrada asi como tambien en el formulario de salida.
Actualmente uso excel 2007 cuento con archivo 2007 de Control de Almacén.xlsm para las operaciones, el archivo excel 2007 Registro.xlsm como base de datos y un arrchivo de access 2007 RecorStcok.accdb el cual lo creé para usarlo como nueva base de registros de operaciones.

Una breve explicacion: El archivo de Control de almacen es donde hago las operaciones (registri de clientes, proveedores, materiales etc) (entrada, salidas, traspaso) Claro está que al hacer una operacion de entrada-salidas-traspaso, por medio de codigo, abro el archivo de Registro.xlsm para el tema del correlativo asi como tambien al dar click para registrar las operaciones. Pues bien por medio de un bucle for next, registro las operaciones en el archivo de Registro.xlsm según la cantidad de itemns en el listbox. Manteniendo el orden correlativo y todo va guardandose de manera ordenada.
Lo que busco ahora es guardar dichas operaciones en una base de datos access de igual manera como lo hago con el codigo vba en excel.
Entiendo que se debe crear las conexiones en este caso he leido que ADO es una de ellas y tambien cuento con un ejemplo pero no lo tengo a la mano pero este funciona desde una hoja excel.

Me preguntaba si pueden ayudarme con este tema y mil disculpas si el tema asi como la explicacion del mismo fue muy largo.
PD: El código al que hago referencia para guardar de una hoja excel a access, es el siguiente:

Sub ADOFromExcelToAccess()
'Menu herramientas/ Referencias
'Marca el Microsoft Activex Data Object 2.6 Library
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source= " & ThisWorkbook.Path & "\Access.mdb;" ' ruta del Archivo Acces en formato 2000
Set rs = New ADODB.Recordset
rs.Open "consulta", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' nombre de la tabla entre comillas
r = 2 ' fila inicial
Do While Len(Range("A" & r).Formula) > 0
With rs
.AddNew
'las Fields son los nombres de los campos de la tabla en Access
.Fields("Numero") = Range("A" & r).Value
.Fields("Nombre") = Range("B" & r).Value
.Fields("Apellido Paterno") = Range("C" & r).Value
.Fields("Apellido Materno") = Range("D" & r).Value
.Update
End With
r = r + 1
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
Mis respetos.
Archivos
Control de Almacen.xlsm No tienes los permisos para descargar los archivos.(372 KB) Descargado 31 veces
Registro.xlsm No tienes los permisos para descargar los archivos.(69 KB) Descargado 25 veces

Enigma25

Masculino Cantidad de envíos : 2
Edad : 40
Ciudad - Pais : Caracas-Venezuela
Version de Excel : Excel 2007 y en busca de aprender a guardar la informacion de excel a base de datos access
Fecha de inscripción : 13/01/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.