seleccionar ID base de datos

SELECT DB_ID('correo')

timer callback

fuente

fuente2

fuente3

Tipo de datos sql

bigint
binary
bit
char
date
datetime
datetime2
datetimeoffset
decimal
float
image
int
money
nchar
ntext
nvarchar
real
smalldatetime
smallint
smallmoney
structured
text
time
timestamp
tinyint
udt
uniqueidentifier
varbinary
varchar
variant
xml

versión sql

SELECT CASE WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) LIKE '8%' THEN 'SQL2000' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) LIKE '9%' THEN 'SQL2005' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '10.0%' THEN 'SQL2008' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '10.5%' THEN 'SQL2008R2' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '11%' THEN 'SQL2012' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '12%' THEN 'SQL2014' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '13%' THEN 'SQL2016' WHEN CONVERT(VARCHAR(128), SERVERPROPERTY ('productversion')) like '14%' THEN 'SQL2017' ELSE 'SQL????' END

hacer click botón página web

Private Sub btn_consultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_consultar.Click

        Dim elc As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each el As HtmlElement In elc
            If el.GetAttribute("Name").Equals("ACEPTAR") Then
                el.InvokeMember("click")
                Exit For
            End If
        Next
    End Sub

captcha

Private Sub btn_captcha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_captcha.Click

        Dim htmlDocument As HtmlDocument = WebBrowser1.Document
        Dim htmlElementCollection As HtmlElementCollection = htmlDocument.Images

        For Each htmlElement As HtmlElement In htmlElementCollection

            Dim imgUrl As String = htmlElement.GetAttribute("src")
            If imgUrl.StartsWith("https://zeus.sii.cl/cvc_cgi/stc/CViewCaptcha.cgi?oper=1&txtCaptcha=") Then
                image_url = imgUrl
                picture_box.ShowDialog()
                Exit For
            End If
            Dim pause As String = ""
        Next

    End Sub

convertir de código ascii to char

Dim char As Char = Convert.ToChar(55)

web browser

Me.WebBrowser1.Navigate("about:blank")

archivos con expresiones regulares

Dim rgx As Regex = New Regex("[^a-z]")

Dim archivosTxt() As String = Directory.GetFiles("carpeta_origen, "*.*").Where(Function(c) rgx.IsMatch(Path.GetFileName(c))).ToArray

mes en palabras

dtp_fecha_ValueChanged(Me, EventArgs.Empty)

Public Function get_fecha() As String
        Return dtp_fecha.Value.ToString("dd-") & New CultureInfo("es-ES", False).DateTimeFormat.GetMonthName(dtp_fecha.Value.ToString("MM")) & dtp_fecha.Value.ToString("-yyyy")
    End Function

salida = 10-octubre-2019


fuente