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

Como conectarse a base de datos mysql Utilizando VB6

Ejemplo en Visual Basic 6 para conectarse a una Base de datos en MySQL

'********************************************************************
'Adalberto Chavez
'Lima - Peru

'********************************************************************
'Declaramos nuestra constante de conexion
'Para poder utilizar una constante de conexion desde todo el proyecto
'debemos crear un modulo donde poner este codigo
'y para declarar la constante debemos utilizar Public o Global
'en este caso vamos a utilizar Dim (Local)

Dim Cn As ADODB.Connection

Private Sub Command1_Click()
On Error GoTo ErrFind
'Antes que nada debemos agregar en el menu:
'Proyecto/Referencias
'Seleccionar: Microsoft Activex data Objects 2.8 Library

    Set Cn = Nothing 'Limpiamos la conexion
    Set Cn = New ADODB.Connection 'Seteamos la Conexion en nuestra constante
    
    Cn.CursorLocation = adUseClient 'Utilizamos Cursor de Cliente
    'Establecemos la cadena de conexion
    Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                          "SERVER=localhost;" & _
                          "PORT=3306;" & _
                          "UID=root;" & _
                          "PASSWORD=test;" & _
                          "DATABASE=test;"
    'Abrimos nuestra conexion
    
    Cn.Open
    'Mandamos un mensaje al usuario, advirtiendo que la conexion fue exitosa
    MsgBox "Programa: Exito"
    Exit Function
ErrFind:
'Mensaje de Errores en la conexion
    MsgBox Err.Description, vbInformation, App.Title
End Sub