Visual Basic y MySQL Server

Como hacer un trigger desde Visual Basic y en MYSQL

2010-12-03T08:31:00.000-08:00

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

2010-12-03T08:25:00.000-08:00

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

2010-12-03T08:18:00.000-08:00

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

2010-12-03T08:07:00.000-08:00

Ejemplo de como concatenar campos en MySQL.

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

Calcular el tiempo entre 2 horas en MYSQL

2010-12-03T07:57:00.000-08:00

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

2010-12-03T07:26:00.000-08:00

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

2010-12-03T07:22:00.000-08:00

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 ganar dinero en Internet

2010-11-30T09:52:00.000-08:00

Primer Paso:

Para comenzar a ganar dinero en internet, lo primero que debemos hacer es elegir un tema para nuestra web.

El tema debe ser sobre algo que comprendamos y nos guste. Para este caso los temas son infinitos. Recuerda que hay gente que tiene los mismos intereses que tu.

Ejemplo:

Futbol o deportes en general.

Belleza y Moda

Decoracion

Programacion

Internet

Etc.

Una ves que hemos elejido nuestro tema, debemos crear una cuenta de correo eléctrico en GMAIL de la siguiente manera:

Nos dirigimos a la web de google y clickeamos en el enlace senalado por la flecha roja de la imagen siguiente.

En la siguiente ventana buscamos el boton crear cuenta tal como nos muestra la imagen siguiente.

Le hacemos click al boton de la imagen anterior y nos aparecera la venta de la imagen siguiente. alli llenamos los datos que nos pide para crear la cuenta de correo.

Segundo Paso:

Nuestro siguiente paso seria registrar nuestra cuenta en adsense para que podamos poner la publicidad de google en nuestra web y a traves de ella podamos generar nuestros ingresos (ganancias).

Este sistema funciona de la siguiente manera. Google coloca su publicidad en nuestro blog (que ya mas adelante veremos como se crea) . Por cada click que hagan nuestros visitantes google nos pagara aprox. un centavo de dolar. esto resulta muy bueno cuando generamos mucho trafico en nuestra blog y para ello obviamente necesitamos un buen tema.

Nosvamos a nuestro buscador Google y ponemos la palabra adsense, tal como se ve en la imagen siguiente y le damos buscar. Nos aparecera el resultado adsense de Google como primer resultado. Clickeamos alli.

Nos aparecera la ventana de la imagen siguiente y haremos click en el boton senalado por la flecha rojo.

En la siguiente venta llenamos la informacion que nos solicita y le damos ennviar informacion.

En la siguiente ventana marcamos las opciones tal y como estan en la imagen siguiente e ingresamos con nuestra cuenta de Gmail que hemos creado anteriormente y le damos continuar.

Luego de este paso esperaremos hasta que google autorice nuestra cuenta de adsense. Para ello deben transcurrir de 24 a 48 aprox.

Tercer Paso:

Una ves que Google nos envia un correo a nuestra cuenta Gmail que hemos creado anteriormente, indicandonos que nuestra cuenta adsense a sido habilitada, procedemos a la creacion de nuestro blog. Para ello vamos a utilizar www.blogger.com el cual nos dara un dominio de la siguiente manera: www.nombredemiblog.blogspot.com.

Ingresamos con nuestra cuenta Gmail creada anteriormente, tal como se muestra en la imagen.

Llenamos la informacion con los datos de nuestro blog y le damos siguiente.

La siguiente venta nos permitira escoger la plantilla de nuestro blog, es decir la apariencia que queremos que tenga. escogemos nuestra plantilla y clickeamos en siguiente.

La siguiente ventana que aparecera debera ser como la que se muestra. y luego le damos click en el enlace que se muestra con la flecha roja.

En la siguiente ventana escogemos monetizar, tal como se indica en la imagen siguiente con la flecha roja.

Nos aparece esta ventana, escogemos la forma en que queremos aparesca la publicidad de Google adsense y le damos siguiente.

Le indicamos que tenemos nuestra cuenta gmail asociada a adsense, la cual hemos creado y nos ha servido para todo el proceso.

NOTA: Vemos en la imagen, que hemos ingresado nuestra cuenta gmail de siempre y 5 digitos los cuales corresponden a los 5 ultimos digitos de nuestro numero de telefono que dimos al momento de registrarnos en adsense.

FIN

Resumen:

Como crear una cuenta en GMAIL.

Como registrarse en adsense de google.

Como crear un blog en blogger.com

Como crear una entrada en nuestro blog.

Como conectarse a base de datos mysql Utilizando VB6

2010-11-29T15:02:00.000-08:00

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

Como configurar el escritorio remoto en xp

2010-10-12T10:33:00.000-07:00

Autor: Beto Chavez

Como configurar mi escritorio remoto para acceder desde Internet a mi pc?

1.- Activamos el acceso remoto a nuestra PC

En el icono de mi pc, click derecho propiedades. allí nos vamos a la pestaña que dice remoto y activamos la casilla que dice: Permitir que los usuarios se conecten de manera remota a este equipo.

Seguidamente activamos el puerto en el firewall de nuestra pc.

2.- Verificamos que IP tiene nuestra maquina a la que deseamos conectarnos.

3. - Probando la conexión a nuestra maquina

Ahora que tenemos nuestra ip, vamos a probar nuestro acceso remoto a nuestra maquina. Vamos a menú Inicio/Accesorios/Comunicaciones/Escritorio remoto.

Allí digitamos nuestra ip remota y le damos conectar.

Ponemos nuestro usuario y contraseña y ya estamos en nuestra maquina.

Finalmente, configuramos nuestro router con el puerto 3389. en este caso redirigimos la conexion via el puerto 3389 a nuestra maquina que tiene la ip 192.168.1.42 y con esto podremos acceder desde cualquier parte del mundo. OJO. si estamos fuera de nuestra oficina, suponiendo que estas en la china deberas poner tu ip publica, es decir la ip que tiene tu router y este lo dirigira hacia nuestra maquina y listo. podremos trabajar.