Como incrementar un textbox automáticamente tirando de una base de datos
Publicado por Alejandro (1 intervención) el 04/06/2017 09:09:37
Tengo un texbox que se aumenta cada vez que le meto un registro nuevo a la base de datos. Me funciona bien hasta que llego a 10 luego no se aumenta, el código que he introducido es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim resultado_num As String = ""
Dim query_num As String = "SELECT MAX(id)FROM cetelem"
Dim comando_num As OleDbCommand
Dim lector_num As OleDbDataReader
comando_num = New OleDbCommand(query_num, conexion)
lector_num = comando_num.ExecuteReader
If lector_num.Read Thenresultado_num = lector_num(0).ToString
End If
lector_num.Close()
txtcodigo.Text = resultado_num
If txtcodigo.Text = Nothing Then
txtcodigo.Text = 0
End If
txtcodigo.Text = Val(txtcodigo.Text) + 1
Valora esta pregunta
0