Tutorials Desarrollo - ASP.NET (Visual Basic)

   1:  using System.Data;

   2:  using System.Data.OleDb;

   3:  using System.Xml;

   1:  Imports System.Data

   2:  Imports System.Data.OleDb

   3:  Imports System.Xml

   1:  //Definición de la conexión de tren a la base de datos ACCESS

   2:  OleDbConnection connection = new OleDbConnection();

   3:  //Se establece la cadena de conexión

   4:  connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Database\\DatabaseCliente.mdb";

   5:  //Está conectado a la base de datos de MS Access Origen

   6:  connection.Open();

   1:  'Definición de la conexión de tren a la base de datos ACCESS

   2:  Dim connection As New OleDbConnection

   3:  'Se establece la cadena de conexión

   4:  connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\DatabaseCliente.mdb"

   5:  'Está conectado a la base de datos de MS Access Origen

   6:  connection.Open()

   1:  //Se encuentran todos los registros en la tabla de usuarios

   2:  string sql = "SELECT * FROM Utenti ORDER BY id ASC";

   3:  //Ejecuta la consulta, tal como se define más arriba y un DataAdapter llena de todos los registros que este retorno

   4:  OleDbDataAdapter adapter = new OleDbDataAdapter(sql, connection);

   5:  //Se está creando y llena un DataSet con los datos cargados en nuestra DataAdapter

   6:  DataSet dataset = new DataSet();

   7:  adapter.Fill(dataset);

   8:  //Se le asigna el nombre del nodo raíz del documento XML que se genera

   9:  dataset.DataSetName = "ListaUtenti";

  10:  //Se le asigna el nombre del padre que corresponde a cada usuario

  11:  dataset.Tables[0].TableName = "Utente";

  12:  //Ahora, el documento XML generado con los datos de población y de recuperar el DataSet que acaba de crear

  13:  XmlDocument xmlDoc = new XmlDataDocument(dataset);

  14:  //Por último, guarde el nuevo documento XML generado con todos los registros tomados de la tabla del usuario

  15:  xmlDoc.Save(Server.MapPath("dati/Utenti.xml"));

   1:  'Se encuentran todos los registros en la tabla de usuarios

   2:  Dim sql As String = "SELECT * FROM Utenti ORDER BY id ASC"

   3:  'Ejecuta la consulta, tal como se define más arriba y un DataAdapter llena de todos los registros que este retorno

   4:  Dim adapter As New OleDbDataAdapter(sql, connection)

   5:  'Se está creando y llena un DataSet con los datos cargados en nuestra DataAdapter

   6:  Dim dataset As New DataSet

   7:  adapter.Fill(dataset)

   8:  'Se le asigna el nombre del nodo raíz del documento XML que se genera

   9:  dataset.DataSetName = "ListaUtenti"

  10:  'Se le asigna el nombre del padre que corresponde a cada usuario

  11:  dataset.Tables(0).TableName = "Utente"

  12:  'Ahora, el documento XML generado con los datos de población y de recuperar el DataSet que acaba de crear

  13:  Dim xmlDoc As New XmlDataDocument(dataset)

  14:  'Por último, guarde el nuevo documento XML generado con todos los registros tomados de la tabla del usuario

  15:  xmlDoc.Save(Server.MapPath("dati/Utenti.xml"))