Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/03/2011, 16:18
jeaguiar25
 
Fecha de Ingreso: marzo-2011
Ubicación: Florida-Uruguay
Mensajes: 74
Antigüedad: 13 años, 9 meses
Puntos: 4
Pregunta Pasar desde VB 6 datos de una Tabla Acces a otra

A ver si hay un alma generosa por algún lado. Tengo una archivo en Acces que utilizo desde algunas aplicaciones de Visual Basic 6. El Acces posee 2 tablas (Datos y DatosEliminados).

Y desde Visual quiero manipular estas tablas, usando 2 ListView cargados en 2 Form distintos. Puedo cargar cada ListView (ListView1-Datos y ListView2-DatosEliminados) desde Visual, pero lo que no puedo lograr es pasar la linea que selecciono de uno a otro (intento pasar toda la fila del item seleccionado).
Todo el codigo que utilizo es:

Private Sub Eliminar()
Dim cn As ADODB.Connection
Dim consulta As String
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\Alumnos\Alumnos.mdb"

With ListView2.SelectedItem
' pregunta
If MsgBox("Atención: Se va a mover al siguiente Alumno a la Base de Datos de registros primarios" & vbNewLine & _
String(74, "_") & vbNewLine & _
"Matrícula: " & .Text & vbNewLine & _
"Nombres: " & .ListSubItems(1).Text & String(20, " ") & "Apellidos: " & .ListSubItems(2).Text, _
vbExclamation + vbYesNo, "Registro de Alumnos - Opción Restaurar") = vbYes Then
' Elimina

End If
End With
consulta = "INSERT INTO Datos SELECT DatosEliminados.* FROM DatosEliminados"
cn.Execute (consulta)
cn.Close
Set cn = Nothing

End Sub