TcpClient TcpListener
Aqui te dejo el video de como realizar una aplicacion con TcpClient y TcpListener
Hasta otra y suscribete
Mes: julio 2016
Reindexar y Defragmentar la base de datos
Reindexar y Defragmentar la base de datos
De vez en cuando siempre es bueno utiliar este tipo de script para ir ordenando los datos guardados de nuestra base de datos y que el rendimiento no se vea mermado por el volumen de datos.
Pare ello te propongo que utilices este script que volvera a generar los indices de las tablas y las defragmentara.
Aun que ya existan los discos duros solidos , esto hara que el rendimiento mejore.
Espero que os sirva.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
declare @tabla as varchar(150) declare @BBDD as varchar(100) set @BBDD = 'VuestraBBDD' --use declare CursorTabla cursor for Select Table_name from INFORMATION_SCHEMA.tables where TABLE_TYPE like '%table%' order by table_name asc Open Cursortabla Fetch next from Cursortabla into @tabla while @@FETCH_STATUS = 0 Begin print @tabla DBCC DBREINDEX (@tabla,'' ,70) DBCC INDEXDEFRAG(@BBDD,@tabla) Fetch next from Cursortabla into @tabla End close cursortabla deallocate cursortabla |
en la parte donde dice ….
|
1 |
DBCC DBREINDEX (@tabla,'' ,70) |
Puedes variar cada cuanto quieres que se establezca el indice esto afectara a los tiempos de busqueda ya que este parametro secciona los datos en bloques.
Un saludo a Tod@s XD
convertir Byte a String y de String a Byte
Funcion para convertir una cadena a array de byte y de array de byte a cadena en C# y VB.net
No acostumbro a subir ejemplos en c# pero me parecio bien hacer esta transformación, la verdad es que es mu facil el ejemplo y no necesita mucha explicación.
En C#:
|
1 2 3 4 5 6 7 |
public static byte[] GetByteSASCII(string Texto) { ASCIIEncoding GetBytesAscii = new ASCIIEncoding(); byte[] ArrByte; ArrByte = GetBytesAscii.GetBytes(Texto); return ArrByte; } |
|
1 2 3 4 5 |
public static String GetTextoFromByteArray(byte[] ArrayByte) { ASCIIEncoding RetornoTexto = new ASCIIEncoding(); String ADevolver = RetornoTexto.GetString(ArrayByte); return ADevolver; } |
En VB:
|
1 2 3 4 5 6 7 8 9 |
Public Function GetBytesFromASCII(ByVal Texto As String) As Byte() Dim GetBytesAscii As New ASCIIEncoding Return GetBytesAscii.GetBytes(Texto) End Function Public Function GetTextoFromByteArray(ByVal Arraybyte() As Byte) As String Dim RetornoTexto As New ASCIIEncoding Return RetornoTexto.GetString(Arraybyte) End Function |
Espero que les sirva un saludo.
Y suscribete a el canal de souslmakers.
Uso Sencillo de OnMouseEnter de Javascript
Usar OnMouseEnter Sigue este ejemplo sencillo.
En el Articulo de hoy usaremos el evento OnmouseEnter de objetos html para devolver una alerta en javascript.
Para ello añadiremos el evento al objeto y le daremos la direccion de llamada a una funcion javascript. Este evento es invocado cuando el cursor del raton entra o se posiciona en el objeto.
el ejemplo es es el siguiente:
objeto de imagen.
<img src=”http:\\soulsmakers.com\images\sm2.png” onmouseenter=”llamadafuncion();” />
con este sencillo paso ya hemos creado el objeto y le hemos dicho que cuando entremos en el ejectue llamadafuncion,
Ahora crearemos la función:
|
1 2 3 4 5 |
<script lang='text\javascript'> function llamadafuncion(){ alert('Entre dentro del Objecto imagen'); } </script> |
y con ello ya tendremos creada la función.
USO de FolderDialog SaveFileDialog OpenFileDialog
Ejemplos de FolderDialog SaveFileDialog OpenFileDialog
En cualquier aplicacion que se precie siempre hace falta en alguna vez , guardar algun dato o recuperar informacion, bueno para esto podemos utilizar las siguientes funciones de VB.NET
Para Buscar Un Directorio
|
1 2 |
Dim FD As New FolderBrowserDialog Dim ResultadoDirectorio As DialogResult = FD.ShowDialog() |
Cuadro de dialogo para Guaradar un fichero
|
1 2 3 4 |
Dim SD As New SaveFileDialog SD.Title = "Para Guardar" SD.Filter = "txt|*.txt|RTF|*.RTF" Dim ResultadoGuardar As DialogResult = SD.ShowDialog() |
Para abrir un fichero
|
1 2 3 4 |
Dim SDO As New Windows.Forms.OpenFileDialog SDO.Title = "Para Abrir" SDO.Filter = "txt|*.txt|RTF|*.RTF" Dim ResultadoAbrir As DialogResult = SDO.ShowDialog |
Como ves son ejemplos muy sencillos que creo que no necesitan explicación.
Quizas te interese StreamReader,StreamWriter leelo aqui
CREAR EVENTOS NUEVOS EN NUESTRA APLICACION
Ejemplo de un nuevo evento.
Crea una nueva clase ejemplo “Cliente”.
y añade las siguientes lineas.
y añade las siguientes lineas.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Class cliente Public Event ValorCambiado(ByVal e As Object) Private NombreCliente_ As String Public Property NombreCliente() As String Get Return NombreCliente_ End Get Set(ByVal value As String) NombreCliente_ = value RaiseEvent ValorCambiado(value) End Set End Property Public Sub New() End Sub End Class |
Como verás estamos creando un evento cuando se rellena la propiedad nombrecliente, la cual devolvera el valor al cambiar.
una vez creada la clase instanciala de la siguente manera.
|
1 |
Public WithEvents Miclase As New cliente |
y veras quela instancia tendrá el evento ValorCambiado.
el cual será invocado a traves del RaiseEvent pasando a “e” el valor que esta devuelto.
|
1 |
Miclase.NombreCliente = "PEPITO PEREZ" |
Asigna un valor y verás que el evento es invocado
|
1 2 3 |
Private Sub Miclase_ValorCambiado(e As Object) Handles Miclase.ValorCambiado MsgBox(e.ToString) End Sub |
UTILIZAR FADEIN FADEOUT JQUERY
Aqui os dejo el ejemplo de como utilizar el efecto FadeIn FadeOut de Jquery
La verdad es que es mas facil si ves el ejemplo que explicarlo.
Asi que aqui el ejemplo
|
1 2 3 4 5 6 7 8 9 10 |
<script src="../jquery-1.7.1.min.js"></script> <script language="javascript" type="text/javascript"> function PARAHOVER(){ $("#SM").hover(function () { $("#SM").fadeTo(250, 1);}, function () { $("#SM").fadeTo(250, 0.1);} )} </script> |
y si quires aqui te dejo el src para que lo apliques a una imagen de muestra de soulsmakers para el efecto Fadeid fadeout de jquery
|
1 |
<img id="SM" alt="" src="http:\\soulsmakers.com\images\sm2.png" onmouseenter="llamadafuncion();" onmouseover="PARAHOVER();"/> |
Un Saludo a tod@s
COMO SABER LA PRIMARY KEY DE UNA TABLA
Hola a todos,
Para saber la primary key de una tabla es bastante simple.
Para ello utilizaremos las tablas asistentes del sistema de Sql server.
aqui os dejo la select
Aqui os dejo la sentencia para saber la Primary Key de la tabla que queramos.
|
1 |
select * from INFORMATION_SCHEMA.KEY_COLUMN_USAGE where Table_Name = '<AQUI TU TABLA>' |
ni que decir tiene que en table_name se indica la tabla con el esquema de datos que tenemos acceso.
Un saludo a Tod@s
DATATABLE A XML Y DE XML A DATATABLE
Muy buenas a todo, aqui os dejo el codigo de ejemplo de como convertir los datos de un datatable a xml y viceversa.
La forma de acerlo es muy sencilla.
Primero vamos a crear el datatable.
|
1 2 3 4 5 |
Dim dt As New DataTable dt.Columns.Add("ID") Dim dr As DataRow = dt.NewRow dr("ID") = 1 dt.Rows.Add(dr) |
Un datatable muy sencillito para no complicarnos XD 🙂
Para recoger los datos del datatable vamos a utilzar DataSet. y lo vamo ha hacer de la siguiente forma
|
1 2 3 |
Dim ds As New DataSet ds.Tables.Add(dt) Dim stringXML As String = ds.GetXml |
Lo que nos devolvera el “StringXML” es lo siguiente:
|
1 |
"<NewDataSet> <Table1> <ID>1</ID> </Table1> </NewDataSet>" |
Aqui lo he puesto lineal pero la estructura es XML
Bien ahora vamos a devolver este XML a un Nuevo Datatable.
Lo haremos de la siguiente manera. Ahora utilizaremos XMLStreamReader y DataSet.
|
1 2 3 4 |
Dim ds2 As New DataSet Dim xmlSR As System.IO.StringReader = New System.IO.StringReader(stringXML) ds2.ReadXml(xmlSR) Dim dt2 As DataTable = ds2.Tables(0) |
Como veis he creado otro datatable “DT2” y lo hemos rellenado con los datos de la tabla que se ha creado en el dataset. Y con esto hemos concluido.
Espero que os haya servido de ayuda y seguimos adelante.
Quizas te interese como leer y guardar datos en un fichero. Lee el post de StreamReader StreamWriter aqui
Un saludo