Marquesina VB
Publicado por Guille (2 intervenciones) el 08/01/2009 15:34:08
Hola a todos.
Solicito por favor de vuestra ayuda. Estoy creando una marquesina en VB6, la cual, actualizo cada día con nueva información. Sin embargo ahora debo usar la marquesina en varios PC y no se como actualizar a todos la información día a día.
Los datos de mi marquesina en 1 pc los guardo como txt
solo parte del codigo ....
Public Function guarda_evento()
On Error GoTo cancelar 'en caso de que halla un error ir a cancelar
Dim archivo As String 'declarar una variable para identificar 'el nonbre del archivo
archivo = "C: utasevento.txt"
Open archivo For Output As #1 'sintax para guardar una archivo
'open nombre_archivo for tipo as numero el cual se va a
'conocer en el codigo el archivo abierto
Print #1, Eventos.Text1.Text + vbCrLf 'anadimos lo que queremos en el archivo
'vbCrlf = orden del archivo quedara acomodado tal como
'esta en el textbox
Close 'cerramos el archivo
cancelar: 'accion que va a tomar si hay algun error.
End Function
Salu2
Guillermo
Solicito por favor de vuestra ayuda. Estoy creando una marquesina en VB6, la cual, actualizo cada día con nueva información. Sin embargo ahora debo usar la marquesina en varios PC y no se como actualizar a todos la información día a día.
Los datos de mi marquesina en 1 pc los guardo como txt
solo parte del codigo ....
Public Function guarda_evento()
On Error GoTo cancelar 'en caso de que halla un error ir a cancelar
Dim archivo As String 'declarar una variable para identificar 'el nonbre del archivo
archivo = "C: utasevento.txt"
Open archivo For Output As #1 'sintax para guardar una archivo
'open nombre_archivo for tipo as numero el cual se va a
'conocer en el codigo el archivo abierto
Print #1, Eventos.Text1.Text + vbCrLf 'anadimos lo que queremos en el archivo
'vbCrlf = orden del archivo quedara acomodado tal como
'esta en el textbox
Close 'cerramos el archivo
cancelar: 'accion que va a tomar si hay algun error.
End Function
Salu2
Guillermo
Valora esta pregunta


0