Eliminar elementos vacios al aplicar Split

partes = linea.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)

sql server version list

http://sqlserverbuilds.blogspot.cl/

https://support.microsoft.com/es-es/kb/321185

documentos sii

formato_dte
formato libros compra y venta
resolución exenta 66 (patente vehículos)

7zip

7zip 32 bits

7zip 32 bits otro link

SQL server 2008

sql server 2008 español 32 bits
sql server 2008 español 64 bits

sql server 2008 inglés 32 bits 
sql server 2008 inglés 64 bits

The object 'x' does not exist or is invalid for this operation

Edit-->IntelliSense-->Refresh Local Cache

Invertir un número

Module Module1
    Sub Main()
        Dim numero As Long = 987654321
        Dim numero_invertido As Integer = 0
        While numero > 0
            numero_invertido = (numero_invertido * 10) + (numero Mod 10)
            numero = Math.Truncate(numero / 10)
        End While
        Console.WriteLine(numero_invertido)
        Console.ReadKey()
    End Sub
End Module

Mostrar icono de información y error en MessageBox

MessageBox.Show("Mensaje","Título ventana", MessageBoxButtons.OK, MessageBoxIcon.Error)
MessageBox.Show("Mensaje","Título ventana", MessageBoxButtons.OK, MessageBoxIcon.Information)
MessageBox.Show("No se pudo establecer conexión con el servidor", "", _
                            MessageBoxButtons.OK, MessageBoxIcon.Warning)

Generador de expresiones regulares

http://txt2re.com/
http://www.regextester.com
https://regex101.com/

Validar Rut Chile

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dv As String = Nothing
        Dim suma As Integer = 0
        Dim iRut() As Char = StrReverse(TextBox1.Text.Trim)
        Dim j As Integer = 1

        For i As Integer = 0 To iRut.Length - 1
            j += 1
            suma = suma + (Val(iRut(i)) * j)
            If j = 7 Then
                j = 1
            End If
        Next
        dv = digitoVerificador(suma)
        If dv = TextBox2.Text.ToUpper Then
            MessageBox.Show("RUT CORRECTO!")
        Else
            MessageBox.Show("RUT INCORRECTO!")
        End If
    End Sub

    Public Function digitoVerificador(ByVal d_v As Integer) As String
        d_v = 11 - (d_v Mod 11)
        If d_v = 10 Then
            Return "K"
        ElseIf d_v = 11 Then
            Return "0"
        Else
            Return d_v
        End If
    End Function

Descarga: http://bit.ly/1K0nTLs

Microsoft.Office.Interop.Outlook v11.0.0.0

http://bit.ly/1JzFxsl

Obtener el número de columnas de una tabla SQL

SELECT COUNT(*) FROM INFORMATION_SCHEMA.COLUMNS 
WHERE TABLE_NAME = 'nombre_tabla'

mantener el valor de una variable

mantener el valor de una variable
https://drive.google.com/file/d/0B6FHA01qe5mcS1BLWTU5d0tHTkk/view?usp=sharing
pass:123