julio 2016 - Página 3 de 6

REDUCIR EL TAMAÑO DE LA BASE DE DATOS

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

REDUCIR EL TAMAÑO DE NUESTRA BBDD

Base de datos

Para reducir el tamaño de la Base de datos podemos utilizar el siguiente comando.

DBCC SHRINKDATABASE('<BBDD>',<%LIBRE>)

1	DBCC SHRINKDATABASE('<BBDD>',<%LIBRE>)

Debemos sustituir <BBDD> por nuestra Base de datos y <%Libre> por el tanto por ciento que dejara libre para que pueda insertar datos de una forma mas agil.

El porcentaje de crecimiento no se vera afertado y una vez que se llene ese %libre SQL utilizara el porcentaje de crecimiento que tiene asignado en los parametros.

Tambien puedes utilizar el asistente de sqlserver para bien reducir el log o que el espacio libre de escritura que tiene la base de datos se reduzca.

Un saludo a tod@s

Seguramente tambien te interese reindexar y debragmentar los datos y tablas aquí.

SQL SERVER USAR Y ENTENDER UN CURSOR.

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

Hola a todos, vamos a explicar los cursores de SQL , asi podras entender que es lo que hace, y te hara recordar como se crean … es te es el ejemplo.

declare @usuario varchar(50)
Declare miCursor cursor for select usuario from tbusuario
open miCursor
fetch next from miCursor into @usuario
while @@fetch_status = 0
Begin
print @usuario
fetch next from miCursor into @Usuario
end
close miCursor
Deallocate miCursor

declare @usuario varchar(50)

Declare miCursor cursor for select usuario from tbusuario

open miCursor

fetch next from miCursor into @usuario

while @@fetch_status = 0

Begin

print @usuario

fetch next from miCursor into @Usuario

end

close miCursor

Deallocate miCursor

Empezemos con la explicacion:
lo primero que hacemos es declarar el cursor con la condicion que en su traduccion quedaria asi.

Declaro micursor cursor para seleccionar usuario de tbusuarios.

Declare miCursor cursor for select usuario from tbusuario

1	Declare miCursor cursor for select usuario from tbusuario

ahora abrimos el cursor

open miCursor

1	open miCursor

Muevete por micursor dentro de @usuario , “@usuario es la variable del campo en el orden de la select”

fetch next from miCursor into @usuario

1	fetch next from miCursor into @usuario

mientras el @@fetch_status “indica el estado de micurso” es 0 “Falso”

while @@fetch_status = 0

1	while @@fetch_status = 0

Empiezas

Begin

Begin

y Haces esto “Escribe el campo @usuario”

print @usuario

1	print @usuario

Muy importante que dentro del Begin se mueva a el siguiente.

Asi el @@fetch_status cuando cambie saldra.”

fetch next from miCursor into @Usuario

1	fetch next from miCursor into @Usuario

Acabas

end

end

Cierro micursor

close miCursor

1	close miCursor

y lo quito de la memoria.

Deallocate miCursor

1	Deallocate miCursor

Espero que con esta breve explicacion os haga recordar la estructura del cursor.

Un saludo .”:)”

Parece que asi explicado parece que tiene un poco mas de sentido no crees?.

COMO RECARGAR UNA PAGINA USANDO JAVASCRIPT

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

Recargar pagina usando javascript

En este ejemplo breve veras como recargar una pagina .Puede buscar mas ejemplos por ahi pero ya que estas aqui prueba este.

Para ello vamos a utilizar la función Refresh, y lo vamos a hacer estableciendo un tiempo de 8 segundos de retardo.

Este es el ejemplo veras que es muy simple,declaras el tipo de script, y la funcion. Nada complicado

<script type='text/javascript'>
var int=self.setInterval('refresh()',8000);
function refresh(){

location.reload(true);
}
</script>

var int=self.setInterval('refresh()',8000);

function refresh(){

location.reload(true);

}

</script>

Ya se que este post es breve. pero como siempre suscribete, y registrate para postear en nuestro foro y chatear en el canal.

EJEMPLO DE ALERT DE JAVASCRIPT

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

ALERT DE JAVASCRIPT

Seguro que lo habras visto hasta la saciedad pero… no iba a ser menos, aqui te dejo el codigo de como poner un mensage dentro de tu aplicacion web usando javascritpt y su funcion

La cosa es simple, declaramos el tipo de script que vamos a utlizar, el lenguaje vamos. Y a continuacion llamamos a la funcion de javascript.

<script type='text/javascript'>
alert('HOLA MUNDO');
</script>

alert('HOLA MUNDO');

</script>

La verdad es que no tiene ningun misterio y puedes consultar más info en la web de java.

Hasta aqui este post.

Y como siempre suscribete y accede a nuestro foro y chat.

COMO UTILIZAR STREAMREADER y STREAMWRITER

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

StreamReader y StreamWriter

En este Post vamos a explicar 2 pasos muy sencillos, como podemos guardar datos en un fichero para poder recuperarlo mas adelante.

1 Para guardar los datos deberemos hacer los siguiente.

En vb.net instanciamos en StreamWriter con el Nombre del Fichero y la ubicación donde se va guardar el dato , en este caso voy a guardar una cadena de texto.

       Dim TextoQueGuardo As String = "HOLA ESTOY GUARDANDO ALGO"
       Dim SW As New IO.StreamWriter("C:\TEMP\GUARDOMITEXTO.TXT")
       SW.Write(TextoQueGuardo)
       SW.Close()

Dim TextoQueGuardo As String = "HOLA ESTOY GUARDANDO ALGO"

Dim SW As New IO.StreamWriter("C:\TEMP\GUARDOMITEXTO.TXT")

SW.Write(TextoQueGuardo)

SW.Close()

una vez hecho esto lo siguente es dar la orden de guardado y cerrar el fichero con el close,para que este pueda ser liberado de la aplicación.

Como veis es muy sencillo.

2 Ahora vamos con la Lectura del fichero.

Bien, el proceso de lectura es muy similar, instanciamos la clase StreamReader con la ruta del fichero.
Declaramos una variable donde se recuperará el dato, en el ejemplo la llamaremos “Resultado”, y ejecutamos la lectura.
y para ver el resultado lo podemo mostrar en un msgbox.

       Dim SR As New IO.StreamReader("C:\TEMP\GUARDOMITEXTO.TXT")
       Dim Resultado As String
       Resultado = SR.ReadLine
       SR.Close()
       MsgBox(Resultado) 'Para ver el resultado

Dim SR As New IO.StreamReader("C:\TEMP\GUARDOMITEXTO.TXT")

Dim Resultado As String

Resultado = SR.ReadLine

SR.Close()

MsgBox(Resultado) 'Para ver el resultado

El streamreader tiene mas opciones que ir leyendo linea a linea pero para que sea un ejemplo sencillo lo hacemos solo con 1 , ya que sabemos que hemos guardado solo esa linea en el paso numero 1.

Despues de hacer todo esto, hay que cerrar el fichero para liberarlo.

SQL SERVER ATTACH

07/28/201607/22/2016 por Jose Ortiz fernandez

Adjuntar una base de datos “Attach”

Hola a todos de nuevo!!!

Hace poco he tenido graves problemas con la instalación del sistema operativo y he tenido que recuperarlo, pues bien, antes de formatear y demás copie lo necesario a un disco duro para reimplantar todo.

A la hora de recuperar las bases de datos de las cuales no tenia backup
podemos utilizar la opción de Attach de SQL SERVER, lo cual nos dejará volver a insertarlas bajo en Engine de SQL .

Un problema con el que nos podemos encontrar es que nos de el siguiente error
Unable to open the physical file (‘TUBBB’)

Pues bien para resolver este problema debemos ir a el fichero .mdb y mdf y agregarle de nuevo los permisos, ya que cuando lo creamos fue otra instalación y no la actual, una vez hecho esto podemo continuar.

La forma más sencilla de recuperar y o adjuntar las BBDD es la siguiente.

En el Motor de bbdd hacemos clic con el botón derecho del ratón y hacemos clic en Attach o Adjuntar. se nos mostrara el siguiente cuadro.
.
Hacemo clic en add o Añadir y seleccionamos la BBDD que queremos adjuntar.
y el propio sql nos cargar el Mdf y Ldf correspondiente.

Pulsamos OK , y si todo es correcto tendremos la base de datos recuperada en el sistema.

Un saludo y espero que os sirva de ayuda.

Ya sabes, como siempre sigueme , y suscribete , con ello tendras acceso a el chat y a el foro de soulsmakers.com

SQL SEVER WITH FORCESEEK

07/28/201607/22/2016 por Jose Ortiz fernandez

SQL SEVER WITH FORCESEEK

Un metodo para optimizar consultas de SQL SERVER en tablas relacionadas es utilizar esta clausula.

¿Que es lo que hace?, veamoslo en un ejemplo.
Tenemos nuestra tabla de clientes con nuestra clave primaria que es idcliente y por otro lado tenemos la tabla personas de contacto con ForeingKey de IDCliente.

Pues bien si ejecutaramos la consulta tal cual ;

Select cliente.Nombre,Percontacto.NombreContacto from cliente inner join PerContacto on Cliente.idcliente = PerContacto.Idcliente.

1	Select cliente.Nombre,Percontacto.NombreContacto from cliente inner join PerContacto on Cliente.idcliente = PerContacto.Idcliente.

Sql Prioriza la busqueda sobre la tabla de cliente y luego la relación con PerContacto sacando solo las coincidencias por idcliente. pues bien. Marcando ForceSeek , forzamos a SQL a que no empieze por la tabla cliente si no por la tabla PerContacto, el ejemplo quedaria de la siguiente forma:

Select cliente.Nombre,Percontacto.NombreContacto from cliente inner join PerContacto with(ForceSeek) on Cliente.idcliente = PerContacto.Idcliente

1	Select cliente.Nombre,Percontacto.NombreContacto from cliente inner join PerContacto with(ForceSeek) on Cliente.idcliente = PerContacto.Idcliente

Un dato a tener en cuenta es que al marcar ForceSeek la union entre tablas debe estar realizada por la PrimaryKey -> ForeingKey si no , no nos dejara ejecutarla.

Para que esto sea mas efectivo debemos utilizar un where sobre la tabla marcada con forceseek y con ello veremos que el tiempo de ejecución de SQL sobre esa consulta se vera reducido, el cambio no es muy significativo en tablas con pocos registros.

Si quieres saber como optimizar mas tus consultas consulta tambien este otro articulo WITH(NOLOCK)

Transacciones de Sql que son y como lo utilizo

07/28/201607/21/2016 por Jose Ortiz fernandez

Transacciones

El este breve articulo vamos a tratar de explicar que es una transacción

Una transacción es una operacion dentro de SQL cuyo contenido puede ser cancelado o aceptado dentro de la BBDD.

Para que lo entendais mejor veamos un ejemplo con la sintaxis que debemos utilizar.

-- Begin tran ***Marca el inicio de la transaccion***
begin tran
/*
Aqui iria la transaccion update,insert...
update mitabla set Cliente = 'PAPADOPOPULUS'  where Cliente = 'DOPOPULUS'
*/

-- Begin tran ***Marca el inicio de la transaccion***

begin tran

Aqui iria la transaccion update,insert...

update mitabla set Cliente = 'PAPADOPOPULUS' where Cliente = 'DOPOPULUS'

Si la transacción la transaccion es correcta y no la finalizaramos para SQL todavia quedaria pendiente. por ello siempre es mejor controlar la situación de la siguiente manera.

if @@ERROR > 0
-- Cancela la transaccion y vuelve al estado que tenia
Rollback tran
Else
-- Confirma la transaccion y los cambios quedan guardados
commit tran

if @@ERROR > 0

-- Cancela la transaccion y vuelve al estado que tenia

Rollback tran

Else

-- Confirma la transaccion y los cambios quedan guardados

commit tran

.Si Antes de confirmar o hacer el rollback de una transacción la consultamos para ver el resultado este estaria reflejado, pero en SQL veriamos que queda una transacción pendiente con la siguiente consulta.

select @@TRANCOUNT

1	select @@TRANCOUNT

Espero que este breve post os sirva para realizar procesos seguros.

y ya sabes unete a nuestro foro y comentanos esas cosas que tanto te inquieta.

y si quieres ver el ejemplo en este video te lo explico

Ejemplo de uso de Hilos Threads Threading vb net

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

¿Que es un hilo (Thread)?
Un hilo es un proceso paralelo a el entorno de ejecución de una aplicación.

Un ejemplo por asi decirlo es el propio entorno de windows, el cual windows es la aplicación y los programas que ejecutamos son los hilos que dependen de el.

-Empezando con los hilos
¿Que debemos saber? Importante!!
El hilo forma parte de la aplicación y esta viculada a ella , pero en determinadas ocasiones, a finalizar la aplicación si no hemos terminado el hilo, este seguirá corriendo, y nos ocupará espacio en memoria hasta que finalice o bien lo terminemos nosotros desde el administrador de tareas.

Para entender un poco el funcionamiento vamos a crear una sencilla aplicacion la cual utilizará 1 hilo para cambiar el color en un panel .

Creamos 1 form ,3 Botones ,1 Panel.

Nuestro Boton1 sera iniciar, el boton2 detener, y el boton3 nos mostrará el estado del hilo.

Antes de empzar con la programación del hilo debemos agregar al load la siguiente linea.

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.CheckForIllegalCrossThreadCalls = False
   End Sub

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

Me.CheckForIllegalCrossThreadCalls = False

End Sub

Esto permitirá a el hilo que pueda interactuar con la aplicación quitando la restricción, de que el hilo como hijo pueda acceder y modificar propiedades de el elemento padre (el form) o cualquier control.

-Declaración del hilo

Public Class Form1
       Dim th As New Threading.Thread(AddressOf CambioColor)

1 2	Public Class Form1 Dim th As New Threading.Thread(AddressOf CambioColor)

Creamos la variable th llamando contructor y asignandole la función con la que va a operar el hilo.

-aqui la función en bucle.

Dim Salir As Boolean
   Public Function CambioColor()
       Dim c As New Color
       Dim A As New Random
       Dim R As New Random
       Do Until Salir
           Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))
       Loop
   End Function

Dim Salir As Boolean

Public Function CambioColor()

Dim c As New Color

Dim A As New Random

Dim R As New Random

Do Until Salir

Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))

Loop

End Function

En el boton1 le llamaremos Start y escribimos lo siguente.

 If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Then
           th = New Threading.Thread(AddressOf CambioColor)
           Salir = False
           th.Start()
       Else
           MsgBox("El hilo esta corriendo")
       End If

If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Then

th = New Threading.Thread(AddressOf CambioColor)

Salir = False

th.Start()

Else

MsgBox("El hilo esta corriendo")

End If

Con ello controlaremos que no se esta ejecutando y si lo esta mostramos el mensaje.

Ahora vamos con el boton2 , lo llamaremos Stop y escribimos es siguiente codigo.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If th.ThreadState = Threading.ThreadState.Running Then
           Salir = True 'Indicamos salir para finalizar el bucle
           th.Abort() ' y Abortamos el hilo

       End If
   End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If th.ThreadState = Threading.ThreadState.Running Then

Salir = True 'Indicamos salir para finalizar el bucle

th.Abort() ' y Abortamos el hilo

End If

End Sub

Y en el boton3, lo llamamos ver estado y escribimos el siguiente codigo para que nos muestre mientras se está ejecutando o no el estado del hilo.

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       MsgBox(th.ThreadState.ToString)
   End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

MsgBox(th.ThreadState.ToString)

End Sub

.Este es un ejemplo sencillo de hilo, los hilos tienen multiples estados, se pueden pausar, reanudar….
y son bastante utiles si necesitamos hacer operaciónes que no deben influir en la experiencia del usuario.

dejo aqui el codigo comentado del ejemplo.

Public Class Form1
   'Declaracion del hilo
   Dim th As New Threading.Thread(AddressOf CambioColor)

   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       th = Nothing 'Vacia el hilo.
       GC.Collect() 'llamada al garbage collection para vaciar la memoria
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'desactivamos la restriccion a los hilos
       Me.CheckForIllegalCrossThreadCalls = False
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'Controlamos los estados
       If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Or th.ThreadState = Threading.ThreadState.Stopped Then
           th = New Threading.Thread(AddressOf CambioColor)
           Salir = False 'indica False para que el bucle pueda seguir
           th.Start() 'Inicia el hilo
       Else
           MsgBox("El hilo esta corriendo")
       End If
   End Sub

   Dim Salir As Boolean 'True sale del bucle, false sigue
   Public Function CambioColor()
       Dim c As New Color
       Dim A As New Random
       Dim R As New Random
       Do Until Salir 'Bucle
           Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))
       Loop
   End Function

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If th.ThreadState = Threading.ThreadState.Running Then
           Salir = True 'Indicamos salir para finalizar el bucle
           th.Abort() ' y Abortamos el hilo
       Else
           MsgBox("El hilo esta parado")
       End If
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Me.Label1.Text = th.ThreadState.ToString 'asigna al label el estado del hilo
   End Sub
End Class

Public Class Form1

'Declaracion del hilo

Dim th As New Threading.Thread(AddressOf CambioColor)

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

th = Nothing 'Vacia el hilo.

GC.Collect() 'llamada al garbage collection para vaciar la memoria

End Sub

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

'desactivamos la restriccion a los hilos

Me.CheckForIllegalCrossThreadCalls = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Controlamos los estados

If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Or th.ThreadState = Threading.ThreadState.Stopped Then

th = New Threading.Thread(AddressOf CambioColor)

Salir = False 'indica False para que el bucle pueda seguir

th.Start() 'Inicia el hilo

Else

MsgBox("El hilo esta corriendo")

End If

End Sub

Dim Salir As Boolean 'True sale del bucle, false sigue

Public Function CambioColor()

Dim c As New Color

Dim A As New Random

Dim R As New Random

Do Until Salir 'Bucle

Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))

Loop

End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If th.ThreadState = Threading.ThreadState.Running Then

Salir = True 'Indicamos salir para finalizar el bucle

th.Abort() ' y Abortamos el hilo

Else

MsgBox("El hilo esta parado")

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Label1.Text = th.ThreadState.ToString 'asigna al label el estado del hilo

End Sub

End Class

ya sabes, si te gusta unete a nuestro foro , comenta y compartelo.