Lec 36

Visual Basic 2015 Lección 36: Navegación y edición de datos

En lecciones anteriores, usted ha aprendido cómo conectarse a una base de datos, así como llenar la tabla con los datos en Visual Basic 2015, ahora deberá aprender a manipular los datos en la base de datos. 

La manipulación de los datos significa añadir registros de usuarios, la edición de registros, eliminar registros, los registros de navegación y mucho más.

36.1 recorrido por los registros

En la lección anterior, hemos aprendido cómo se mostrará el primer registro utilizando el procedimiento showRecords sub. En esta lección, vamos a crear botones de comando y escribir códigos pertinentes para permitir al usuario navegar por los registros hacia adelante y hacia atrás, así como el avance rápido hasta el último registro y de vuelta al primer botón primera record.The necesitamos crear es para el usuario navegar por el primer registro. 

Podemos utilizar el texto del botón << para indicar al usuario que es el botón para desplazarse al primer registro y el texto del botón >> para mover al último registro. Además podemos utilizar el texto del botón <para mover al registro anterior y el texto del botón> para mover al siguiente registro.

El código para mover al primer registro es:
MyRowPosition = 0
Me.showRecords ()
El código para mover al registro anterior es:
Si MyRowPosition> 0 Then
MyRowPosition = MyRowPosition - 1
Me.showRecords ()
Terminara si
El código para mover al siguiente registro es:
Si MyRowPosition <(MyDataTbl.Rows.Count - 1) A continuación,
MyRowPosition = MyRowPosition + 1
Me.showRecords ()
Terminara si

El código para mover al último registro es:

Si MyDataTbl.Rows.Count> 0 Then
MyRowPosition = MyDataTbl.Rows.Count - 1
Me.showRecords ()
Terminara si

36.2 Edición, guardar, añadir y eliminar registros

Puede editar cualquier registro, vaya hasta el registro y cambiar los valores de los datos. Sin embargo, es necesario guardar los datos después de la edición de ellos. Es necesario utilizar el método de actualización de la SqlDataAdapter para guardar los datos. El código es:

Si MyDataTbl.Rows.Count <> 0 Then
MyDataTbl.Rows (MyRowPosition) ( "NombreContacto") = txtName.Text
MyDataTbl.Rows (MyRowPosition) ( "Estado") = txtState.Text
MyDatAdp.Update (MyDataTbl)
Terminara si
También puede agregar registro nuevo o una nueva fila a la tabla usando el siguiente código:
Dim MyNewRow Como DataRow = MyDataTbl.NewRow ()
MyDataTbl.Rows.Add (MyNewRow)
MyRowPosition = MyDataTbl.Rows.Count - 1
Me.showRecords ()

El código anterior presentará un nuevo registro con campos en blanco para que el usuario introduzca los nuevos datos. Una vez introducidos los datos, él o ella puede entonces hacer clic en el botón Guardar para guardar los datos.

Por último, el usuario podría querer borrar los datos. El código para eliminar los datos es:

Si MyDataTbl.Rows.Count <> 0 Then
MyDataTbl.Rows (MyRowPosition) .Delete ()
MyDatAdp.Update (MyDataTbl)
MyRowPosition = 0
Me.showRecords ()
Terminara si

La interfaz del programa básico de Visual 2015 la base de datos se muestra a continuación:

El código

Public Class Form1
MyDatAdp privada como nuevo SqlDataAdapter
MyCmdBld privada como nuevo SqlCommandBuilder
MyDataTbl privada como nuevo DataTable
Mi CN privadas como nuevo SqlConnection
MyRowPosition privada As Integer = 0

Private Sub Form1_FormClosed (remitente como objeto, e como FormClosedEventArgs) Maneja Me.FormClosed

MyCn.Close ()
MyCn.Dispose ()
End Sub
Private Sub Form1_Load (remitente como objeto, e como EventArgs) Maneja MyBase.Load
MyCn.ConnectionString = "Data Source = TOSHIBA-PC \ SQL2012; AttachDBFileName = C: \ Archivos de programa \ Microsoft SQL Server \ MSSQL11.SQL2012 \ MSSQL \ DATA \ Test.mdf; "& _
"La instancia de usuario = true; Integrado de Seguridad = SSPI"
MyCn.Open ()

MyDatAdp = New SqlDataAdapter ( "SELECT * FROM Contactos", Mi CN)
MyCmdBld = Nueva SqlCommandBuilder (MyDatAdp)
MyDatAdp.Fill (MyDataTbl)

MyDataRow dévil como DataRow = MyDataTbl.Rows (0)
Dim como secuencia strNombre
Dim como secuencia strState
strNombre = MyDataRow ( "NombreContacto")
strState = MyDataRow ( "Estado")
TxtName.Text = strName.ToString
TxtState.Text = strState.ToString
Me.showRecords ()

End Sub
showRecords Private Sub ()

Si MyDataTbl.Rows.Count = 0 Entonces
txtName.Text = ""
txtState.Text = ""
Exit Sub
Terminara si

txtName.Text = MyDataTbl.Rows (MyRowPosition) ( "NombreContacto"). ToString
TxtState.Text = MyDataTbl.Rows (MyRowPosition) ( "Estado"). ToString
End Sub

Private Sub BtnMoveFirst_Click (remitente como objeto, e como EventArgs) Maneja BtnMoveFirst.Click
MyRowPosition = 0
Me.showRecords ()
End Sub

Private Sub BtnMovePrev_Click (remitente como objeto, e como EventArgs) Maneja BtnMovePrev.Click
Si MyRowPosition> 0 Then
MyRowPosition = MyRowPosition - 1
Me.showRecords ()
Terminara si
End Sub

Private Sub BtnMoveNext_Click (remitente como objeto, e como EventArgs) Maneja BtnMoveNext.Click
Si MyRowPosition <(MyDataTbl.Rows.Count - 1) A continuación,
MyRowPosition = MyRowPosition + 1
Me.showRecords ()
Terminara si
End Sub

Private Sub BtnMoveLast_Click (remitente como objeto, e como EventArgs) Maneja BtnMoveLast.Click
Si MyDataTbl.Rows.Count> 0 Then
MyRowPosition = MyDataTbl.Rows.Count - 1
Me.showRecords ()
Terminara si
End Sub

Private Sub BtnAdd_Click (remitente como objeto, e como EventArgs) Maneja BtnAdd.Click
Dim MyNewRow Como DataRow = MyDataTbl.NewRow ()
MyDataTbl.Rows.Add (MyNewRow)
MyRowPosition = MyDataTbl.Rows.Count - 1

Me.showRecords ()
End Sub

Private Sub BtnDelete_Click (remitente de ByVal como objeto, ByVal e As EventArgs) Maneja BtnDelete.Click
Si MyDataTbl.Rows.Count <> 0 Then
MyDataTbl.Rows (MyRowPosition) .Delete ()
MyRowPosition = 0
MyDatAdp.Update (MyDataTbl)
Me.showRecords ()
Terminara si
End Sub

Private Sub btnSave_Click (remitente de ByVal como objeto, ByVal e As EventArgs) Maneja BtnSave.Click

Si MyDataTbl.Rows.Count <> 0 Then
MyDataTbl.Rows (MyRowPosition) ( "NombreContacto") = TxtName.Text
MyDataTbl.Rows (MyRowPosition) ( "Estado") = TxtState.Text
MyDatAdp.Update (MyDataTbl)
Terminara si

End Sub
End Class



Figura 36.1