Visual Basic - archivos dat

Life is soft - evento anual de software empresarial
 
Vista:

archivos dat

Publicado por christiam (5 intervenciones) el 07/02/2010 05:43:38
hola saludos a todos.Bien el problema es el sgte tengo 2 formularios en uno de ellos tengo 3 textbox y un boton de comando.,(textbox) name ,lastname,phone, donde el boton de comando guarda los datos en un archivo dat, de la sgte forma :

Open "J:\Christiam\VB\Project\Project.dat" For Append As #1
Print #1, txtname.Text & ";" & txtlastname.Text & ";" & txtphone
Close #1

ahora tengo otro formulario aparte donde tengo un listview nada mas.
entonces quiero ver el archivo project.dat en el listview , en otras palabras deseo que cada vez que carge los textbox del primer formulario se me actualice la misma informacion en el segundo formulario del listview.

pd se que se puede hacer en el mismo formulario pero lo necesito por separado.
desde ya muchisimas gracias.

mi mail [email protected]
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de A.H.H

RE:archivos dat

Publicado por A.H.H (116 intervenciones) el 07/02/2010 10:46:06
Hola llama desde tu codigo al form donde tienes el listview
imagina que se llama form2 donde lo tienes:

Open "J:\Christiam\VB\Project\Project.dat" For Append As #1
Print #1, txtname.Text & ";" & txtlastname.Text & ";" & txtphone
form2.listview1.....................................................................................
Close #1


salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:archivos dat

Publicado por christiam (5 intervenciones) el 07/02/2010 19:01:54
muchas gracias ,pero me dice uso no valido de la propiedad mi codigo es el sgte al ser nuevo en este proceso puede ser que este haciendo algo mal pero aca te envio a.h.h el codigo:

Private Sub cmdguardar_Click()
'Verifica si la caja esta vacia.'
If Len(Trim(txtname.Text)) = 0 Then
MsgBox ("please you must introduce the name")
'Hace que la caja reciba el enfoque'
txtname.SetFocus

ElseIf Len(Trim(txtlastname.Text)) = 0 Then
MsgBox ("please you must introduce the lastname")
txtlastname.SetFocus

ElseIf Len(Trim(txtphone.Text)) = 0 Then
MsgBox ("please you must introduce the phone")
txtphone.SetFocus

Else

Open "J:\Christiam\VB\Project\Project.dat" For Append As #1
Print #1, txtname.Text & ";" & txtlastname.Text & ";" & txtphone
Form3.ListView1 (aca me dice uso no valido de la propiedad)
Close #1

'Clear cajas de textos'
txtname.Text = ""
txtlastname.Text = ""
txtphone.Text = ""

txtname.SetFocus
MsgBox ("El nuevo contacto ha sido agregado")
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

RE:archivos dat

Publicado por A.H.H (116 intervenciones) el 07/02/2010 22:40:40
Hola christiam en este enlace hay un ejemplo de lo que quieres hacer y un buen tutorial del control listwiev espero te sirva.

http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-listview.htm#listitems

mira el punto 1 introduccion, hacia abajo el dibujo, creo que es eso lo que quieres conseguir

en ese tutorial del control listwiev te enseña casi todo espero que te ayude.

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:archivos dat

Publicado por christiam (5 intervenciones) el 07/02/2010 22:53:41
bien acuerdate que soy muy novato en esto desde ya muchas gracias por todo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar