Pasar desde VB 6 datos de una Tabla Acces a otra

[jeaguiar25]

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

[Gakex]

Hola no seria mejor que agregaras un campo que te indique el estado, por ejemplo que tenga dos estados: activado y desactivado, asi solo tienes una tabla y ademas utilizas un update para actualizar un campo de un registro, mucho mas simple que mover todo de un lado a otro.

[jeaguiar25]

El tema es que el proyecto lo tengo listo, el padron Datos y Datos Eliminados es de frecuente cambio y también el uso del Datareport, en el cual tengo todo listo. Se que, lo que deberiía cambiar es:

consulta = "INSERT INTO Datos SELECT DatosEliminados.* FROM DatosEliminados"

Lo que me esta haciendo falta es solo una parte de la sentencia que haga referencia a Selecteditem, algo como: "Si el elemento seleccionado es el registro N°.... pasar este registro a la tabla......" Es lo único a corregir.

Gracias por tu interés, es un gran dato a tener en cuenta antes de iniciar un nuevo proyecto.

[lokoman]

Hola!!
Puedes saber el item seleccionado asi:

Código vb:

Dim TMP
    If lsvUNO.ListItems.Count > 0 Then
        TMP = Abs(lsvUNO.SelectedItem)
    Else
        MsgBox "No hay registros para seleccionar!!", vbInformation
        Exit Sub
    End If
    
'El select en un recordset
    rstData.Open "SELECT * FROM TABLA WHERE CAMPO='" & lsvUNO.ListItems(Val(TMP)).SubItems(1) & "'", Conexion, adOpenStatic, adLockReadOnly
 

[Gakex]

Bueno si tu campo clave es la matricula lo puedes hacer del siguiente modo:

Dim varMatriculaEliminada as integer
varMatriculaEliminada = Cint(ListView2.SelectedItem.text)
Primero creas una variable para cargar el valor de la matricula que quieres cambiar

y la sql creo que seria de la siguiente manera

Código vb:

SQL = "INSERT INTO datos SELECT * FROM DatosEliminados where matricula =" _
 & varMatriculaEliminada
 

Unos tips que me funcionan en este caso al depurar:

Usa crtl + pausa cuando se cicla en un recordset, y lleva la flecha amarilla al cierre del recordset o al cierre de la coneccion, aveces casi siempre se cierra el vb cuando no se cierra un recordset defectuoso.
Tambien puedes usar F8 para ir paso a paso, si tienes muchas lineas antes de llegar a un problema que intentas arreglar, agrega un punto de interrupcion antes del problema, ejecuta con F5 y al llegar al punto sigue con F8.

[jeaguiar25]

Esta última intervención me ayudo mucho, la modifique un poco pero funcionó. GRACIAS!!!