elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  duda sobre un ejercicio vb 6
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: duda sobre un ejercicio vb 6  (Leído 2,995 veces)
juni85

Desconectado Desconectado

Mensajes: 16


Ver Perfil
duda sobre un ejercicio vb 6
« en: 9 Enero 2011, 22:38 pm »

 
Código
  1. [code=vb]
  2.  
  3. me gustaria guardar en un fichero los datos de una lista he probado estas dos cosas y no me funcion
  4. ---------------modo b
  5.  
  6. ' me da un error en              dato = Nombre & "=cstr('"List2.List(i)"')"
  7. el ejercicio http://www.megaupload.com/?d=RYXXUSP2
  8. Private Sub cb_confirmar_Click()
  9. Dim dato As String
  10. If List2.ListCount < 16 Then
  11. Open "c:\examen.txt" For Append As #1
  12. For i = 0 To List2.ListCount
  13. dato = Nombre & "=cstr('"List2.List(i)"')"
  14. Data1.Recordset.FindFirst dato
  15. If List2.List(i) = dato Then
  16. Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos")
  17. End If
  18. Next
  19. Close #1
  20. Else
  21. MsgBox ("La convocatoria tiene mas de 16 jugadores")
  22. End If
  23. End Sub
  24. ---------------------- modo a
  25.  
  26. 'el ejercicio  http://www.megaupload.com/?d=RYXXUSP2
  27. ' intento guardar los datos a un fichero y no me escribe nada
  28. 'tengo un data1 con los siguientes datos Nombre, Demarcacion,dorsal,partidos
  29. 'el ejercicio consta de una lista con los nombre de los jugadores
  30. 'para guardar he puesto, pero no me hace nada
  31. Private Sub cb_confirmar_Click()
  32. Dim dato As String
  33. If List2.ListCount < 16 Then
  34. Open "c:\examen.txt" For Append As #1
  35. For i = 0 To List2.ListCount
  36. Do While Not Data1.Recordset.EOF
  37. dato = Data1.Recordset.Fields("nombre")
  38. If List2.List(i) = dato Then
  39. Write #1, Data1.Recordset.Fields("nombre"), Data1.Recordset.Fields("demarcacion"), Data1.Recordset.Fields("dorsal"), Data1.Recordset.Fields("partidos")
  40. End If
  41. Loop
  42. Next
  43. Close #1
  44. Else
  45. MsgBox ("La convocatoria tiene mas de 16 jugadores")
  46. End If
  47. End Sub
  48.  
  49.  
  50.  
  51.  
[/code]


« Última modificación: 11 Enero 2011, 15:54 pm por juni85 » En línea

juni85

Desconectado Desconectado

Mensajes: 16


Ver Perfil
Re: duda sobre un ejercicio vb 6
« Respuesta #1 en: 11 Enero 2011, 15:56 pm »

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...


« Última modificación: 12 Enero 2011, 11:09 am por juni85 » En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: duda sobre un ejercicio vb 6
« Respuesta #2 en: 13 Enero 2011, 02:37 am »

No tengo tiempo ahora mismo de mirar todo pero:
Código
  1. ' me da un error en              dato = Nombre & "=cstr('"List2.List(i)"')"
  2.  

Sería así:
Código
  1. 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! :P
En línea

bomba1990


Desconectado Desconectado

Mensajes: 395



Ver Perfil WWW
Re: duda sobre un ejercicio vb 6
« Respuesta #3 en: 13 Enero 2011, 03:35 am »

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
En línea

"Cuando le di de comer a los pobres me llamaron santo, pero cuando pregunte porque los pobres eran pobres me dijeron comunista"

http://sosinformatico.blogspot.com/
http://www.publisnet.com.ve
juni85

Desconectado Desconectado

Mensajes: 16


Ver Perfil
Re: duda sobre un ejercicio vb 6
« Respuesta #4 en: 14 Enero 2011, 11:14 am »

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
« Última modificación: 14 Enero 2011, 11:16 am por juni85 » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda sobre el ejercicio del palindromo.
Programación C/C++
-esifu- 6 6,325 Último mensaje 14 Diciembre 2010, 19:16 pm
por Garfield07
DUDA SOBRE EJERCICIO
Java
hola777 1 2,134 Último mensaje 27 Noviembre 2013, 00:01 am
por Mitsu
Duda sobre este ejercicio
Java
CarlosvAlencia 1 1,852 Último mensaje 18 Febrero 2014, 15:01 pm
por NikNitro!
Duda sobre ejercicio de la universidad
Programación C/C++
Enkthos 4 2,288 Último mensaje 18 Febrero 2016, 23:30 pm
por MAFUS
Duda , sobre ejercicio c++
Programación C/C++
razexx 3 1,774 Último mensaje 28 Septiembre 2016, 21:42 pm
por engel lex
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines