Columnas de una vista sql

SELECT *
FROM sys.columns
WHERE object_id = OBJECT_ID('dbo.nombre_vista')

Seleccionar una columna específica

SELECT name
FROM sys.columns
WHERE object_id = OBJECT_ID('dbo.nombre_vista')

Remover caracter

Dim x As String = "casa-arbol"
x = x.Remove(4, 1)

x  = "casaarbol"

Obtener dato de un nodo

Dim doc As New XmlDocument
doc.Load("archivo.xml")

<?xml version="1.0" encoding="utf-8"?>
<Data>
<Conex>RTYGFFSDHTYRSDSDF</Conex>
</Data>

Dim conex As String = doc.SelectSingleNode("/Data/Conex").InnerText
conex = "RTYGFFSDHTYRSDSDF"

Código de actividad económica Acteco

sii_acteco

Escribir en un archivo los elementos de una lista

File.WriteAllLines("archivo.txt", listaTxt.ToArray, System.Text.Encoding.UTF8)

Cargar un archivo en una lista

Public dataTxt As New List(Of String)
dataTxt = File.ReadAllLines("archivo.txt").ToList()

Sqlcommand con LIKE

 Dim query As String = "SELECT * FROM tablasql WHERE DTE LIKE '%' + @dte AND Numero LIKE '%' + @folio AND cliente=@rut"

Encriptar y Desencriptar un string

Imports System.Web

Public Function Desencriptar(ByVal password As String) As String
        Return Encoding.UTF8.GetString(Convert.FromBase64String(HttpUtility.UrlDecode(password)))
    End Function

Public Function Encriptar(ByVal password As String) As String
        Return HttpUtility.UrlEncode(Convert.ToBase64String(Encoding.UTF8.GetBytes(password)))
    End Function

fuente

DWA-131

Drivers

H/W Ver.: E1
F/W Ver.: 5.02

www

Obtener día de la semana en palabras

Imports System.Globalization

Public Function getDayWord()
        Dim culture As New CultureInfo("es-CL")
        Dim diaSemana As String = culture.DateTimeFormat.GetDayName(DateTime.Today.DayOfWeek)
        diaSemana = Char.ToUpper(diaSemana(0)) & diaSemana.Substring(1)
        Return diaSemana
    End Function