Como hacer un trigger desde Visual Basic y en MYSQL

Ejemplo para crear trigger desde Visual Basic en MYSQL 

'Eliminamos si existen

Cn.Execute "DROP TRIGGER if exists  Situacion_de_contratos_i;"
Cn.Execute "DROP TRIGGER if exists  Situacion_de_contratos_u;" 

'Creamos Los triggers 

Cn.Execute "CREATE TRIGGER if not exists Situacion_de_contratos_i BEFORE INSERT ON CONTRATOS FOR EACH ROW UPDATE TRABAJADORES SET FEC_INCONTRATO=NEW.FEC_INI, FEC_FINCONTRATO=NEW.FEC_FIN, SIT_LABORAL='CONTRATADO' WHERE DNI = NEW.CODIGO;"
Cn.Execute "CREATE TRIGGER if not exists Situacion_de_contratos_u BEFORE update ON CONTRATOS FOR EACH ROW UPDATE TRABAJADORES SET FEC_INCONTRATO=NEW.FEC_INI, FEC_FINCONTRATO=NEW.FEC_FIN, SIT_LABORAL='CONTRATADO' WHERE DNI = NEW.CODIGO;"

Cambiar de tamaño automaticamente un listview

Ejemplo de como cambiar de tamano automaticamente las columnas de un listview en visual basic 6.

'Declaraciones
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LVM_SETCOLUMNWIDTH = &H1000 + 30
Private Const LVSCW_AUTOSIZE = -1
Private Const LVSCW_AUTOSIZE_USEHEADER = -2

'Funcion que cambia de tamano las columnas de un listview.

Public Sub AdjustColumnWidth(LV As ListView, AccountForHeaders As Boolean, Optional AjusttoLast As Boolean = True)
On Error Resume Next
   Dim Col As Integer
   Dim lParam As Long

   If AccountForHeaders Then
      lParam = LVSCW_AUTOSIZE_USEHEADER
   Else
      lParam = LVSCW_AUTOSIZE
   End If
   For Col = 0 To LV.ColumnHeaders.Count - 1
    If AjusttoLast Then
     SendMessage LV.hwnd, LVM_SETCOLUMNWIDTH, Col, ByVal lParam
    Else
     If Not Col = LV.ColumnHeaders.Count - 1 Then SendMessage LV.hwnd, LVM_SETCOLUMNWIDTH, Col, ByVal lParam
    End If
   Next
End Sub

Invocamos a la funcion despues de cargar nuestro listview
.

AdjustColumnWidth ListView1, True

Como hacer un UPDATE en MYSQL

Ejemplo de UPDATE en MySQL.

'Modificando un solo registro
UPDATE TEST SET PATERNO='CHAVEZ', MATERNO='RODRIGUEZ', NOMBRE='BETO' WHERE DNI='47647498'

'Modificando varios registros
UPDATE TEST SET FECHA='2010-12-01' WHERE DOCUMENTO IN ('001-0001','001-0002')

Como concatenar campos en MySQL

Ejemplo de como concatenar campos en MySQL.

SELECT CONCAT(PATERNO,' ', MATERNO, ' ', NOMBRES) AS NOMBRES FROM TRABAJADORES.

Calcular el tiempo entre 2 horas en MYSQL

Este es un ejemplo de como calcular el tiempo transcurrido entre una hora de inicio y una hora de fin en MySQL.

SELECT
    PATERNO,
    MATERNO,
    NOMBRES,
    TIME_FORMAT(TIMEDIFF(concat(FEC_SAL,' ',HOR_SAL),concat(FEC_ING,' ',HOR_ING)),'%h:%m:%s') AS TIEMPO_TRANSCURRIDO
FROM TEST

Como formatear un campo hora en MySQl

Este es un ejemplo de como formatear un campo de hora en MySQL.

SELECT
    PATERNO,
    MATERNO,
    NOMBRES,
    TIME_FORMAT(HORA,'%h:%m:%s') AS INGRESO
FROM ASISTENCIA

Como formatear un campo fecha en MYSQL

Este es un ejemplo de como formatear un campo de FECHA en MySQL.

SELECT
    PATERNO,
    MATERNO,
    NOMBRES,
    DATE_FORMAT(FEC_NACIMIENTO,'%d-%m-%Y') AS NACIMIENTO
FROM PERSONAL