seleccionar último registro de una tabla

select top 1 * from tabla order by campo_tabla desc

fuente

xml obtener valor atributo

Dim doc As New XmlDocument
        doc.Load("dte33.xml")
        Dim dte As Integer = doc.DocumentElement.Attributes("DTE.").Value

Certificado no obtiene token error

XML Invalido, elemento "Certificate" no existe, funcion getCertificado

sql buffer

CHECKPOINT; 
GO 
DBCC DROPCLEANBUFFERS; 
GO

fuente

collation intercalación

Operaciones de igualdad

T1.tipo_dte COLLATE DATABASE_DEFAULT=T2.codigo

Group by
GROUP BY
   T1.tipo_libro COLLATE DATABASE_DEFAULT,
   T1.periodo COLLATE DATABASE_DEFAULT,
   T1.tipodoc COLLATE DATABASE_DEFAULT ,
   T2.nombre   

cargar configuración

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cfg As New List(Of List(Of List(Of String)))

        For i As Integer = 0 To 2
            cfg.Add(New List(Of List(Of String)))
        Next


        cfg.Add(New List(Of List(Of String))) ' empresa 1
        cfg.Add(New List(Of List(Of String))) ' empresa 2



        Select Case 1

        End Select



        cfg(0).Add(New List(Of String)) ' 33
        cfg(0).Add(New List(Of String)) ' 34
        cfg(0).Add(New List(Of String)) ' 39
        cfg(0).Add(New List(Of String)) ' 41
        cfg(0).Add(New List(Of String)) ' 43
        cfg(0).Add(New List(Of String)) ' 46
        cfg(0).Add(New List(Of String)) ' 52
        cfg(0).Add(New List(Of String)) ' 56
        cfg(0).Add(New List(Of String)) ' 61
        cfg(0).Add(New List(Of String)) ' 110
        cfg(0).Add(New List(Of String)) ' 111
        cfg(0).Add(New List(Of String)) ' 112



        cfg(1).Add(New List(Of String))
        cfg(1).Add(New List(Of String))
        cfg(1).Add(New List(Of String))
        'cfg(0).Add(New List(Of List(Of String))

        cfg(0)(0).Add("1245-3")
        cfg(0)(0).Add("RAZON SOCIAL")
        cfg(0)(0).Add("DIRECCION")

        cfg(0)(1).Add("<TipoDTE>33</TipoDTE>")
        cfg(0)(2).Add("<TipoDTE>61</TipoDTE>")


        cfg(1)(0).Add("3456568-K")
        cfg(1)(0).Add("RAZON SOCIAL")
        cfg(1)(0).Add("DIRECCION")


        cfg(1)(1).Add("<TipoDTE>33</TipoDTE>")
        cfg(1)(2).Add("<TipoDTE>61</TipoDTE>")



        'For Each elem As String In cfg
        '    MessageBox.Show(elem)
        'Next


        'MessageBox.Show(cfg(0)(0)(0))

        For i As Integer = 0 To cfg.Count - 1

            If cfg(i)(0)(0) = "0-3" Then
                MessageBox.Show("sasdad")
            End If


            MessageBox.Show(cfg(i)(0)(0))
        Next


        Dim cfg2 As List(Of List(Of List(Of String))) = cfg


        Try
            cfg.Clear()
        Catch ex As Exception

        End Try

        Dim p As String = ""

    End Sub

version 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 'SQL2008 R2'
     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 'unknown'
  END AS MajorVersion,
  SERVERPROPERTY('ProductLevel') AS ProductLevel,
  SERVERPROPERTY('Edition') AS Edition,
  SERVERPROPERTY('ProductVersion') AS ProductVersion

fuente

fecha sql y error collation

formato: 2019-05-17

CAST(GETDATE() AS DATE)

Agregar o restar días, ejemplo restar 8 días a la fecha actual


DATEADD(DAY,-8,CAST(GETDATE() AS DATE))

use Head_DTE
select count(*) from hist_DTE t1 left join
registro_compra_venta t2 on t1.tipo_DTE=t2.tipo_dte collate database_default and t1.RUT_cliente=t2.rut collate database_default  and t1.folio=t2.folio
where t1.fecha_emision >=DATEADD(DAY,-8,CAST(GETDATE() AS DATE)) and t1.fecha_emision <=CAST(GETDATE() AS DATE) AND t1.estado_SII='Aceptado' AND t1.borrado='NO' AND t2.tipo_libro='V' AND NOT (t2.vta_fecha_reclamo IS NULL OR t2.vta_fecha_reclamo='')

fuente

ordenar una columna datagridview

configuracion.dgv_cfg.Sort(configuracion.dgv_cfg.Columns(0), System.ComponentModel.ListSortDirection.Ascending)




fuente

seleccionar una fila completa datagridview

fuente

Ordenar columnas con el mouse datagridview

AllowUserToOrderColumns = True

deshabilitar varios checkbox

Public Sub cbx_encabezado(ByVal op As Integer)
        Dim i As Integer = 0
        Dim cbx() As CheckBox = New CheckBox(4) {}
        cbx(0) = cbx_iddoc
        cbx(1) = cbx_emisor
        cbx(2) = cbx_receptor
        cbx(3) = cbx_totales
        cbx(4) = cbx_todos
        For Each items As CheckBox In cbx
            If i = op Then
                items.Checked = True
            Else
                items.Checked = False
            End If
            i += 1
        Next
    End Sub



fuente

tiempo transcurrido y tiempo restante

velocidad de descarga
tiempo restante1
tiempo restante2

Servicio windows

Agregar Descripción:
- ProjectInstaller.vb
- ServiceInstaller1
- Description

Nombre servicio en Servicios (Herramientas administrativas)
- ProjectInstaller.vb
- ServiceInstaller1
- ServiceName

Nombre del archivo en Programas y características

- Setup1

- ProductName

Cambiar carpeta de instalación y nombre en

variantes GetFiles

Obtener los nombres de archivo

Dim archivos() As String = Directory.GetFiles(dir, "*.txt").Select(Function(c) Path.GetFileName(c)).ToArray

Obtener archivos específicos

Dim rx As Regex = New System.Text.RegularExpressions.Regex("^(FCV|NCV|FDV|BLV)([0-9]{10})([A-Z]+)(.TXT|.txt)$")

Dim archivos() As String = Directory.GetFiles(dir, "*.*").Where(Function(c) rx.IsMatch(Path.GetFileName(c))).ToArray

Obtener archivos específicos2

Dim rx As Regex = New System.Text.RegularExpressions.Regex("^(FCV|NCV|FDV|BLV)([0-9]{10})([A-Z]+)(.TXT|.txt)$")

Dim result() As String = (From v In Directory.GetFiles(dir, "*.*") Where rx.IsMatch(Path.GetFileName(v))).ToArray

^(.+)(.txt|.TXT|.XML)$
^.+$  todos los archivos