Parte de un tutorial en curso. Esta lección es parte de una tutoría continua. El La primera parte está aquí:
Codificando sus propios proyectos de bases de datos VB .NET
En la última lección, se configura un formulario con cuatro botones y dos cajas de texto. En esta lección, ...agregarás el código de los botones.
Cómo avanzar un registro a la vez
Haz doble clic en el botón Siguiente registro para acceder al código. Añade lo siguiente Si... Otra declaración:
Si inc inc; MaxRows - 1 Entonces
inc = inc + 1
NavigateRecords()
Else
MessageBox.Show("No More Rows")
Finalizar si
Estamos comprobando si el valor en inc no es igual al valor en MaxRows - 1. Si ambos son iguales entonces sabemos que hemos llegado al último registro en el DataSet. En ese caso, sólo mostramos un cuadro de mensajes. Si ellos no son iguales, estas dos líneas se ejecutan:
inc = inc + 1
NavigateRecords()
Primero, movemos el contador inc en uno. Luego llamamos al Sub que pusimos arriba:
NavigateRecords()
Nuestra subrutina es donde la acción tiene lugar, y los valores del DataSet se colocan en las cajas de texto. Aquí está otra vez:
Private Sub NavigateRecords()
txtNombreDePrimeraTexto.Texto = ds.Tablas("LibroDeDirecciones").Filas(inc).Artículo(1)
txtApellido.Texto = ds.Tablas("Libro de direcciones").Filas(inc).Artículo(2)
End Sub
La parte que mueve el disco hacia adelante (y hacia atrás pronto) es esta parte:
Rows( inc )
Anteriormente, codificamos esto con:
Filas( 0 )
Ahora el valor viene de la variable llamada inc . Porque estamos incrementando esta variable con código, el valor cambiará cada vez que el botón se hace clic. Y así se mostrará un registro diferente.
Puedes probar el botón Siguiente. Ejecute su programa y haga clic en el botón. Ahora debería poder avanzar a través del DataSet. Cuando llegue a al final, deberías ver el cuadro de mensajes que muestra "No más filas".
Ninguno de los otros botones funcionará todavía, por supuesto. Así que vamos a retroceder.
Retroceder un registro a la vez
Para retroceder a través del DataSet, necesitamos disminuir el inc contador. Todo lo que esto significa es deducir 1 de lo que sea que esté actualmente en inc.
Pero también tenemos que comprobar que inc no pasa de cero, que es la primera registro en el DataSet. Aquí está el código para añadir a su btnAnterior :
Si se incentiva; 0 Entonces
inc = inc - 1
NavigateRecords()
Else
MessageBox.Show("First Record")
Finalizar si
Así que la sentencia If comprueba primero que inc es mayor que cero. Si es, inc. se le deduce 1. Entonces se llama a la subrutina NavigateRecords(). Si inc es cero o menos, entonces mostramos un mensaje.
Cuando termine de agregar el código, pruebe su programa. Haga clic en el botón anterior primero el botón. El cuadro de mensajes debería aparecer, aunque no haya registros cargados en los cuadros de texto. Esto se debe a que la variable inc tiene un valor de -1 cuando la forma se carga por primera vez. Sólo se mueve a cero cuando la siguiente se hace clic en el botón. Podrías enmendar tu declaración de IF a esto:
Si se incentiva; 0 Entonces
inc = inc - 1
NavigateRecords()
ElseIf inc = -1 Entonces
MessageBox.Show("No Records Yet")
ElseIf inc = 0 Then
MessageBox.Show("First Record")
Finalizar si
Esta nueva declaración de Si ahora comprueba si inc es igual a menos 1, y muestra un mensaje si lo hace. También comprueba si inc es igual a cero, y muestra el cuadro de mensajes de "Primera grabación".
Pasando al último registro del conjunto de datos
Para saltar al último registro del DataSet, sólo necesitas saber cuántos registros se han cargado en el DataSet - la variable MaxRows en nuestro código. Entonces puedes establecer el inc (tixag__13 código para añadir a tu btnÚltimo :
Si inc inc; MaxRows - 1 Entonces
inc = MaxRows - 1
NavigateRecords()
Finalizar si
La razón por la que decimos MaxRows - 1 es que la cuenta de filas podría ser 5, pero el primer registro del DataSet comienza en cero. Así que el número total de registros sería de cero a 4. Dentro de la Declaración de Si, estamos estableciendo el inc contador a MaxRows - 1, luego llamando a la subrutina NavigateRecords().
Es todo lo que tenemos que hacer. Así que ejecuta tu programa. Haga clic en el último botón, y debería ver el último registro mostrado en sus cuadros de texto.
Pasando al primer registro del conjunto de datos
Pasar al primer registro es bastante sencillo. Sólo tenemos que establecer el inc a cero, si no está ya en ese valor. Entonces llama al Sub:
Si se inc.; 0 Entonces
inc = 0
NavigateRecords()
Finalizar si
Añade el código a tu btnFirst . Ejecute su programa y pruebe todos los tus botones. Deberías ser capaz de moverte a través de los nombres en la base de datos, y saltar al primer y último disco.
Sin embargo, todavía no tenemos una forma de añadir nuevos registros, de actualizar los registros, o para borrarlos. Hagamos eso a continuación.
Aprenda a añadir, actualizar y eliminar registros --;
Espero que te haya sido de ayuda!
Recomendado para ti
