Copiar Recorset XML

"Gaston Gaspar" escribió:

Tengo un Recordset que lo he cargado de un documento XML
Lo que quiero es copiar los datos de este recordset a una tabla
de Access. Es decir Actualizar las filas que ya existan y
agregar las que no existan

Hola, Gaston:

Las dos cosas a la misma vez, yo creo que no se puede hacer. Si quieres
«actualizar» las filas, tendrás que utilizar la instrucción «UPDATE» de SQL,
y si quieres «añadir» nuevos registros, tendrás que ejecutar la instrucción
«INSERT INTO» mediante el método «Execute» de un objeto «Connection».

Otra cosa que puedes hacer es eliminar la tabla y crearla de nuevo,
utilizando la misma consulta SQL que utilizas para abrir el objeto
«Recordset». Te dejo un pequeño ejemplo:

Private Sub Command1_Click()

Dim cnn As ADODB.Connection

On Error GoTo ErrCreate

' Abrimos la conexión
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = App.Path & "\bd1.mdb"
.Open
End With

' Ejecutamos la consulta de creación de tabla
cnn.Execute _
"SELECT * INTO Clientes2 FROM Clientes"

Exit Sub

ErrCreate:
If Err.Number = -2147217900 Then
' La tabla ya existe, por tanto la eliminamos
cnn.Execute "DROP TABLE Clientes1"
Resume
End If
End Sub

Un saludo.

Enrique Martínez
[MS MVP - VB]

Desde hoy, las ciudades jienenses de Úbeda y Baeza son Patrimonio de la
Humanidad.
Felicidades a mis paisanos. :-)