Modificar una base de datos Access

Este codigo te funciona:

Sub SubirAAccess()
'PRIMERO EN EL EDITOR DE VISUAL BASIC por Herramientas-Referencias, MARCAS
LA ULTIMA VERSION de la conexion ADO que tengas (Microsoft Activex Data
Objects)
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=" &
"C:\BaseDatos\MiDB.mdb"
Set rs = New ADODB.Recordset
rs.Open "MITABLA", cn, adOpenKeyset, adLockOptimistic, adCmdTable
With rs
.AddNew ' crea un nuevo registro
.Fields("NOMBRE") = Hoja1.Range("a1") ' fields es el nombre del
campo en la tabla access
.Fields("APELLIDO") = Hoja1.Range("B1") 'aidiciona tantos campos
(fields) necesites
.Update ' guarda el nuevo registro
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub


Luis Medina
Menufazt - Utilidades en Excel
http://www11.brinkster.com/LUISM0/


"Carlos" escribió en el mensaje
news:

Hola a todos
Necesito insertar un nuevo registro a una tabla que tengo en Access desde
código VB en Excel. Alguien sabe como hacerlo?

Gracias

Carlos

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004

Muchas gracias Luis

"L. A. M." escribió:

Este codigo te funciona:

Sub SubirAAccess()
'PRIMERO EN EL EDITOR DE VISUAL BASIC por Herramientas-Referencias, MARCAS
LA ULTIMA VERSION de la conexion ADO que tengas (Microsoft Activex Data
Objects)
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=" &
"C:\BaseDatos\MiDB.mdb"
Set rs = New ADODB.Recordset
rs.Open "MITABLA", cn, adOpenKeyset, adLockOptimistic, adCmdTable
With rs
.AddNew ' crea un nuevo registro
.Fields("NOMBRE") = Hoja1.Range("a1") ' fields es el nombre del
campo en la tabla access
.Fields("APELLIDO") = Hoja1.Range("B1") 'aidiciona tantos campos
(fields) necesites
.Update ' guarda el nuevo registro
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub


Luis Medina
Menufazt - Utilidades en Excel
http://www11.brinkster.com/LUISM0/


"Carlos" escribió en el mensaje
news:
> Hola a todos
> Necesito insertar un nuevo registro a una tabla que tengo en Access desde
> código VB en Excel. Alguien sabe como hacerlo?
>
> Gracias
>
> Carlos



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004

TAMBIEN HE UTILIZADO ESTE CODIGO Y ME FUNCIONA MUY BIEN, PERO COMO HAGO PARA
MODIFICAR UN REGISTRO EXISTENTE?
GRACIAS

"L. A. M." escribió:

Este codigo te funciona:

Sub SubirAAccess()
'PRIMERO EN EL EDITOR DE VISUAL BASIC por Herramientas-Referencias, MARCAS
LA ULTIMA VERSION de la conexion ADO que tengas (Microsoft Activex Data
Objects)
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=" &
"C:\BaseDatos\MiDB.mdb"
Set rs = New ADODB.Recordset
rs.Open "MITABLA", cn, adOpenKeyset, adLockOptimistic, adCmdTable
With rs
.AddNew ' crea un nuevo registro
.Fields("NOMBRE") = Hoja1.Range("a1") ' fields es el nombre del
campo en la tabla access
.Fields("APELLIDO") = Hoja1.Range("B1") 'aidiciona tantos campos
(fields) necesites
.Update ' guarda el nuevo registro
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub


Luis Medina
Menufazt - Utilidades en Excel
http://www11.brinkster.com/LUISM0/


"Carlos" escribió en el mensaje
news:
> Hola a todos
> Necesito insertar un nuevo registro a una tabla que tengo en Access desde
> código VB en Excel. Alguien sabe como hacerlo?
>
> Gracias
>
> Carlos



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"Arubiangt" escribió en el mensaje
news:
| TAMBIEN HE UTILIZADO ESTE CODIGO Y ME FUNCIONA MUY BIEN, PERO COMO HAGO
PARA
| MODIFICAR UN REGISTRO EXISTENTE?
| GRACIAS
|
| "L. A. M." escribió:
|
| > Este codigo te funciona:
| >
| > Sub SubirAAccess()
| > 'PRIMERO EN EL EDITOR DE VISUAL BASIC por Herramientas-Referencias,
MARCAS
| > LA ULTIMA VERSION de la conexion ADO que tengas (Microsoft Activex Data
| > Objects)
| > 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=" &
| > "C:\BaseDatos\MiDB.mdb"
| > Set rs = New ADODB.Recordset
| > rs.Open "MITABLA", cn, adOpenKeyset, adLockOptimistic, adCmdTable
| > With rs
| > .AddNew ' crea un nuevo registro
| > .Fields("NOMBRE") = Hoja1.Range("a1") ' fields es el nombre
del
| > campo en la tabla access
| > .Fields("APELLIDO") = Hoja1.Range("B1") 'aidiciona tantos
campos
| > (fields) necesites
| > .Update ' guarda el nuevo registro
| > End With
| > rs.Close
| > Set rs = Nothing
| > cn.Close
| > Set cn = Nothing
| >
| > End Sub
| >
| >
| > Luis Medina
| > Menufazt - Utilidades en Excel
| > http://www11.brinkster.com/LUISM0/
| >
| >
| > "Carlos" escribió en el mensaje
| > news:
| > > Hola a todos
| > > Necesito insertar un nuevo registro a una tabla que tengo en Access
desde
| > > código VB en Excel. Alguien sabe como hacerlo?
| > >
| > > Gracias
| > >
| > > Carlos
| >
| >
| >
| > Outgoing mail is certified Virus Free.
| > Checked by AVG anti-virus system (http://www.grisoft.com).
| > Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004
| >
| >
| >