julio 2016 - Soulsmakers

Crear relacion entre tablas sql server

07/30/2016 por Jose Ortiz fernandez

Crear relacion entre tablas sql server

Hola a todos, En este mini tutorial crearemos una relacion entre 2 tablas,
Crear relaciones entre tablas es bueno para que SQL indexe de forma mas rapida los datos y que la integridad de nuestra BBDD sea fiable y que no existan registros que no tengan ninguna relacion entre si.

En este ejemplo muy sencillo, vamos a utilizar clientes y personas de contacto.

Pichamos ahora en FOREING KEY
y establecemos la relacion .

y ya esta, ya tenemos la relacion establecida!

Quizas te interese Reindexar la BBDD

O Liberar RAM de Sql

O Reducir el tamaño

Crear un Form con forma personalizada

07/30/2016 por Jose Ortiz fernandez

Crear un Form con forma personalizada

Buenas a todos,
En Este tutorial os voy a enseñar a hacer un formulario con forma personalizada.

Lo primero que debemos hacer es la imagen que nos va a servir de patron para el formulario.

Debemos crearla con un patron de colores de 8bit, porque en cualquier resolucion de colores este esta presente, y si lo hicieramos por ejemplo en 32bit, exiten colores que no estan en 16bit ni en 8 , con esto nos aseguramos que se visualize bien.

Una vez que tenemos todo y hemos rellenado la imagen con un color de fondo que no vamos a utilizar, nos fijamos muy muy bien en el color RGB que hemos elegido. este color no lo podemos utilizar nada mas para luego excluir el el fondo.

Una vez hecho todo esto creamos un formulario de windows y en el backgroundimage le establecemos el fondo que hemos creado.

A continuacion quitamos los bordes con el formstyle y los botones de minimizar,maximizar, y cerrar.

en el load, o en la caracteristica de transparenceKey le indicamos cual va a ser el color que debe tratar como transparente, y compilamos.

Me.TransparencyKey = Color.FromArgb(255, 255, 204, 204)

1	Me.TransparencyKey = Color.FromArgb(255, 255, 204, 204)

Ya esta!!! ya tenemos nuestro formulario con la forma que nosotros hemos creado.

Obtener Saber el color de un pixel

11/14/201907/30/2016 por Jose Ortiz fernandez

Obtener, Saber el color de un pixel

Hola a todos, aqui os traigo el ejemplo de como obtener el color de un pixel.

Para este ejemplo , necesitamos 2 picturebox y una imagen.
el primer picturebox, cargaremos la imagen de la cual vamos a recoger el color y en el segundo picturebox mostramos el color que tenemos debajo del cursor del raton al pasar por encima el primer picturebox.

Para ello vamos a utilizar el evento de picturebox.mouse move y añadimos el siguiente codigo.

 Dim b As Bitmap = Me.PictureBox1.Image 'Cogemos la imagen del picturebox y la pasamos a un bitmap
 Me.Label2.Text = b.GetPixel(e.X, e.Y).ToString 'cogemos el pixel indicado por el mouse y mostramos e argb
 Me.Label4.Text = Hex(b.GetPixel(e.X, e.Y).ToArgb) 'Convertimos a Hexadecimal el argb que es un numero entero
 Me.PictureBox2.BackColor = Color.FromArgb(b.GetPixel(e.X, e.Y).ToArgb) 'a el segundo bitmap le ponemos el color

Dim b As Bitmap = Me.PictureBox1.Image 'Cogemos la imagen del picturebox y la pasamos a un bitmap

Me.Label2.Text = b.GetPixel(e.X, e.Y).ToString 'cogemos el pixel indicado por el mouse y mostramos e argb

Me.Label4.Text = Hex(b.GetPixel(e.X, e.Y).ToArgb) 'Convertimos a Hexadecimal el argb que es un numero entero

Me.PictureBox2.BackColor = Color.FromArgb(b.GetPixel(e.X, e.Y).ToArgb) 'a el segundo bitmap le ponemos el color

Si quieres el codigo completo pincha aqui, VS2012

Espero que os sirva un saludo

Como Liberar RAM de SQL SERVER

02/02/202107/30/2016 por Jose Ortiz fernandez

Liberar RAM de SQL SERVER

Aqui el ejemplo de liberacion de memoria RAM de SQL SERVER.
los valores pueden cambiar , sobre todo dependiendo de la cantidad
de RAM disponible.

EXEC sys.sp_configure N’max server memory (MB)’, N’1024'
GO
RECONFIGURE WITH OVERRIDE
GO
CHECKPOINT
GO

EXEC sys.sp_configure N’max server memory (MB)’, N’1024'

RECONFIGURE WITH OVERRIDE

CHECKPOINT

en el ejemplo ponemos la memoria a 8gb de consumo
Como la liberacion de memoria, el SQL Server no la hace inmediatamente, hacemos un delay de 5 segundos

WAITFOR DELAY ’00:00:05'
GO
EXEC sys.sp_configure N’max server memory (MB)’, N’8146'
GO
RECONFIGURE WITH OVERRIDE
GO

WAITFOR DELAY ’00:00:05'

EXEC sys.sp_configure N’max server memory (MB)’, N’8146'

RECONFIGURE WITH OVERRIDE

Espero que les sirva un saludo

Quizas te interese Tambien Reindexar la BBDD aqui

O Reducir el Tamaño de la BBDD aqui

Crear Pendrive de Arranque

11/14/201907/30/2016 por Jose Ortiz fernandez

Crear Pendrive de Arranque

Mostramos en este tutorial cómo crear un pendrive o lápiz de memoria con arranque de sistema operativo (booteable), sin utilizar herramientas de terceros. Mostramos cómo hacerlo con la utilidad diskpart de Windows 7 (válido para W8, W2008, W2012).

Este pendrive arrancable será muy útil para instalar sistemas operativos en PCs sin lector de CD/DVD.

Requisitos necesarios para crear un pendrive o lápiz de memoria booteable o arrancable en Windows 7.
Crear pendrive booteable o arrancable en Windows .7.
Artículos relacionados.
Créditos.

Requisitos necesarios para crear un pendrive o lápiz de memoria booteable o arrancable en Windows 7

Para crear un pendrive o lápiz de memoria arrancable o booteable con algún sistema operativo Windows necesitaremos lo siguiente:

Un pendrive o lápiz de memora de 4GB o más.
PC con sistema Operativo Windows Vista, Windows 7, Windows 8, Windows Server 2008, Windows Server 2012.
Lector de CD (o DVD) si tenemos que leer un CD con la instalación de Windows.
PC con USB 2.0 o 3.0.

Crear pendrive booteable o arrancable en Windows 7

Para crear un pendrive arrancable o booteable en un equipo con Microsoft Windows 7 seguiremos los siguientes pasos:

1. Conectaremos el pendrive o lápiz de memoria al PC y esperaremos a que lo detecte correctamente, estableciendo una letra de unidad correspondiente en Windows 7.

2. Realizaremos copia de seguridad de los ficheros del lápiz de memoria o pendrive (si contiene información), pues este proceso eliminará todos los datos que contenga.

3. Abriremos una ventana de MS-DOS (shell de comandos) con el comando diskpart. Para ello, desde “Inicio” – “Ejecutar” escribiremos diskpart y pulsaremos “Aceptar”:

Crear pendrive booteable o arrancable en Windows 7

4. Se abrirá la consola de MS-DOS con la herramienta diskpart:

Crear pendrive booteable o arrancable en Windows 7

5. A continuación ejecutaremos el siguiente comando para mostrar la lista de discos conectados al PC:

list disk

Crear pendrive booteable o arrancable en Windows 7

Devolverá algo así:

Núm Disco Estado Tamaño Disp Din Gpt
———- ———- ——- ——- — —
Disco 0 En línea 596 GB 1024 KB
Disco 1 En línea 931 GB 1024 KB
Disco 2 No hay med 0B 0 B
Disco 3 No hay med 0B 0 B
Disco 4 No hay med 0B 0 B
Disco 5 En línea 7640 MB 0 B

6. Anotaremos el número de disco correspondiente a la unidad del pendrive o lápiz de memoria, es fácilmente identificable por el tamaño y normalmente será el último. Es conveniente asegurarnos de elegir correctamente el número de disco correspondiente al pendrive pues el proceso formateará la unidad elegida. Para seleccionar la unidad del pendrive con la que trabajaremos (en nuestro caso “Disco 5”) y queramos hacer arrancable o booteable ejecutaremos el comando:

Select disk 5

Crear pendrive booteable o arrancable en Windows 7

Devolverá:

El disco 5 es ahora el disco seleccionado.

7. Ejecutamos el siguiente comando para limpiar el disco seleccionado (pendrive):

clean

Crear pendrive booteable o arrancable en Windows 7

Devolverá:

DiskPart ha limpiado el disco satisfactoriamente.

8. Convertimos la partición a primaria con el comando:

create partition primary

Crear pendrive booteable o arrancable en Windows 7

Devolverá:

DiskPart ha creado satisfactoriamente la partición especificada.

9. Activamos la partición con el comando:

active

Devolverá:

DiskPart marca la partición actual como activa.

10. Damos fomato a la partición, este proceso puede requerir varios minutos, lo haremos con el comando:

format fs=fat32

Crear pendrive booteable o arrancable en Windows 7

Devolverá (una vez finalizado el formateo):

100 por ciento completado

DiskPart formateó el volumen correctamente.

11. Una vez creado el pendrive con una partición primaria activa (arrancable), simplemente deberemos copiar el contenido del DVD de Windows 7 en nuestro pendrive e indicar en la BIOS del sistema operativo que arranque desde este dispositivo. De esta forma tendremos un pendrive arrancable con sistema operativo para instalar. Esto nos resultará muy útil en PCs que no tenga lector de CD o DVD.

Copiaremos los ficheros del DVD/CD de Windows XP, Vista, 7, 8:

Crear pendrive booteable o arrancable en Windows 7

Los pegaremos en la unidad del pendrive:

Crear pendrive booteable o arrancable en Windows 7

Tambien es valido para windows 8, 8.1

Fuente(http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=687)

convertir imagen a Base64 y viceversa

10/19/201707/30/2016 por Jose Ortiz fernandez

Imagen aBase64 y de Base64 a Imagen

Aqui os dejo el codigo para convertir una imagen aBase64 y de Base64 a imagen . el codigo es muy sencillo y muy facil de seguir.

Leer másconvertir imagen a Base64 y viceversa

Corregir Error El Registro de transacciones esta lleno

11/14/201907/29/2016 por Jose Ortiz fernandez

El Registro de transacciones esta lleno

Hola a tod@s os dejo el script necesario para corregir el error de SQL
cuando este nos dice que el registro de transacciones esta lleno

ALTER DATABASE tubbdd
SET RECOVERY SIMPLE
GO
DBCC SHRINKFILE ('Archivo_log')
GO
ALTER DATABASE tubbdd
SET RECOVERY FULL
GO

ALTER DATABASE tubbdd

SET RECOVERY SIMPLE

DBCC SHRINKFILE ('Archivo_log')

ALTER DATABASE tubbdd

SET RECOVERY FULL

Un saludo y espero que os ayude XD

FILTRAR UN DATAGRIDVIEW CON DATAVIEW

04/15/202107/29/2016 por Jose Ortiz fernandez

FILTRAR UN DATAGRIDVIEW CON DATAVIEW

Este es un Ejemplo de filtrado de un GridView usando un Dataview.

Se ha utilizado para este ejemplo un GridView y un TextBox.

Primero los datos y el codigo para filtrar,

Dim dv As New DataView
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim dt As New DataTable
       dt.TableName = "Nombres"
       dt.Columns.Add("ID")
       dt.Columns.Add("Nombre")
       Dim dr As DataRow = dt.NewRow
       dr("ID") = 1
       dr("Nombre") = "PACO"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 2
       dr("Nombre") = "JUAN"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 3
       dr("Nombre") = "PEDRO"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 4
       dr("Nombre") = "RICARDO"
       dt.Rows.Add(dr)
       dv.Table = dt
       Me.DataGridView1.DataSource = dv<span class="cf3 fs19 ff2">  
 </span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

Dim dv As New DataView

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim dt As New DataTable

dt.TableName = "Nombres"

dt.Columns.Add("ID")

dt.Columns.Add("Nombre")

Dim dr As DataRow = dt.NewRow

dr("ID") = 1

dr("Nombre") = "PACO"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 2

dr("Nombre") = "JUAN"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 3

dr("Nombre") = "PEDRO"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 4

dr("Nombre") = "RICARDO"

dt.Rows.Add(dr)

dv.Table = dt

Me.DataGridView1.DataSource = dv

End Sub

<span class="cf3 fs19 ff2">    </span><span class="cf4 fs19 ff2">Private</span> <span class="cf4 fs19 ff2">Sub</span><span class="cf3 fs19 ff2"> TextBox1_TextChanged(sender </span><span class="cf4 fs19 ff2">As</span> <span class="cf4 fs19 ff2">Object</span><span class="cf3 fs19 ff2">, e </span><span class="cf4 fs19 ff2">As</span> <span class="cf5 fs19 ff2">EventArgs</span><span class="cf3 fs19 ff2">) </span><span class="cf4 fs19 ff2">Handles</span><span class="cf3 fs19 ff2"> TextBox1.TextChanged
        dv.RowFilter = </span><span class="cf6 fs19 ff2">"Nombre like'%"</span><span class="cf3 fs19 ff2"> & </span><span class="cf4 fs19 ff2">Me</span><span class="cf3 fs19 ff2">.TextBox1.Text & </span><span class="cf6 fs19 ff2">"%'"</span><span class="cf3 fs19 ff2">
    </span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

dv.RowFilter = "Nombre like'%" & Me.TextBox1.Text & "%'"

End Sub

Hasta aqui el ejemplo , es corto pero efectivo . Un saludo a todos.

ASPX Cookies y Tiempo de expiracion

07/29/201607/29/2016 por Jose Ortiz fernandez

ASPX Cookies y Tiempo de expiracion

Hola A tod@s. aqui os dejo un breve ejemplo de como utilizar una cookie para controlar el tiempo de expiracion de una pagina.

El formulario que os presento es muy simple, consta de 1 labels, 1 Boton,
un timer y un scriptmanager, que es necesario para nuestro timer.

El boton Renovar lo que hara es volverle a dar a nuestra cookie una nueva fecha de expiración.

Pues bien vamos con el codigo.
En el load, lo primero que debemos hacer es controlar el postback para que no recree la cookie, seguidamente la creamos la cookie , que luego recuperaremos mas adelante.
el codigo del load quedaria asi.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
           Dim Pedazo As New HttpCookie("MiSesion")
           Pedazo.Expires = DateTime.Now.AddSeconds(30)
           Pedazo.Value = "MiCookie"
           Me.Label1.Text = Pedazo.Expires
           Response.Cookies.Add(Pedazo)
       End If    
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

Dim Pedazo As New HttpCookie("MiSesion")

Pedazo.Expires = DateTime.Now.AddSeconds(30)

Pedazo.Value = "MiCookie"

Me.Label1.Text = Pedazo.Expires

Response.Cookies.Add(Pedazo)

End If

End Sub

Como veis a esta galleta le hemos añadido 30 segundos a la expiracion de la cookie para que nuestro navegador la tenga en cuenta.

Bueno ahora en el boton
Con el boton lo que haremos es darle otros 30 segundos de expiración,
siempre y cuado no haya caducado

el codigo seria el siguiente:

       Dim Pedazo As HttpCookie = Me.Request.Cookies("MiSesion")
       Pedazo.Expires = DateTime.Now.AddSeconds(30)
       Me.Response.Cookies.Set(Pedazo)

Dim Pedazo As HttpCookie = Me.Request.Cookies("MiSesion")

Pedazo.Expires = DateTime.Now.AddSeconds(30)

Me.Response.Cookies.Set(Pedazo)

Bien ahora nos queda lo siguiente,comprobar que si ha caducado haga algo. para ello utilizatremos el timer, pare ello en el evento tick añadimos el siguiente codigo.

       Dim galleta As HttpCookie = Me.Request.Cookies("MiSesion")
       If galleta Is Nothing Then
           Me.Response.Redirect("http://google.es")
       End If

Dim galleta As HttpCookie = Me.Request.Cookies("MiSesion")

If galleta Is Nothing Then

Me.Response.Redirect("http://google.es")

End If

Si la galleta es nada, hacemos que nos envie a google, por lo cual nos indica que la cookie habra expirado.

Espero que os aporte bastante para crear sesiones con caducidad.

Un Saludo