Pasar datos de un ListView a otro en VB6 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
