Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Problemas Con listView en Visual Basic 6

Estas en el tema de Problemas Con listView en Visual Basic 6 en el foro de Visual Basic clásico en Foros del Web. Hola quisiera saber si alguien me puede ayudar. Tengo una archivo en Acces que modifico utilizando unas aplicaciones de Visual Basic 6. El Acces posee ...
  #1 (permalink)  
Antiguo 10/03/2011, 18:29
 
Fecha de Ingreso: marzo-2011
Ubicación: Florida-Uruguay
Mensajes: 74
Antigüedad: 13 años, 1 mes
Puntos: 4
Información Problemas Con listView en Visual Basic 6

Hola quisiera saber si alguien me puede ayudar. Tengo una archivo en Acces que modifico utilizando unas
aplicaciones de Visual Basic 6. El Acces posee 2 tablas (Datos y DatosEliminados).
Y desde Visual quiero manipular estas tablas. 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.
Todo el codigo que utilizo es:

Private Sub Form_Load()
Dim cn As New ADODB.Connection 'Creamos el objeto Connection.
Dim rst As New ADODB.Recordset 'Creamos el objeto Recordset.
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Alumnos\Alumnos.mdb"
rst.Source = "DatosEliminados" 'Especificamos la fuente de datos. En este caso la tabla "contactos".
rst.CursorType = adOpenKeyset 'Definimos el tipo de cursor.
rst.LockType = adLockOptimistic 'Definimos el tipo de bloqueo.
If rst.State = 0 Then
rst.Open "select * from DatosEliminados", cn
End If
'Agregamos los datos al ListView
rst.MoveFirst 'Nos movemos al primer registro.
Dim li As ListItem
Do Until rst.EOF
'Ponemos los datos leídos en el ListView.
Set li = ListView2.ListItems.Add(, , rst("Matricula"))
li.ListSubItems.Add , , rst("Nombres")
li.ListSubItems.Add , , rst("Apellidos")
li.ListSubItems.Add , , rst("Documento")
li.ListSubItems.Add , , rst("Fechanacimiento")
li.ListSubItems.Add , , rst("Telefonomadre")
li.ListSubItems.Add , , rst("Direccion")
li.ListSubItems.Add , , rst("VencimientoFicha")
li.ListSubItems.Add , , rst("VencimientoCev")
rst.MoveNext 'Pasamos al siguiente registro.
Loop
End Sub
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


Private Sub ChameleonBtn1_Click()
DataReport1.Show 1
End Sub


Private Sub ChameleonBtn2_Click()
Unload Me
End Sub


Private Sub ChameleonBtn3_Click()
Call Eliminar
End Sub


Private Sub ChameleonBtn4_Click()
DataReport2.Show 1
End Sub


Private Sub ChameleonBtn5_Click()
Form5.Show 1
Unload Me
End Sub
  #2 (permalink)  
Antiguo 11/03/2011, 19:14
Avatar de GatorV
$this->role('moderador');
 
Fecha de Ingreso: mayo-2006
Ubicación: /home/ams/
Mensajes: 38.567
Antigüedad: 17 años, 11 meses
Puntos: 2135
Tema movido desde Ayuda General a Visual Basic clásico

Etiquetas: basic, listview, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:15.