Eliminar todos los espacios en blanco

variable = variable.Text.Replace(" ",String.Empty)

fuente

Valor máximo de una columna datagridview

IdTarea = dgv_tareas.Rows.Cast(Of DataGridViewRow).Max(Function(row) row.Cells("Column1").Value)

fuente

Insertar campo blob

Insert TestBlob(tbName, tbDesc, tbBin) Select
'81.pdf','PDF file', BulkColumn from Openrowset( Bulk
'C:\fact2\pdf\DTE46-F1.PDF', Single_Blob) as tb

fuente

Función sumar

Dim sum As Func(Of Integer, Integer, Integer) = Function(x, y) x + y

MessaBox(sum(4,4) = 8


Dim OpAnd As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x AndAlso y

Operación And

Dim OpOr As Func(Of Boolean, Boolean, Boolean) = Function(x, y) x OrElse y

trim array

Dim arreglo() As String = arreglo.Split(c).Select(Function(elem) elem.Trim).ToArray

Patron extensión archivos Regex

"^.*\.("txt|TXT|xml|XML")$"


fuente

regex números y letras

https://stackoverflow.com/questions/11794144/regular-expression-for-valid-filename

Certificación Boleta electrónica

Instructivo certificación boleta electrónica
Set de pruebas boleta
Declaración de cumplimiento Boletas


nuevo certificación

xml instancia nothing

Dim xml As New XmlDocument

xml = Nothing

Nombre variables

Obj
ObjCmd
ObjConn
StrConn
StrConex