domingo, 1 de septiembre de 2013

Sum() & Sql Server

Curioseando, esto pasa en SqlServer no sé si con otros pasa (puedo asegurar que con Informix no pasa)

Ejemplo
SELECT SUM(precio) FROM libros

Error ->Mens. 8115, Nivel 16, Estado 2, Línea 1
Error de desbordamiento aritmético al convertir expresión al tipo de datos int.


Explicación

sum(column1) throws "Arithmetic overflow error"
sum() adopts the data type of the column type, so cast the column within the sum expression:

Genial usa el tipo de la columna, que en mi caso era un int


Solución
SELECT SUM( cast ( precio as bigint) ) FROM libros


martes, 27 de agosto de 2013

ADODB.Recordset está cerrado después de llamar a un sp

La chorrada de hoy me ha llevado, más de 3horas.

Situación:
- Un procedimiento que funciona en el SQL Server Management, con parámetros de entrada y recordset de salida. El SP hacia un insert y retornaba un recordset (hacia más cosas, esto es para resumir :P)
- Código Vb6, cuando ejecutaba el código y quería ver el contenido del recordset, el VB6 me daba un error de “La operación no está permitida si el objeto está cerrado.”
- El SP se había ejecutado porque tenía un registro más.

Di por supuesto que el problema estaba en como hacia la llamada al SP desde Vb6 (el SP funcionaba bien, se había ejecutado). Después de hacer un poco de I (sin +D porque desarrollo cero) pregunte a expertos en VB6 mayores que yo y nada.

La solución fue:
Añadiren el SP SET NOCOUNT ON al comienzo del código y SET NOCOUNT OFF justo antes de devolver los resultados finales

Si el procedimiento envía varios mensajes al cliente, el resulset no los procesa adecuadamente y suele dar ese mensaje de error.

La solución gracias a:
http://microsoft.public.es.sqlserver.narkive.com/fNVcXJuO/modo-correcto-de-ejecutar-sp

Por si alguno le interesa:
Llamar con command

A mí me valía con

Dim cSql as String
Dim cSql = " execute miProceimiento ‘parametro1’, ‘parametro2’ "
Set rst = New ADODB.Recordset
rst.Open cSql, gConexion, adOpenForwardOnly, adLockReadOnly
If Not rst.EOF Then

End if

miércoles, 14 de agosto de 2013

Sql, curioseando

Unas utilidades para conocer la estructura de una base de datos de sqlserver ,

Obtener las bases de datos de un servidor

select name as descripcion
from sys.databases
WHERE name not like 'EXTRA%'

Obtener todas las tablas o vistas de un servidor

select name, object_id ,create_date from sys.tables order by name
select name , object_id ,create_date from sys.views order by name

Obtener todas las columnas de un todas las tablas o vistas de una bbdd

select t.object_id, c.name,system_type_id, max_length, c.precision , scale ,is_nullable, c.column_id from sys.columns c ,
sys.tables t where t.object_id= c.object_id
select t.object_id, c.name,system_type_id, max_length, c.precision , scale ,is_nullable,c.column_id from sys.columns c ,
sys.views t where t.object_id= c.object_id
order by t.OBJECT_ID, c.column_id

Obtener las columas que forman parte de todos los índices de una base de datos

select t.TABLE_NAME, COLUMN_NAME from INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE as c
inner join INFORMATION_SCHEMA.TABLE_CONSTRAINTS as t on
t.CONSTRAINT_NAME = c.CONSTRAINT_NAME
where t.CONSTRAINT_TYPE='PRIMARY KEY'
order by TABLE_NAME

Obtener los trigger de una bbdd

select t.object_id, name, e.type, e.type_desc, t.parent_id
from sys.triggers t, sys.trigger_events e
where t.type ='TR' and t.object_id=e.object_id

Obtener todos los SP , funciones de una bbdd

select name, object_id from sys.objects where type in ('FN' ,'P', 'TF', '[IF]') order by name
Obtener todos los parámetros de entrada de todos los sp de una base de datos
SELECT SPECIFIC_NAME, PARAMETER_NAME, data_type, CHARACTER_MAXIMUM_LENGTH , NUMERIC_PRECISION, NUMERIC_SCALE, max_length , is_nullable
FROM INFORMATION_SCHEMA.PARAMETERS, sys.types
WHERE PARAMETER_MODE='IN' and INFORMATION_SCHEMA.PARAMETERS.DATA_TYPE =sys.types.name
ORDER BY SPECIFIC_NAME, ORDINAL_POSITION

Buscar texto dentro de un procedimiento o función de sql

-- @texto -->texto a buscar
--@BBDD --> nombre de la base de datos, si no se pasa ninguno busca en todas las bases de datos del servidor
Create PROCEDURE [dbo].[Find_Text](@texto varchar(50), @BBDD varchar(75)= null) as
begin

declare @ssQL nvarchar(max)
declare @nombreBBDD varchar(75)
declare @sWhere varchar(max)
declare @texo_find varchar(75)
declare @index_Final int
declare @tablaSP table
(
name_SP varchar(500),
name_BBDD varchar(500),
Tipo varchar(10),
ID INT
)
declare @tablaBasesDatos table
(
nombreBBDD varchar(75)
)

INSERT INTO @tablaBasesDatos
select db.name from sys.databases db WHERE DB.name = ISNULL(@BBDD,DB.NAME) and DB.name not in('msdb','DatabaseControl','master','model','tempdb')
order by db.database_id

set @sWhere = 'where '
if CHARINDEX(',',@texto)=0
begin
set @sWhere = @sWhere+ ' sc.text like ''%'+@texto+'%'' '
end
else
begin
WHILE CHARINDEX(',',@texto,0) > 0
begin
Set @index_Final= CHARINDEX(',',@texto,0)+1
set @texo_find= substring(@texto,0, @index_Final)
set @texto= REPLACE(@texto,@texo_find,'')
set @sWhere = @sWhere+ ' sc.text like ''%'+ ltrim(rtrim(replace( @texo_find,',',''))) +'%'' OR '
end
if @texto<> ''
BEGIN
set @sWhere = @sWhere+ ' sc.text like ''%'+ ltrim(rtrim( @texto)) +'%'' '
END
end

WHILE EXISTS (SELECT * FROM @tablaBasesDatos)
BEGIN

SELECT top 1 @nombreBBDD = nombreBBDD FROM @tablaBasesDatos

set @ssQL='select DISTINCT so.name ,'''+@nombreBBDD+''', so.XTYPE, sc.ID
from ' + @nombreBBDD + '..sysobjects so inner join ' + @nombreBBDD + '..syscomments sc on so.id = sc.id AND sc.encrypted= 0 '+ @sWhere

BEGIN TRY
INSERT INTO @tablaSP
execute sp_executesql @ssQL
END TRY
BEGIN CATCH
END CATCH;
DELETE TOP (1) @tablaBasesDatos
END

SELECT name_SP,
CASE WHEN Tipo='FN' THEN 'F. ESCALAR'
WHEN Tipo='P' THEN 'PROCEDIMIENTO'
WHEN Tipo='TF' THEN 'F. TABLA' ELSE Tipo END as tipo
,name_BBDD , ID FROM @tablaSP order by name_BBDD,Tipo,name_SP

end

Ojo cuidado cuando se usa el syscomments !!!! Ejemplo de un "problemilla"

Creamos un procedimiento : nombre1 ( esto aparece en el syscomments sin problemas)
Cambiamos el nombre del procedimiento: pulsando sobre el nombre,boton derecho "Cambiar Nombre" y ponemos el nuevo nombre por "NEW _NOMBRE"
Ahora mira el syscomments !!! pues si en el syscomments en el texto del SP está el nombre viejo.
Está documentado http://support.microsoft.com/kb/243198
"Al cambiar el nombre de un procedimiento almacenado, una vista o un desencadenador no se actualiza la tabla SYSCOMMENTS"

domingo, 26 de mayo de 2013

Variables de SQL Server

Para controlar el anidamiento de SQL server podemos usar la variable
@@NESTLEVEL

MSDN
Ejemplo de uso, muy útil Ejemplo

domingo, 12 de mayo de 2013

The "GenerateResource" task failed unexpectedly.

Este ha sido un error, raro.
Una solución con dos proyectos: un proyecto de escritorio y una dll .net 2010 , Vb .net, framework 4

Cuando compilaba, algunas veces (no siempre) daba un error
The "GenerateResource" task failed unexpectedly

Para solucionarlo abría un par de formularios, limpiaba la solución y generaba y compilaba.

Esto es "pasable" si solo lo tengo que hacer una vez, pero no era mi caso. Buscando encontré una solución que me valía :

Modificar (con el bloc de notas) el fichero .vbproj y añadir
<generateresourceneverlocktypeassemblies>true</generateresourceneverlocktypeassemblies>

Ejemplo
<Code>
<project defaulttargets="Build" toolsversion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<propertygroup>
<generateresourceneverlocktypeassemblies>true</generateresourceneverlocktypeassemblies>
</propertygroup>
</code>

Un error similar con una explicación y solución diferente

martes, 16 de abril de 2013

Curiseando Dispose & Finalize

Hoy mirando el código de otro (lo juro ) tenía una cosa como está

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim aux As MiClase
aux = funcion()
MessageBox.Show(aux.NewProperty)
MessageBox.Show(aux.OtraPropiedad)
End Sub

Public Function funcion() As MiClase
Dim oRet As MiClase = New MiClase()
Dim oRet2 As MiClase = oRet
Try
oRet.NewProperty = "otro valor"
Return oRet
Catch ex As Exception
Return Nothing
Finally
oRet.Dispose()
oRet = Nothing
End Try
End Function
Yo, que mi orígenes fueron el c y el c++ (no todo tiempo pasado fue mejor), siempre entiendo que el “dispose” libera todos objetos de la clase . Por supuesto sé que el Finally se ejecuta.

La pregunta de hoy es: qué valor tiene aux.NewProperty y aux.OtraPropiedad?.
Para dar alguna pista (o confundir más al lector) dejo la clase :
Public Class MiClase
Private newPropertyValue As String
Private _otraPropiedad As String

Public Property OtraPropiedad() As String
Get
Return _otraPropiedad
End Get
Set(ByVal value As String)
_otraPropiedad = value
End Set
End Property

Public Property NewProperty() As String
Get
Return newPropertyValue
End Get
Set(ByVal value As String)
newPropertyValue = value
End Set
End Property
Public Sub New()
newPropertyValue = "mi valor"
_otraPropiedad = "mi 2 valor"
End Sub

Public Sub Dispose()
_otraPropiedad = String.Empty
End Sub

End Class
La respuesta es: aux tiene valor. El return de la función ha retornado el puntero y la memoria realmente no se ha liberado. Dejo la captura del debug.

Ya puestos en la “funcion” he puesto un código que no “vale para nada”, solo para ver que realmente se usan punteros aunque no lo veamos
Dim oRet2 As MiClase = oRet
La pregunta es : ¿qué vale oRet2 después de ejecutar oRet = Nothing?. Le pasa exatamente lo mismo que al aux: todo son punteros


En C# funciona exactamente igual

miércoles, 3 de abril de 2013

IIF VB .net


Un programador C .net puede pensar que la instrucción iif de vb es equivalente al operador de compración ?
Una sorpresa: ¿que crees que saldrá en el MessageBox?
Dim total As Integer = 0
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim a As Integer = 1
Dim b As Integer = 2
Dim c As Boolean = IIf(a = b, funcion1("b"), funcion2("1"))
MessageBox.Show(total)
End Sub
Public Function funcion1(ByVal valor As String) As Boolean
total = total + 1
Return True
End Function
Public Function funcion2(ByVal valor As String) As Boolean
total = total + 1
Return True
End Function
2 Imagina que hicieras otra cosa:, consultas a base de datos, mostrar MessageBox , como ejecuta las dos funciones si una de ellas da Exception aunque nunca se cumpliera la condición para su llamada fallaría…

Y resulta que está documentado http://msdn.microsoft.com/es-es/library/27ydhh0d%28v=vs.80%29.aspx

“El IIF evalúa el código a ejecutar (tanto si la condición es verdadera o falsa) antes de ejecutarlo (esto no sé si es fallo de MS o es intencional). El problema que podemos encontrar con esto es que hay que asegurarse que las sentencias a ejecutar sean válidas en todas las condiciones, si no tendremos un excepción.”


Si tienes curiosidad C#, hace lo que esperas (o por lo menos lo que yo esero: el valor de total es 1
int total = 0;
private void button1_Click(object sender, EventArgs e)
{
int a = 1;
int b = 2;
bool c = (a == b ? funcion1("b") : funcion2("1"));
MessageBox.Show(total.ToString());
}
private bool funcion1(String valor)
{
total = total + 1;
return true;
}
private bool funcion2(String valor)
{
total = total + 1;
return true;
}