Problema al aumentar Folio
Publicado por Carlos (5 intervenciones) el 11/02/2015 18:49:08
Buen día tengan todos.
Tengo un problema y espero me puedan ayudar a solucionarlo, se trata de lo siguiente:
Tengo una tabla la cual va agregando Folios automáticamente, todo parece bien, agrego los primeros datos del usuario y empieza en 1, al siguiente me cambia a 2.... pero, a la siguiente vez, no cambia, se repite el Folio 2 y no importa cuantos más agregue siempre es Folio 2.
Espero me puedan dar una idea de que es lo que estoy haciendo mal, les dejo el código y espero me puedan ayudar. Soy nuevo en esto y talvez sea algo a simple vista hehehe.
Dim cn2 As New SqlConnection
cn2.ConnectionString = cadenaConexion
Dim cmd2 As New SqlCommand()
cmd2.CommandText = "SELECT TOP 1 Folio from Tramite"
cmd2.Connection = cn2
cn2.Open()
Dim dr As SqlDataReader
dr = cmd2.ExecuteReader
While dr.Read
Label1.Text = Val(dr("Folio")) + 1
End While
Saludos. (:
Tengo un problema y espero me puedan ayudar a solucionarlo, se trata de lo siguiente:
Tengo una tabla la cual va agregando Folios automáticamente, todo parece bien, agrego los primeros datos del usuario y empieza en 1, al siguiente me cambia a 2.... pero, a la siguiente vez, no cambia, se repite el Folio 2 y no importa cuantos más agregue siempre es Folio 2.
Espero me puedan dar una idea de que es lo que estoy haciendo mal, les dejo el código y espero me puedan ayudar. Soy nuevo en esto y talvez sea algo a simple vista hehehe.
Dim cn2 As New SqlConnection
cn2.ConnectionString = cadenaConexion
Dim cmd2 As New SqlCommand()
cmd2.CommandText = "SELECT TOP 1 Folio from Tramite"
cmd2.Connection = cn2
cn2.Open()
Dim dr As SqlDataReader
dr = cmd2.ExecuteReader
While dr.Read
Label1.Text = Val(dr("Folio")) + 1
End While
Saludos. (:
Valora esta pregunta
0