[code=vb]
'me gustaria guardar en un fichero los datos de una lista he probado estas dos 'cosas y no me funcion
---------------modo b
' me da un error en dato = Nombre & "=cstr('"List2.List(i)"')"
el ejercicio http://www.megaupload.com/?d=RYXXUSP2
Private Sub cb_confirmar_Click()
Dim dato As String
If List2.ListCount < 16 Then
Open "c:\examen.txt" For Append As #1
For i = 0 To List2.ListCount
dato = Nombre & "=cstr('"List2.List(i)"')"
Data1.Recordset.FindFirst dato
If List2.List(i) = dato Then
Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos")
End If
Next
Close #1
Else
MsgBox ("La convocatoria tiene mas de 16 jugadores")
End If
End Sub
---------------------- modo a
'el ejercicio http://www.megaupload.com/?d=RYXXUSP2
' intento guardar los datos a un fichero y no me escribe nada
'tengo un data1 con los siguientes datos Nombre, Demarcacion,dorsal,partidos
'el ejercicio consta de una lista con los nombre de los jugadores
'para guardar he puesto, pero no me hace nada
Private Sub cb_confirmar_Click()
Dim dato As String
If List2.ListCount < 16 Then
Open "c:\examen.txt" For Append As #1
For i = 0 To List2.ListCount
Do While Not Data1.Recordset.EOF
dato = Data1.Recordset.Fields("nombre")
If List2.List(i) = dato Then
Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos")
End If
Loop
Next
Close #1
Else
MsgBox ("La convocatoria tiene mas de 16 jugadores")
End If
End Sub
[/code]
