lunes, 30 de marzo de 2020

Listar elementos combobox

For Each elem As String In ComboBox.Items

Next

Eliminar todos los espacios en blanco

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

fuente

lunes, 23 de marzo de 2020

Valor máximo de una columna datagridview

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

fuente

miércoles, 18 de marzo de 2020

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

martes, 17 de marzo de 2020

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

jueves, 12 de marzo de 2020

jueves, 5 de marzo de 2020