Timer

08/04/2005 - 20:30 por Omar Flores | Informe spam
Que tal estoy desarrollando una pequeña aplicación en la cual
necesito leer de un archivo de texto los datos y los debo de
guardar en una tabla de access, este proceso ya lo hago pero
resulta que si la información del arch. de texto es mucha
quiero que se despliega un mensaje informado de que el proceso
de actualización en la BD puede durar varios minutos, a continuación
pongo mi código:

Private Sub btnActualizaBD_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnActualizaBD.Click

Me.btnSelecArch.Enabled = False
Me.btnSalir.Enabled = False
Label5.ForeColor = Color.Red
Label5.Text = "Este proceso puede durar varios minutos, por favor
espere"

Dim objReader As New StreamReader(nomArch)
Dim sLine As String = ""
Dim Fecha, Hora, Acceso, Empleado, Evento As String

Try
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
Fecha = Mid(sLine, 1, 10)
Hora = Mid(sLine, 13, 8)
Acceso = Mid(sLine, 24, 8)
Empleado = Mid(sLine, 57, 23)
Evento = Mid(sLine, 82, 25)
Guardar(Fecha, Hora, Acceso, Empleado, Evento,
txtNoSem.Text)
End If
Loop Until sLine Is Nothing
objReader.Close()
MessageBox.Show("Proceso terminado, los datos se han guardado en
la Base de Datos", "Información", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Me.btnSelecArch.Enabled = True
Me.btnSalir.Enabled = True
Label5.Text = ""
Catch ex As Exception
MessageBox.Show("Ha ocurrido un error " & ex.Message)
End Try
End Sub

Como se puede observar, lo que trato de hacer es que cuando presionen el
botón actualizar se desactiven unos botones y se despliege el mensaje
mientras se esta guardando la información en la BD, pero resulta que el
mensaje aparece hasta que el proceso ha terminado, ojalá y alguien me pueda
ayudar.

Preguntas similare

Leer las respuestas

#1 htb
08/04/2005 - 21:04 | Informe spam
Intenta con "Refresh"

.
Label5.Text = "Este proceso puede durar varios minutos,
por favor >espere"
Label5.Refresh()
Dim objReader As New StreamReader(nomArch)



Que tal estoy desarrollando una pequeña aplicación en la


cual
necesito leer de un archivo de texto los datos y los


debo de
guardar en una tabla de access, este proceso ya lo hago


pero
resulta que si la información del arch. de texto es mucha
quiero que se despliega un mensaje informado de que el


proceso
de actualización en la BD puede durar varios minutos, a


continuación
pongo mi código:

Private Sub btnActualizaBD_Click(ByVal sender As


System.Object, ByVal e
As System.EventArgs) Handles btnActualizaBD.Click

Me.btnSelecArch.Enabled = False
Me.btnSalir.Enabled = False
Label5.ForeColor = Color.Red
Label5.Text = "Este proceso puede durar varios


minutos, por favor
espere"

Dim objReader As New StreamReader(nomArch)
Dim sLine As String = ""
Dim Fecha, Hora, Acceso, Empleado, Evento As


String

Try
Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
Fecha = Mid(sLine, 1, 10)
Hora = Mid(sLine, 13, 8)
Acceso = Mid(sLine, 24, 8)
Empleado = Mid(sLine, 57, 23)
Evento = Mid(sLine, 82, 25)
Guardar(Fecha, Hora, Acceso,


Empleado, Evento,
txtNoSem.Text)
End If
Loop Until sLine Is Nothing
objReader.Close()
MessageBox.Show("Proceso terminado, los


datos se han guardado en
la Base de Datos", "Información", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Me.btnSelecArch.Enabled = True
Me.btnSalir.Enabled = True
Label5.Text = ""
Catch ex As Exception
MessageBox.Show("Ha ocurrido un error " &


ex.Message)
End Try
End Sub

Como se puede observar, lo que trato de hacer es que


cuando presionen el
botón actualizar se desactiven unos botones y se


despliege el mensaje
mientras se esta guardando la información en la BD, pero


resulta que el
mensaje aparece hasta que el proceso ha terminado, ojalá


y alguien me pueda
ayudar.



.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida