El JOB fallo, el propietario () del JOB no tiene acceso al servidor ( the job failed. the owner () of job does not have server access )

Deja un comentario

Buen dia, en este post presentare como dar solucion al error the job failed. the owner () of job does not have server access (el job fallo , el propietario del job no tiene acceso al servidor).

En ocaciones al crear un job, a este se le asigna un usuario con los permisos necesarios para que lo ejecute, cuando eliminamos usuarios muchas veces no nos percatamos de que otros objetos podemos estar afectando, esto fue lo que me sucedio a mi, cree un job con un usuario SQL.

una se las soluciones mas faciles es eliminar el jop y volverlo a crear pero aqui les dejo la solucion de como asignar un nuevo usuario a un Job para poder ejecutarlo.

Primero revisamos los jobs que tenemos asi como a los usuarios que tienen los permisos para ejecutarlos. si el job que buscamos no se encuentra, esto quiere decir que ha sido eliminado por lo que tenemos que revisar si no existe el usuario.


SELECT
    sv.name AS [Name],
    sv.job_id AS [JobID],
    l.name AS UserName
FROM
    msdb.dbo.sysjobs_view AS sv
    INNER JOIN [master].[sys].[syslogins] l ON sv.owner_sid = l.sid
    ORDER BY
    sv.[Name] ASC

Para asignar un usuario a un job vamos a la seccion donde se encuentran los jobs.

jobs

Seleccionamos el job al que queremos asignarle un nuevo usuario propietario, damos click derecho y elegimos propiedades.

job2

Nos aparecera la pantalla de configuracion del job

En la pestaña General podemos observar la etiqueta OWNER , si el contenido de la caja de texto esta vacio quiere decir que no hay usuario asignado para este JOB.

jobs3

damos clik en el boton con los tres puntos el cual nos abrira una ventana para realizar la busqueda del usuario.

job4

Seleccionamos el usuario, podemos ponerlo manualmente o buscarlo dando click en el boton Browse, lo seleccionamos, damos aceptar y con esto ya debemos tener asignado un usuario para nuestro job,
por ultimo volvemos a ejecutar el JOB y vemos como lo ejecuta correctamente.

Espero les halla servido este post 🙂

Les dejo los links de referencia.

Si les sirvió no olviden comentar.

http://www.mssqltips.com/sqlservertip/1273/sql-server-agent-job-ownership/
http://johnsterrett.com/2011/04/14/changing-sql-server-job-owners-against-the-sql-server-enterprise/

WPF

1 comentario

Bueno amigos en esta seccion empezare a publicar contenido acerca de WPF (windows Presentation Foundation)

compartire con ustedes mis experiencias , ejemplos y ejercicios con los que me  valla topando en mi vida cotidiana espero y les guste.

Saludos.

 

python y pyopengl

2 comentarios

hola a todos, por peticion de unos amigos muy estimados les explicare brevemente que es opengl y cuales con las herraientas que necesitan para empezar a trabajar con el.

OpenGL (Open Graphics Library) es una especificación estándar que define una API multilenguaje y multiplataforma para escribir aplicaciones que produzcan gráficos 2D y 3D. La interfaz consiste en más de 250 funciones diferentes que pueden usarse para dibujar escenas tridimensionales complejas a partir de primitivas geométricas simples, tales como puntos, líneas y triángulos. Fue desarrollada originalmente por Silicon Graphics Inc. (SGI) en 1992[2] y se usa ampliamente en CAD, realidad virtual, representación científica, visualización de información y simulación de vuelo. También se usa en desarrollo de videojuegos, donde compite con Direct3D en plataformas Microsoft Windows.

lo demas lo encuentran aqui

bueno el lenguaje de programacion en a su gusto en este caso lo  estare probando con python asi que a instalarlo.

tecleamos estos comandos en la consola

sudo apt-get install build-essential

sudo apt-get install libreadline5-dev libncursesw5-dev libssl-dev libsqlite3-dev tk-dev libgdbm-dev libc6-dev libbz2-dev
wget http://python.org/ftp/python/3.2/Python-3.2.tgz
tar -xvf Python-3.2.tgz && cd Python-3.2/
./configure
make
sudo make altinstall
si no aqui esta la pagina donde pueden descargar la version mas reciente http://www.python.org/download/releases/3.2.1/
escogen la opcion

al terminar de descargar descomprimen. entran al directorio de la carpeta

y  ejecutan estos comandos

cd [nombre de la carpeta de pithon]

./configure
make
sudo make altinstall
esperamos un momento y listo verificamos que version de pithon tenemos instalada con el comando:
python3.2
y nos saldra texto como este:
Python 3.2.1 (default, Aug 27 2011, 21:38:42)
[GCC 4.5.2] on linux2
Type «help», «copyright», «credits» or «license» for more information.
>>>
este es el interprete de comandos de python lo unico que  tenemos que darle es la funcion quit() para salir o pulsar control + d
ahora que ya tenemos instalado python es hora de instalar PYOPENGL que es un API de python para opengl
lo instalamos con los siguientes comandos:
sudo apt-get install python-pygame
sudo apt-get install python-opengl
sudo apt-get install freeglut3-dev
y listo con eso ya tenemos instalado python con las librerias para trabajar con graficos opengl
comenten por favor, este blog es para ustedes 😀 nada les cuesta

combinar celdas (merge cells) de un datagridview en vb.net

10 comentarios

en este post describire como combinar las celdas de un datagridview en vb.net

esta es la estructura de la tabla

create table datos
(
id int not null,
nombre varchar(50) not null,
marca varchar(50),
precio money
)

posteriormente se llenara la tabla con datos de prueba

despues en el evento load del formulario realizamos la consulta correspondiente a los datos

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim consulta = «select * from datos»
Dim DA As SqlDataAdapter = New SqlDataAdapter(consulta, [cadena de conexion])
Dim DS As DataSet = New DataSet()
DA.Fill(DSt)
DataGridView1.DataSource = myDS.Tables(0).DefaultView
End Sub

despues escriberemos este franmento de codigo en el evento CellPainting del datagrid

Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
‘el e.columnindex son las columnas que checara para ver si se pueden combinar las celdas iguales
‘ en este caso checara las 4
If e.ColumnIndex = 0 Or e.ColumnIndex = 1 Or e.ColumnIndex = 2 Or e.ColumnIndex = 3 AndAlso e.RowIndex <> -1 Then

Using gridBrush As Brush = New SolidBrush(Me.DataGridView1.GridColor), backColorBrush As Brush = New SolidBrush(e.CellStyle.BackColor)

Using gridLinePen As Pen = New Pen(gridBrush)
e.Graphics.FillRectangle(backColorBrush, e.CellBounds)

If e.RowIndex < DataGridView1.Rows.Count – 2 AndAlso DataGridView1.Rows(e.RowIndex + 1).Cells(e.ColumnIndex).Value.ToString() <> e.Value.ToString() Then
e.Graphics.DrawLine(gridLinePen, e.CellBounds.Left, e.CellBounds.Bottom – 1, e.CellBounds.Right – 1, e.CellBounds.Bottom – 1)
End If

e.Graphics.DrawLine(gridLinePen, e.CellBounds.Right – 1, e.CellBounds.Top, e.CellBounds.Right – 1, e.CellBounds.Bottom)

If Not e.Value Is Nothing Then
If e.RowIndex > 0 AndAlso DataGridView1.Rows(e.RowIndex – 1).Cells(e.ColumnIndex).Value.ToString() = e.Value.ToString() Then
Else
e.Graphics.DrawString(CType(e.Value, String), e.CellStyle.Font, Brushes.Black, e.CellBounds.X + 2, e.CellBounds.Y + 5, StringFormat.GenericDefault)
End If
End If

e.Handled = True
End Using
End Using
End If
End Sub

y obtendremos como resultado:

les dejo el codigo fuente en este enlaze  http://www.megaupload.com/?d=FB74CPAE

no olviden comentar si les gusto 🙂 o les sirvio

consulta para Corte De caja diario en asp.net y vb.net

4 comentarios

en este post les mostrare una consulta para poder realizar un arqueo de caja sensillo a travez de una consulta sql pero desde vb.net lo primero es tener importadas las siguientes librerias

Imports System.Data.SqlClient

el codigo debe estar dentro del evento del boton ,es el siguiente:

Dim fecha As Date

‘ fecha almacenara la fecha del sistema

Dim importe As Integer

‘importe guardara el total del arqueo

fecha = Now.Date.ToShortDateString

‘convertimos la fecha enn un formato corto dd/mm/aaaa

Dim con As New SqlConnection(cadena)’creamos la consulta

Dim com As New SqlCommand(«select sum([campo_del_importe]) from [tu_tabla] where fecha ='» & fecha & «‘», con)

Try

con.Open()

importe = CInt(com.ExecuteScalar())’asignamos el valor del importe

con.Close()

Catch ex As Exception

MsgBox(ex.messege)

End Try

MsgBox(«» & importe) ‘ mostramos el importe

‘ espero y les sirva no olviden comentar para seguir subiendo mas post de estos