Que tal eske tengo problema con este codigo que debe hacer una conexion para llamar al archivo "em_sec.dat" si alguien me ayudara a tener una emjor idea para hacer llamadas a archivos ".dat" se loS agradeceria.
SALUDOS
Private Sub Form_Load()
crlf$ = Chr(13) & Chr(10)
Text1.Text = "c:\em_sec.txt"
Open "C:EM_SEC.TXT" For Input As #1
While Not EOF(1)
Line Input #1, file_data$
Text1.Text = Text1.Text & file_data$ & crlf$
Wend
Close #1
End Sub
SALUDOS
Private Sub Form_Load()
crlf$ = Chr(13) & Chr(10)
Text1.Text = "c:\em_sec.txt"
Open "C:EM_SEC.TXT" For Input As #1
While Not EOF(1)
Line Input #1, file_data$
Text1.Text = Text1.Text & file_data$ & crlf$
Wend
Close #1
End Sub