Error de Reporting Services

Después de instalar y configurar Reporting Services de SQL Server 2008 y al intentar ingresar a la URL http:/localhost/ReportServer marca el siguiente error:

Los permisos otorgados al usuario [usuario] son insuficientes para realizar esta operación. (rsAccessDenied)

Para resolver dicho error es necesario ejecutar el IExplorer como Administrador y así podrás ingresar a la pantalla de configuración, en el tab de Propiedades agregar al usuario con el que deseas administrar.

Yo quiero ser arquitecto!

Con ustedes El Zopilote Vengador, la gran promesa del pancracio mexicano, él está llamado a acabar con el mito de El Santo.

Lo mejor de todo, su canto de guajolote... digo su grito de batalla.



PD. Las botas no tienen ma...

Pasas por el abismo de mis tristezas

Pasas por el abismo de mis tristezas
como un rayo de luna sobre los mares...

Excelente escena del Callejón de los Milagros:



...ungiendo lo infinito de mis pesares
con el nardo y la mirra de tus ternezas.


PD. ando buscando la escena donde se enjabonan a don Rutilio

La gota traicionera

Tanta relevancia tiene la malamente famosa gotita traicionera que hasta un poema tiene:

La gota

Eres vil y traicionera
sagaz, húmeda y esquiva
eres fugitiva con ansias de espera
eres ella, eres la gota,
delatora de micciones placenteras
de incontinencias duraderas...
sí, eres tú la gota.
Eres el judas de la fisiología
eres el desecho convertido en profecía
eres la gota, la última que siempre sale fría.

Pedro Alfonso Suárez

Algunos hasta hacen toda una investigación médica y filosófica sobre este mal que aqueja a nuestro género.

Pero he aquí algunos tips que les podrán ayudar amigos míos, a evitar esa traicionera gota... y recuerden siempre que más de tres sacudidas es chaqueta....

bye.

Frase Atea

Me encontré con esta frase de Epicuro que según recuerdo de las clases de filosofía de la prepa era un griego muy chingon

"Está dispuesto Dios a prevenir la maldad, pero no puede? Entonces no es omnipotente.
¿Puede hacerlo, pero no está dispuesto? Entonces es malévolo.
¿Es capaz y además está dispuesto? Entonces, ¿de dónde proviene la maldad?
¿No es él capaz ni tampoco está dispuesto? Entonces, ¿por qué llamarlo Dios?".

Epicuro

How to Get Data From a Binary Field and save it to a File

'Read data from SQL Server Binary Field (BLOB) and save it to a file with ADO
' params:
' sTable : Table Name
' sBinaryField: Binary Column Name where to get the binary data
' sKeyFld: Key Field Name to indicate the record to update
' KeyValue: Key Field Value
' SFileDest: Path & File Name where is going to save the binary data
'
' ie: Call getBinary("pub_info", "logo", "pub_id", "0736", "c:\images\logo0736.jpg")
' saves the column logo binary content of pub_info table where pub_id = '0736'
' as the file "c:\images\logo0736.jgp
'
'author: Roberto Figueroa
'date: 07-Jun-2005

Public Function getBinary(ByVal sTable As String, ByVal sBinaryFld As String, _
ByVal sKeyFld As String, ByVal KeyValue As String, ByVal sFileDest As String) As Boolean

Dim sQry As String, rs As ADODB.RecordSet
Dim Stm As ADODB.Stream

On Error GoTo errHandler

sQry = "SELECT " & sBinaryFld & " FROM " & sTable & " WHERE " & sKeyFld & " = " & KeyValue

Set rs = New ADODB.Recordset
rs.Open sQry, adoConn , adOpenStatic, adLockReadOnly, adCmdText

If rs.Fields(0).ActualSize > 0 Then

Set Stm = New ADODB.Stream

With Stm

.Type = adTypeBinary
.Open
.Write rs.Fields(0).Value
.SaveToFile sFileDest, adSaveCreateOverWrite

End With
Set Stm = Nothing

getBinary = True
Else
getBinary = False
End If


Exit Function

errHandler:
Err.Raise vbObjectError + 2, "getBinary", "Error on getting binary data"

End Function

How to Save Data to a Binary Field

'saveBinary: save file content on a binary field (BLOB)
'(binary, varbinary, and image data types in Ms SQLServer 2000)
'params:
' sTable : Table Name
' sBinaryField: Column Name that is going to be changed (Binary Field)
' sKeyFld: Key Field Name for indicate the record to update
' KeyValue: Key Field Value
' SFile: Path & File Name that is going to be saved, "" to update with NULL
'
'ie: call saveBinary("pub_info", "logo", "pub_id", "'0736'", "c:\images\foto.jpg")
'saves the file c:\images\foto.jpg on the logo field of pub_info table (pubs database)
'on the record where pub_id = '0736'
'note: the single quotation mark is necesary because pub_id is a varchar field
'
'Author: Roberto Figueroa G.
'Date: 07-Jun-2005
Public Sub saveBinary(ByVal sTable As String, ByVal sBinaryFld As String, _
ByVal sKeyFld As String, ByVal KeyValue As String, Optional ByVal sFile As String = "")

Dim Stm As ADODB.Stream, rs As ADODB.RecordSet
Dim sQry As String

On Error GoTo errHandler

sQry = "SELECT " & sBinaryFld & " FROM " & sTable & " WHERE " & sKeyFld & " = " & KeyValue

Set rs = New ADODB.RecordSet
rs.open strQuery, adoConn, adOpenStatic, adLockOptimistic, adCmdText


If sFile > "" Then

Set Stm = New ADODB.Stream

With Stm

.Type = adTypeBinary
.Open
.LoadFromFile sFile
rs.Fields(0).Value = .Read

End With

Set Stm = Nothing

Else
rs.Fields(0).Value = Null

End If

rs.Update
rs.Close
Set rs = Nothing

Exit Sub

errHandler:
Err.Raise vbObjectError + 6, "saveBinary", "Error on updating field"
End Sub

Nothing to say

So I've got nothing to say.
Nothing to say.