Conectar controles de Excel con Access

24/11/2006 - 16:31 por Juanos | Informe spam
Hola a todos

Quisiera saber como conectar un control en Excel con un campo en una tabla
en Access, puesto que estuve mirando entre todas las preguntas y no encontre.
Por ejemplo.

Si tengo un Textbox en donde ingreso una cédula (Id) como hago para que ese
valor se almacene en un campo llamado cedula (tipo texto) en una tabla en
Access.


Mil gracias
Juanos

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/11/2006 - 05:18 | Informe spam
hola, Juan !

Mostrar la cita
en tanto comentas los detalles que se te quedaron 'en el tintero'... prueba iniciando una visita [p.e.] a:
Export data from Excel to Access (ADO)
http://www.erlandsendata.no/english...cexportado
Export data from Excel to Access (DAO)
http://www.erlandsendata.no/english...cexportdao

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
#2 Juanos
28/11/2006 - 21:44 | Informe spam
Gracias Hector por responder, pero quiero sen mas explicito.

En la Hoja1 de un libro de Excel llamado Clientes, tengo tres textbox
llamados txtcedula, txtnombre, txtunidad, además, tengo un botón que se llama
agregar, con el fin de que cuado haya ingresado datos en ellos, pueda
almacenarlos automátimente en una tabla en Access en donde tengo los tres
campos diseñados para ello, cedula, nombre, unidad.

cómo lo hago?
Juanos


"Héctor Miguel" wrote:

Mostrar la cita
#3 Héctor Miguel
29/11/2006 - 03:02 | Informe spam
hola, Juan !

Mostrar la cita
o sea que... no te ha servido [o no has probado] ninguna de las opciones comentadas en la pagina sugerida ?
comentas que [o cual/es] de los ejemplos no te estuviera funcionando ?

saludos,
hector.
#4 Héctor Miguel
01/12/2006 - 05:44 | Informe spam
hola, Juan !

Mostrar la cita
1) en el primer ejemplo/pagina hay un bloque With [dentro de un bucle For...Next] que dice +/- asi:
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("FieldName1") = Range("A" & r).Value
.Fields("FieldName2") = Range("B" & r).Value
.Fields("FieldNameN") = Range("C" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop

2) prueba haciendo modificaciones +/- como las siguientes:
a) elimina [o marca en comentario] las lineas con el 'Do While...' y la linea con el 'Loop'
b) sustituye los valores [y los campos] para que en lugar de 'tomarlos' de rangos, sean tomados de tus cuadros de texto [p.e.]
.Fields("FieldName1") = <pon aqui el nombre del textbox que corresponda>.Value

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Ads by Google
Search Busqueda sugerida