Ir al contenido principal

VB XML Literals - Parte 2

En la parte 1 de esta serie de posts sobre XML Literals expliqué en el ejemplo como cargar un objeto a partir de un archivo xml. Ahora veré el caso contrario: A partir de un objeto Order creare un archivo xml con la información de la orden. Este es el test con que comprobaré que mi método esta funcionando:

[TestMethod]
public void should_save_order_to_file()
{
var fileName = @"..\..\Order_Temp.xml";

if (File.Exists(fileName)) File.Delete(fileName);

var order = CreateSampleOrder();

var orderXmlTasks = new OrderXmlTasks();
orderXmlTasks.SaveToFile(fileName, order);

File.Exists(fileName).Should().Be.True();

var fileLines = File.ReadAllLines(fileName);
var expectedLines = CreateExpectedXml();
for (int i = 0; i < fileLines.Length; i++)
{
var line = fileLines[i].Trim();
line.Should().Be.EqualTo(expectedLines[i]);
}
}

public Order CreateSampleOrder()
{
return new Order
{
Id = 321,
Customer = "Peter Griffin",
Items = new List<OrderItem>
{
new OrderItem { ProductId = 3, Quantity = 1, Price = 2.05m, Description = "product x" },
new OrderItem { ProductId = 7, Quantity = 4, Price = 3.45m, Description = "product y" },
new OrderItem { ProductId = 8, Quantity = 9, Price = 5.50m, Description = "product z" },
}
};
}

public string[] CreateExpectedXml()
{
var xml = new List<string>();

xml.Add("<?xml version=\"1.0\" encoding=\"utf-8\"?>");
xml.Add("<order id=\"321\" xmlns=\"urn:schemas-developeando-com:xmlLiterals\">");
xml.Add("<customer>Peter Griffin</customer>");
xml.Add("<items>");
xml.Add("<item productId=\"3\" quantity=\"1\" price=\"2.05\">product x</item>");
xml.Add("<item productId=\"7\" quantity=\"4\" price=\"3.45\">product y</item>");
xml.Add("<item productId=\"8\" quantity=\"9\" price=\"5.50\">product z</item>");
xml.Add("</items>");
xml.Add("</order>");

return xml.ToArray();
}

Lo que hace el test es crear una orden de ejemplo (CreateSampleOrder), escribir los datos de la orden en un archivo xml y después leo el archivo generado y lo comparo con el xml esperado (CreateExpectedXml)

Generar xml usando XML Literals es tan simple como solo escribir el XML y agregar expresiones donde queremos insertar código. Entonces el código para que la prueba pase queda así:

Public Sub SaveToFile(ByVal FileName As String, ByVal Order As Order)
Dim xml = <order id=<%= Order.Id %>>
<
customer><%= Order.Customer %></customer>
<
items>
<%= From item In Order.Items _
Select <item
productId=<%= item.ProductId %>
quantity=<%= item.Quantity %>
price=<%= item.Price %>>
<%= item.Description %>
</item> %>
</items>
</
order>
xml.Save(FileName)
End Sub

Como se puede apreciar solo declaro una variable y le asigno el xml, usando expresiones para indicar donde quiero escribir los valores de las propiedades del objeto Order. Para los items utilizo una expresión LINQ para indicar que por cada item agregue un elemento <item> y asigno el valor a los atributos y el valor de la descripción en el texto interno.

Comentarios

Entradas más populares de este blog

Bloqueos

Una de las preguntas típicas de las juntas matutinas en los equipos de desarrollo de software es ¿Hay algún bloqueo? Si lo hay, se trata de ver qué es lo que está esperando esa persona y encontrar la forma de que se desbloquee; pero ¿Qué son los bloqueos? Los bloqueos son obstáculos que te impiden realizar o avanzar en tu trabajo. Evitan que puedas seguir progresando en el proyecto.

He notado que es común en las personas con menos experiencia decir que tienen un bloqueo cuando están batallando, debido a su poca experiencia, en la forma de resolver un problema. Han intentado varias formas y se empiezan a quedar sin ideas de como puede ser resuelto el problema o como pueden cumplir con el requerimiento especificado. Al quedarse sin opciones de qué intentar dicen que tienen un bloqueo con la tarea y que a menos que alguien les diga como resolverlo, no se puede avanzar en la tarea.

En personas con más experiencia, ese tipo de bloqueos no ocurren, una persona con experiencia ha visto pro…

Firebird 2.1 UPDATE OR INSERT

Another great feature that I like in Firebird 2.1 is the UPDATE OR INSERT statement. It's a really time saver and it makes the SQL cleaner.

For example suppose I have a products table like the one I use in my last post and an inventory table to store the product stock. Before Firebird 2.1 if I want to set the stock for a product I needed to check if a record for that product_id already exists; if the product_id already exists then I write an update. If not then I write an insert statement. So I ended up with something like this:


IF EXISTS(SELECT * FROM inventory WHERE product_id = :product_id ) THEN
UPDATE
inventory
SET
stock = :stock
WHERE
product_id = :product_id;
ELSE
INSERT INTO inventory
(product_id, stock)
VALUES
(:product_id, :stock);

In this example I only update one field but when I have to update a big table I ended up with a big chunk of code and thinking: "there should be another (better) way to do this".

Fortunately now with Firebird 2.1 there…

Database Mail en MS SQL Server 2005

Configuración de Database Mail en MS SQL Server 2005

Primero se debe de habilitar, ya que por omisión el componente esta deshabilitado, Utilizando el SSMS (SQL Server Management Studio)


Si no esta habilitado aparecerá un mensaje preguntado si lo habilita, después aparece esta ventana donde se pregunta al usuario que es lo desea hacer.


Seleccionamos la primera opción para crear un perfil.


Configuramos el perfil y le agregamos por lo menos una cuenta.


Seleccionamos el perfil como public y default.


Para mandar correo se utiliza el procedimiento msdb.sp_send_dbmail por lo tanto el usuario que intente mandar correo debe de tener permiso para la base de datos msdb.

Referencias:
http://www.sqlservercentral.com/columnists/cBunch/introtodatabasemailinsql2005.asp