• Author / Uploaded
• RodrigoAguileraTapia

Citation preview

Acceso desconectado a Datos. Rodrigo Aguilera Tapia Programación .NET II Instituto IACC 06 de enero de 2020

1. Parte 1: Durante las vacaciones de invierno se llevarán a efecto diversas actividades para niños, y a Ud. se le encarga proveer la información sobre dichas actividades: Se solicita desarrollar una aplicación que permita:

a. Acceder al archivo con las estadísticas de la liga (que está en los recursos adicionales de la semana identificado como actividad.xml) y mostrar su contenido en una grilla. Private Sub btMostrarDG_Click_1(sender As Object, e As EventArgs) Handles btMostrarDG.Click Dim xmlFile As XmlReader xmlFile = XmlReader.Create("actividad.xml", New XmlReaderSettings()) Dim ds As New DataSet ds.ReadXml(xmlFile) DataGridView1.DataSource = ds.Tables(0) End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim miStreamReader As StreamReader If (ofdArchivo.ShowDialog() = Windows.Forms.DialogResult.OK) Then txRuta.Text = ofdArchivo.FileName miStreamReader = New StreamReader(ofdArchivo.FileName) While miStreamReader.Peek() -1 TxMuestraContenido.Text = TxMuestraContenido.Text + miStreamReader.ReadLine() & vbCrLf End While End If End Sub End Class

b. Leer la grilla y escribir en un archivo de texto, las actividades que se llevarán a efecto indicando el Id de la actividad, el Id de la sala, el nombre de la actividad y la descripción. El archivo debe quedar en C:\Control8\actividades_nombre_apellido.txt Private Sub btEscribir_Click(sender As Object, e As EventArgs) Handles btEscribir.Click Dim writer As TextWriter = New StreamWriter("C:\Control8\actividades_Rodrigo_Aguilera.txt") For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1 For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1 writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & "|") Next writer.WriteLine("") writer.WriteLine("-------------------------------------------") Next writer.Close() MessageBox.Show("Datos escritos en TXT") End Sub

c. Leer la grilla y escribir un archivo XML que contenga Id de la actividad, la URL, el nombre de la actividad, la descripción y el valor de la entrada, que corresponde a un número aleatorio entre $1000 y $5000. El archivo debe quedar en C:\Control8\actividades_nombre_apellido.xml Private Sub btMostrarXml_Click_1(sender As Object, e As EventArgs) Handles btMostrarXml.Click Dim miWriter As XmlWriter = XmlWriter.Create("C:\Control8\actividades_Rodrigo_Aguilera.xml") miWriter.WriteStartDocument() miWriter.WriteStartElement("actividades") Dim valEntrada As String For fila As Integer = 0 To DataGridView1.Rows.Count - 1 If DataGridView1.Rows.Item(fila).Cells(0).Value "" Then miWriter.WriteStartElement("actividad") valEntrada = DataGridView1.Rows.Item(fila).Cells(0).Value miWriter.WriteElementString("ValorEntrada", valEntrada) miWriter.WriteEndElement() End If Next miWriter.WriteEndElement() miWriter.WriteEndDocument() miWriter.Close() MessageBox.Show("Se creó el archivo actividades_Rodrigo_Aguilera.xml") End Sub End Class

2. Parte 2: Busque en su equipo algún archivo de configuración en formato .xml.

a. Identifique una parte de él e indique para qué se usaría.

Psalm es un archivo de configuración XML