HOla, no soy un experto en el tema de las fuentes, pero agradeceria si alquien me pudiera decir que fuente es esta:
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarcreate database prueba
use prueba
create table usuario(id_usuario int primary key,usuario varchar(30),telefono varchar(9),estado char(1))
insert into usuario values (1,'us1','121212','1')
insert into usuario values (2,'us2','213232','0')
insert into usuario values (3,'us3','434343','1')
insert into usuario values (4,'us4','454545','0')
insert into usuario values (5,'us5','654545','1')
insert into usuario values (6,'us6','754546','0')
insert into usuario values (7,'us7','854547','1')
insert into usuario values (8,'us8','854547','0')
insert into usuario values (9,'us9','954549','1')
CitarImports System.IO
Imports System.Collections
Imports System.Data.SqlClient
Public Class Form1
Private con As New SqlConnection("integrated security=sspi;data source=(local);initial catalog=master")
Private cmd As SqlCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RutaArchivo As New StreamReader("C:\archivo.txt")
Dim total As Integer
While Not RutaArchivo.EndOfStream
total += 1
RutaArchivo.ReadLine()
End While
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = total
Me.BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
Dim CalculoTiempo As New Stopwatch
Dim RutaArchivo As New StreamReader("C:\archivo.txt")
Dim porcentaje As Integer
Dim linea As String
While Not RutaArchivo.EndOfStream
If BackgroundWorker1.CancellationPending Then
Exit While
End If
CalculoTiempo.Reset()
CalculoTiempo.Start()
linea = RutaArchivo.ReadLine()
porcentaje += 1
cmd = New SqlCommand(linea, con)
cmd.CommandType = CommandType.Text
cmd.ExecuteNonQuery()
BackgroundWorker1.ReportProgress(porcentaje)
CalculoTiempo.Stop()
Threading.Thread.Sleep(CalculoTiempo.ElapsedMilliseconds)
End While
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
Label1.Text = "Ejecutados " & e.ProgressPercentage & " de " & Me.ProgressBar1.Maximum
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Label2.Text = "Proceso completado"
End Sub
Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
con.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.Open()
End Sub
End Class
CitarDim CalculoTiempo As New Stopwatch
Citar While Not RutaArchivo.EndOfStream
CalculoTiempo.Reset() 'Reseteamos el tiempo para la variable
CalculoTiempo.Start() 'iniciamos el valor para calcular el tiempo
linea = RutaArchivo.ReadLine() ' leemos la linea de la sentencia sql
porcentaje += 1 'aumentamos el porcentaje del progessbarr
cmd = New SqlCommand(linea, con) 'instanciamos la consulta en el sqlcommand
cmd.CommandType = CommandType.Text 'definimos el tipo de comando
cmd.ExecuteNonQuery() 'ejecutamos el comando
BackgroundWorker1.ReportProgress(porcentaje) 'enviamos el porcentaje al evento ProgressChanged del BackgroundWorker.
CalculoTiempo.Stop() 'detenemos el conteo de tiempo del proceso
Threading.Thread.Sleep(CalculoTiempo.ElapsedMilliseconds) 'pausa
End While
Citar Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
Label1.Text = "Ejecutados " & e.ProgressPercentage & " de " & Me.ProgressBar1.Maximum
End Sub