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

Estandarizar fecha para distintos lenguages y sistemas operativos

Dim ci As CultureInfo = CultureInfo.CreateSpecificCulture(CultureInfo.CurrentCulture.Name)
ci.DateTimeFormat.ShortDatePattern = "dd-MM-yyyy" System.Threading.Thread.CurrentThread.CurrentCulture = ci



fuente

suma y resta día

formato entrada fecha=20191017

Public Function suma_resta_dia(ByVal fecha As String, ByVal dias As Integer) As Integer
        fecha = fecha.Insert(4, "-").Insert(7, "-")
        Dim dt As DateTime = DateTime.Parse(fecha).AddDays(dias)
        Return dt.ToString("yyyyMMdd")
    End Function

wsconfig

-Agregar contraseña a las tareas
-Agregar hora de inicio

fecha máxima

DateTimePicker.MaxDate = DateTime.Today

cambiar formato fecha

fecha='20191009

Public Function get_fecha_inicio(ByVal fecha As String) As String
        Dim tmp As String = ""
        tmp += fecha.Substring(6, 2) & "-"
        tmp += fecha.Substring(4, 2) & "-"
        tmp += fecha.Substring(0, 4)
        Return tmp
    End Function

datagridview columna y fila

columna=DgvTareas.CurrentCell.ColumnIndex
fila=Form1.DgvTareas.CurrentRow.Index

fuente

date time picker formato

DateTimePicker.Format = DateTimePickerFormat.Custom
DateTimePicker.CustomFormat = "HH:mm:ss"


DateTimePicker.CustomFormat = "HH:mm:ss tt"  --> 23:34:54 AM/PM


fuente

windows form activo

 If Application.OpenForms.OfType(Of windows_form1).Any Then
            MessageBox.Show("windows form1")
        ElseIf Application.OpenForms.OfType(Of windows_form2).Any Then
            MessageBox.Show("windows_form2")
        End If

fuente

Bloquear tabpage

Private Sub TabControl1_Selecting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TabControlCancelEventArgs) Handles TabControl1.Selecting
       If e.TabPageIndex = 1 Then
           e.Cancel = True
       End If
    End Sub

fuente

Directorio de un archivo

archivo = "D:\programa\bin\archivos\test\archivo.xml"

Dim ruta As String = New FileInfo(archivo).Directory.FullName
Dim ruta As String = Path.GetDirectoryName(archivo)

Error System.OutOfMemoryException

Iniciar Timer después de iniciar

 If t.Enabled Then
         Timer_Tick1(t, EventArgs.Empty)
 End If


fuente

sql producto version y nivel

select serverproperty('productversion'),serverproperty('productlevel'),serverproperty('edition')

Hora Minuto Segundo a palabras

fuente1