duda sobre un ejercicio vb 6

[juni85]

 

Código (vb) [Seleccionar] Expandir

[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]

[juni85]

Nadie sabe nada??

Disculpenme si digo esto, pero es que estoy atascado por que luego tengo que seguir haciendo mas del ejercicio y como no se acceder al data pues asi estoy...

[Psyke1]

No tengo tiempo ahora mismo de mirar todo pero:

Código (vb) [Seleccionar] Expandir

' me da un error en              dato = Nombre & "=cstr('"List2.List(i)"')"


Sería así:

Código (vb) [Seleccionar] Expandir

dato = Nombre & List2.List(i)
Las comillas están mal puestas y no es necesaria la conversión a String por medio de CStr() porque el listbox ya te devueve un String.

DoEvents!

[bomba1990]

si lo que quieres es simplemente guardar el contenido de una lista en un archivo de texto simplemente has un write de la variable dato en el archivo y ya esta. pero en cambio si lo que uqieres usar un archivo de texto para almacenar informacion te recomiendo usar estructuras y archivos aleatorios ahora no me acuerdo muy bien como era pero te voy a pasar un link.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#archivos-aleatorios

[juni85]

Hola y gracias por la ayuda pero me sigue dando el mismo error

Esta accion fue cancelada por el objeto asociado

Y para bomba1990:

Estoy mirando lo que me has pasado y de momento sollo quiero guardar en un archivo, luego mas adelante leere ese archivo y en lo que me has pasado no dice como "meterle mano" aun data1 o a lo mejor es que no lo entendido bien xD