SQLServer. Columna(s) que forman la clave principal

Hola.

Bonita y elegante SQL que, tirando de las vistas de sistema, obtiene el nombre de las columnas que componen la clave principal (primary key para los amigos) de una tabla (en este caso la tabla 'PERSONA'):

SELECT i.name AS nombre, ic.column_id as numCampo, c.name as nombreCampo
FROM (sys.indexes AS i inner join sys.index_columns AS ic on i.object_id=ic.object_id
and i.index_id=ic.index_id) inner join sys.columns c on i.object_id=c.object_id
and ic.column_id=c.column_id
where i.object_id = OBJECT_ID('dbo.PERSONA') and i.is_primary_key=1

Hale!

WinForms. Controlar fin de carga de CrystalReportViewer

Tenemos un rpt que vamos a visualizar en un crystalReportViewer (crv) de nuestro WinForm. Y queremos controlar que mientras se monta el listado el usuario tenga un bonito reloj de arena dando vueltas en su pantalla. Parece sencillo:

Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Me.Cursor = Cursors.WaitCursor
rpt.Load(rutaRpt, CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)
rpt.SetDataSource(ds)
crv.ReportSource = rpt
Me.Cursor = Cursors.default

Al ejecutarlo nos damos cuenta de que en realidad el reloj de arena desaparece mucho antes de que el listado esté montado en la pantalla (obviamente esto sólo lo podemos apreciar si el listado es "pesado" de carga). Putada. Buscamos un evento que se nos dispare al terminar de armar el crystalReportViewer. Vaya, hay uno (AfterRender), pero sólo para el viewer de web. PUTADA de las gordas...

Pues si no hay solución elegante habrá que buscar una solución rastrera. ¿Y si intentamos paginar entre la asignación del ReportSource y la desaparición del reloj de arena?

Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Me.Cursor = Cursors.WaitCursor
rpt.Load(rutaRpt, CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy)
rpt.SetDataSource(ds)
crv.ReportSource = rpt
crv.ShowFirstPage()
Me.Cursor = Cursors.default

Pues funciona. Menuda chorrada. Vamos a tomarnos unas cañas.

Invocar webservice con HTTP GET/POST

La manera habitual de consumir un webservice .NET es mediante el protocolo SOAP. Pero hay casos en los que implementar las llamadas en dicho protocolo puede resultar bastante costoso, como por ejemplo si queremos hacer la llamada directamente desde el cliente o desde una página ASP clásica (no .NET).

La solución es invocar el webservice usando HTTP GET y POST. En el framework 1.0 esta posibilidad estaba activa por defecto, pero a partir del 1.1 está deshabilitada por cuestiones de seguridad. Así que lo primero que hay que hacer es habilitar explícitamente esta posibilidad. En el webconfig del sitio donde resida el webservice hay que añadir lo siguiente dentro del nodo <system.web>:

<webServices>
    <protocols>
        <add name="HttpGet"/>
        <add name="HttpPost"/>
    </protocols>
</webServices>

Una vez realizado esto ya podemos comprobar que ya podemos invocar a nuestro webservice desde un navegador en cualquier cliente, tecleando la siguiente url:

http://servidor/nombreWebService.asmx/nombreMetodo?parametro1=valor1¶metro2=valor2(...)

Lo que nos aparecerá en el navegador es el chorro XML que nos devuelve el webservice.

Pues ya somos capaces de invocar a nuestro webservice usando HTTP GET y HTTP POST, pero eso lo explica mucho mejor que yo Juan Peláez en su blog.

(Gracias a Juan Carlos por el enlace)

ASP.NET. Añadir meta "refresh" desde código

Una manera de redireccionar a otra página pasados n segundos, y poder establecer la url de manera dinámica:

En el page_load de la página inicial ponemos:

Dim urlTmp as string="nuevaPagina.aspx?id=" & _
Request.QueryString("id")

Dim mt As New HtmlMeta
mt.Attributes.Add("http-equiv", "refresh")
mt.Attributes.Add("content", "5;url=" & urlTmp)

Me.Header.Controls.Add(mt)

De esta manera, a los 5 segundos seremos redireccionados directamente a nuevaPagina.aspx, pasándole como id el mismo que tuviésemos en la página inicial.

Si nuestra página tiene masterpage, hay que usar

Me.Master.Page.Header.Controls.Add(mt)

Hale!

ASP.NET. Conservar SelectCommand de SqlDatasource entre postbacks

Todos hemos flipado la primera vez que en dos patadas hemos enganchado un SqlDataSource a un GridView y automáticamente hemos obtenido contenido de la b.d. en nuestro grid, siendo capaces de paginarlo, ordenarlo... todo funciona de maravilla con el SelectCommand del SqlDataSource que hemos establecido en tiempo de diseño.

El siguiente paso es modificar ese SelectCommand en función de los criterios aportados por el usuario. Ponemos el típico botón buscar y en su evento "click" construimos nuestro SelectCommand. La primera página del grid se carga correctamente, pero si intentamos paginar ya la cosa se fastidia...

Esto es debido a que, por razones obvias de seguridad, el control SqlDataSource no guarda por defecto ninguno de sus comandos (select, update, etc...) en el ViewState. Como consecuencia, su contenido no se conserva entre postbacks, y es necesario almacenarlo de alguna manera y asignarlo en cada load si queremos que perdure.

Una manera de hacerlo es usar el propio viewstate, pero teniendo la precaución indispensable de encriptarlo. Para ello añadimos en la directiva page de nuestro aspx:

ViewStateEncryptionMode="Always"

En el click del botón construimos el selectCommand y lo almacenamos en el viewstate:

Protected Sub btBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ViewState("selectGrid") = "select * from tabla"
SqlDataSource1.SelectCommand = ViewState("selectGrid")
End Sub

Para recuperarlo en el load de la página:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not ViewState("selectGrid") Is Nothing Then
SqlDataSource1.SelectCommand = ViewState("selectGrid")
End If
End Sub

WinForms. Ocultar TabPage de un TabControl

Con lo fácil que sería que cada TabPage tuviese una propiedad "visible". Pues no.

Para ocultar un TabPage:

TabPage.Parent = nothing

Para volverlo a mostrar:

TabPage.Parent = TabControl

Hale!

CrystalReportViewer. Establecer zoom desde código.

Poner el zoom en ancho de página:

CrystalReportViewerX.Zoom(1)

Poner el zoom en página completa:

CrystalReportViewerX.Zoom(2)

Fácil, ¿verdad?

Winforms. Poner un ComboBox en modo "sólo lectura"

Una de winforms.

Ante la inexistencia de una propiedad ReadOnly en el ComboBox, análoga al del TextBox, la única solución para bloquear la entrada de un usuario en un combo es usar el enabled=false, lo que provoca efectivamente que el control no admita entradas pero que tampoco admita ser leído con claridad. Que al ponerse gris no se ve una mierda, vaya.

Pues nada, a montarse una pajilla mental de cómo simular el ReadOnly del TextBox en un ComboBox:

Private Sub proteger()
  ComboBox1.DropDownStyle = ComboBoxStyle.Simple
  AddHandler ComboBox1.KeyDown, AddressOf Me.DesactivarTeclas
End Sub

Private Sub desproteger()
    ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    RemoveHandler ComboBox1.KeyDown, AddressOf Me.DesactivarTeclas
End Sub

Private Sub DesactivarTeclas(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
    e.SuppressKeyPress = True
End Sub

Cuidado si en el formulario hay eventos asociados a la pulsación de teclas, caso en el que habría que personalizar la aplicación del suppressKeyPress en el procedimiento DesactivarTeclas.

Crystal Report. Ocultar cabecera de página cuando no hay detalle.

Típico listado de campos en columna, con una cabecera para cada columna y una línea de detalle por cada registro. También tenemos un ReportFooter con una firma. Queremos que si el detalle ocupa varias páginas la cabecera se repita en todas ellas. Sin problemas: creamos un PageHeader con nuestra cabecera de columnas.

El problema con este diseño viene cuando el reportFooter salta de página pero las líneas de detalle se quedan en la página anterior: tendremos una última página con el ReportFooter coronado con una bonita cabecera de columnas (el contenido del PageHeader) pero sin lineas de detalle.

Para solucionarlo hay que montarse una buena pajilla mental:

En el reportHeader poner esta fórmula oculta:

NumberVar x := 9999; //poner un número tan grande como el máx número de páginas previsto

En la sección de detalle, poner esta fórmula, oculta también:

NumberVar x;
If OnLastRecord and PageNumber < TotalPageCount Then x := PageNumber

Y al PageHeader poner en la fórmula asociada a su supresión:

NumberVar x;
PageNumber > x

Básicamente lo que hacemos es guardarnos el número de página en el que se acaba el detalle y usarlo para no imprimir la cabecera.(Solución copiada de aquí)

Si existe una solución más fácil ya saben, a comentarla.

Campo de GridView con enlace a valor del campo. 2ªparte (imagen con enlace)

Si queremos tener una imagen con enlace en una columna de un gridview y que el enlace dependa de un dato de nuestra base de datos, tenemos que añadir una columna TemplateField al gridview. Este TemplateField deberá contener un objeto HyperLink en el que definimos el enlace mediante una cadena de formato y en el que referenciamos el campo de la tabla (mediante {0}).

En la vista código veríamos algo parecido a lo siguiente :

<Columns>

...

<asp:TemplateField HeaderText="ImagenConEnlace">

<ItemTemplate>

<asp:HyperLink ID="HL_ImagenConEnlace" runat="server"

ImageUrl="~/carpeta1/imagenMostradaEnGridview.gif"

Text='texto_mostrado_cuando_el_raton_esta_sobre_la_imagen'

Target="_blank"

NavigateUrl='<%# Eval("nombre_campo_tabla", "~/carpeta2/{0}") %>'>

</asp:HyperLink>

</ItemTemplate>

</asp:TemplateField>

...

</Columns>

(Análogamente, podemos hacer que la imágen mostrada dependa de un campo de la tabla empleando también una cadena de formato)

Numerar las filas de una tabla (se puede utilizar para implementar la paginación de un datalist)

Para ello se utiliza una claúsula nueva de SQL SERVER 2005 para numerar las filas : ROW_NUMBER() OVER (ORDER BY campo)

Si queremos filtrar por el número de fila es necesario crear una tabla temporal mediante la instrucción : WITH tabla_temporal AS (sentencia SQL)

En el ejemplo siguiente creamos un procedimiento almacenado que tiene dos parámetros para indicar el rango de filas que queremos devolver.

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
CREATE PROCEDURE [dbo].[prueba]
@inicio INT,
@fin INT
AS
BEGIN
SET NOCOUNT ON;

WITH consultaTMP AS
(SELECT pro_id, ROW_NUMBER() OVER (ORDER BY pro_id) AS posicion
FROM dbo.provincias)

SELECT pro_id, posicion
FROM consultaTMP
WHERE posicion BETWEEN @inicio AND @fin
END

Averiguar último identificador insertado en una tabla

Cuando en una base de datos SQL Server se inserta un campo en un tabla de tipo int y se le especifica la propiedad indentidad a Sí, en ocasiones es necesario averiguar cuál fue el último valor.

Para ello, un ejemplo vale más que mil palabras.

Dim CadenaConexion As String
Dim cmd As SqlCommand
Dim x As Integer
Dim
cnn As SqlConnection = New SqlConnection()
Dim sqlStr As
String
CadenaConexion =
ConfigurationManager.ConnectionStrings("micadenilladeconexion").ConnectionString
cnn.ConnectionString
= CadenaConexion
sqlStr = "INSERT INTO PERSONA (Nombre) VALUES (@nombre);"
& _
"SELECT @UltimoId=SCOPE_IDENTITY() FROM PERSONA"
cmd = New
SqlCommand(sqlStr, cnn)
cmd.Parameters.Add("@nombre",
SqlDbType.NVarChar).Value = "Diego"
cmd.Parameters.Add("@UltimoId",
SqlDbType.Int).Direction =
ParameterDirection.Output
cnn.Open()
Try
cmd.ExecuteScalar()
x =
CType(cmd.Parameters("@UltimoId").Value, Integer)
Response.Write("VALOR
ULTIMO ID: " & x & " <==") Catch Excepcion As Exception Throw New Exception("Error al insertar datos", Excepcion) Finally cnn.Close() End Try

Oracle to_number() y error ORA-01722: invalid number

El escenario es el siguiente: tenemos una tabla t con un campo codOpe que es un código de operación y un campo infoOpe que es información sobre la operación. Ambos son varchar, pero sabemos que para un determinado valor de codOpe ('PR') el contenido de infoOpe siempre es numérico, sin excepciones, aunque para otros valores de codOpe no tiene porqué serlo.

Creamos una vista para explotar las operaciones de tipo 'PR':

create view opePR as
select to_number(infoOpe) as infoOpeNum from t
where codOpe='PR'

Perfecto. Oracle es la hostia y funciona al pelo. La vista me devuelve tantas filas como operaciones PR's tengo en mi tabla. Ahora quiero saber cuantos PR's tengo con infoOpe mayor que 100. Vamos a usar nuestra vista:

select * from opePR where infoOpeNum>100

Cuando lanzamos la sentencia Oracle (9.2) nos devuelve un bonito error:

ORA-01722: invalid number

Jarl. Oracle ya no es la hostia. Si la consulta nos devuelve sólo valores numéricos... ¿por qué nos falla cuando escribimos el where?...

El origen del problema es el optimizador de consultas de Oracle. El tener la vista almacenada no significa que primero se ejecute su where (el que nos asegura que el campo es numérico) y luego el where externo, sino que el optimizador combina ambos where para que el plan de ejecución de la consulta sea lo más eficiente posible, y conseguir así una consulta eficiente pero con un pequeño problema: que no funciona.

Solución: indicarle al optimizador que no mezcle los "where":

select /*+ NO_MERGE(t) */
from opePR t where infoOpeNum>100

La consulta será ineficiente, pero funciona, coño. Oracle vuelve a ser la hostia.

Evolución .net versus Crystal Report

Clarificador diagrama:

Visual Studio 2005 y Delphi 2005. Efectos colaterales.

Si se te ocurre instalarte el VS2005 teniendo el Delphi 2005 instalado, la próxima vez que arranques tu Delphi te dará un bonito error diciendo que no puede cargar htmlhelp290.bpl. Pues bueno, que se quede sin cargar. Luego comprobarás que la consecuencia de este mensajito es que te deja de funcionar la ayuda. Vaya, pues había que cargarla.

La solución está en meterse en el registro de windows y:

En HKEY_CLASSES_ROOT\AppID\DExplore.exe, machacar el valor de la clave "AppId" poniendo

{4A79114D-19E4-11d3-B86B-00C04F79F802}

Si en el arranque de Delphi, cuando te da el error en la carga de htmlhelp290.bpl, le has dicho que no te la vuelva a cargar también tienes que tocar
HKEY_CURRENT_USER\Software\Borland\BDS\3.0\Disabled IDE Packages y borrar la clave del htmlhelp290

Solución extraída de aquí, también documentada por los chicos de Borland.

Dar formato a los datos usando una clase

Lo que se pretende es poder llegar a dar formato a información usando una clase, que no instanciaremos.
Para ello se necesita que nos creemos en la carpeta App_Code de nuestro proyecto un archivo de clase que llamaremos Funciones.vb o lo que nos parezca.
El código de dicha clase:

Imports Microsoft.VisualBasic

Public Class Funciones
Public Shared Function FormatoCadena(ByVal Valor
As String, ByVal Formato As String) As String
Dim ValorFormato As
Double
Dim Cadena As String
ValorFormato = Valor
Cadena =
ValorFormato.ToString(Formato)
Return Cadena
End Function
End
Class

Esta clase podrá ser llamada sin ser instanciada desde cualquier parte del proyecto. Así si deseamos que se puede llamar desde un FormView, cómo fue el caso que a mí me ocupó, accederemos a través de la etiqueta inteligente a la plantilla donde esté el campo al que aplicaremos formato, y accederemos a través de su etiqueta inteligente a "Editar DataBinding ...".
Activaremos "Personalizar enlace" y en la expresión de código pondremos:

Funciones.FormatoCadena(Eval("Telefono1"), "### ## ## ##")

También se podría evitar poner Funciones haciendo un Imports o agregandolo convenientemente en web.config.

Páginas de ayuda con información de formatos:

http://authors.aspalliance.com/aspxtreme/sys/globalization/demos/DateTimeFormatInfoGetAllDateTimePatterns.aspx
http://msdn2.microsoft.com/es-es/library/az4se3k1(VS.80).aspx
http://msdn2.microsoft.com/es-es/library/dwhawy9k(VS.80).aspx
http://msdn2.microsoft.com/es-es/library/0c899ak8(VS.80).aspx

Nada más.

LLamar a un procedimiento almacenado que devuelve valor a través de RETURN

Como sabemos una de las maneras de que un procedimiento almacenado de SqlServer nos devuelva un valor (entero) es usando el RETURN:

CREATE PROCEDURE nombreProc
@Parametro nvarchar(50)
AS
BEGIN
  IF EXISTS (SELECT Id from Tabla where campo=@Parametro)
    begin
      RETURN 1
    end
    else begin
      RETURN 0
    end
END

Para llamar a este procedimiento desde el .net y obtener el valor devuelto hay que crearle un parámetro específico del tipo ReturnValue, aparte de los definidos en el procedimiento:

cmd.CommandType = Data.CommandType.StoredProcedure
cmd.CommandText = "nombreProc"
cmd.Parameters.Clear()
cmd.Parameters.Add(New SqlParameter("@Parametro", "valor"))
Dim retValue As New SqlParameter("@RETURN_VALUE", Data.SqlDbType.Int)
retValue.Direction = Data.ParameterDirection.ReturnValue
cmd.Parameters.Add(retValue)
cmd.ExecuteScalar()
Dim resultado As Integer = Convert.ToInt32(retValue.Value)
If resultado = 1 Then
  ...
  ...
Else
  ...
  ...
End If

Control FreeTextBox y Formview

Si quieres utilizar un FreeTextBox en un Formview no podrás establecer el databinding desde la vista diseño. Hay que hacerlo a mano, en la vista código, localizas la sección FTB, añades el atributo text y estableces la vinculación. Quedaría algo así como :

Gridview: recuperar el índice de la fila desde un template field

Caso práctico: para cada fila de un GridView quieres poner un enlace/botón que realice cierta operación (llamémosle "pitufar") con el registro de esa fila. Sin problemas: editas las columnas del GridView y le metes un ButtonField con:

text="Pitufar"
CommandName="Pitufar"

Luego en el evento RowCommand del GridView te marcas un bonito:

If e.CommandName = "Pitufar" Then
  GridView1.SelectedIndex = Convert.ToInt32(e.CommandArgument)
  pitufeame(GridView1.SelectedValue)
  GridView1.DataBind()
End If

Y ya lo tienes.

Pero... ¿Y si necesitas convertir ese ButtonField a TemplateField? Mala cosa, porque entonces el código del RowCommand dejará de funcionar por la sencilla razón de que en e.CommandArgument ya no tendrás el índice de la fila que han clickeado.

Solución: En la propiedad CommandArgument del TemplateField hay que poner:



Y todo vuelve a funcionar.

SQLServer. Transacciones en procedimientos almacenados

Ejemplillo de cómo implementar un procedimiento almacenado con operaciones dentro de una transacción y controlar la excepción para tirar un rollback:

CREATE PROCEDURE nombreProcedimiento
    @parametro1 bla, bla...
AS
BEGIN
  BEGIN TRY
    BEGIN TRANSACTION
    INSERT ...
    UPDATE ...
    (etc...)
    COMMIT
  END TRY
  BEGIN CATCH
    IF @@TRANCOUNT > 0
      ROLLBACK
      DECLARE @ErrMsg nvarchar(4000), @ErrSeverity int
      SELECT @ErrMsg = ERROR_MESSAGE(),
      @ErrSeverity = ERROR_SEVERITY()
      RAISERROR(@ErrMsg, @ErrSeverity, 1)
    END CATCH
END