Validar cuil Argentina, vb.net

 Private Sub te_cuil_Leave(sender As Object, e As EventArgs) Handles Txt_Cuil.Leave

        If Txt_Cuil.Text <> "" Then

            Dim a(11) As Integer, n As Single

            'cargo en la matriz de izquierda a derecha los numeros correspondientes

            'al cuit ingresado en text1.text sin los guiones suponiendo

            'que el cuit o cuil sea = 30-50052945-4

            a(1) = CInt(Mid(Txt_Cuil.Text, 1, 1)) '= 3

            a(2) = CInt(Mid(Txt_Cuil.Text, 2, 1)) '= 0

            a(3) = CInt(Mid(Txt_Cuil.Text, 4, 1)) '= 5

            a(4) = CInt(Mid(Txt_Cuil.Text, 5, 1)) '= 0

            a(5) = CInt(Mid(Txt_Cuil.Text, 6, 1)) '= 0

            a(6) = CInt(Mid(Txt_Cuil.Text, 7, 1)) '= 5

            a(7) = CInt(Mid(Txt_Cuil.Text, 8, 1)) '= 2

            a(8) = CInt(Mid(Txt_Cuil.Text, 9, 1)) '= 9

            a(9) = CInt(Mid(Txt_Cuil.Text, 10, 1)) '= 4

            a(10) = CInt(Mid(Txt_Cuil.Text, 11, 1)) '= 5

            a(11) = CInt(Mid(Txt_Cuil.Text, 13, 1)) '= 4

            'calculo el digito verificador

            n = (a(1) * 6) + (a(2) * 7) + (a(3) * 8) + (a(4) * 9) + (a(5) * 4) + (a(6) * 5) + (a(7) * 6) + (a(8) * 7) + (a(9) * 8) + (a(10) * 9)

            n = ((n / 11) - Int(n / 11)) * 11

            'el valor de n tiene que ser = a a(11) es decir 4 o el cuit esta mal

            If n = a(11) Then

            Else

                XtraMessageBox.Show("El cuil es incorrecto", "Error al ingresar el Cuil", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End If

        Else

            XtraMessageBox.Show("Debe Ingresar el Cuil", "", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Txt_Cuil.Focus()

        End If

    End Sub

---------------------------------------------------------------------------------------------------------

  Public Shared Function NumeroCuit(ByVal numero As String) As Boolean

            Dim iSuma As Integer = 0

            Dim bValidado As Boolean = False

            numero = numero.Replace("-", "")

            If IsNumeric(numero) Then

                If CLng(numero) <= 0 Then Return False

                If numero.Length <> 11 Then

                    Return False

                Else

                    Dim inicio As Integer = CInt(numero.Substring(0, 2))

                    If inicio <> 20 And inicio <> 23 And inicio <> 24 And inicio <> 27 _

                        And inicio <> 30 And inicio <> 33 Then Return False

                    iSuma += CInt(numero.Substring(0, 1)) * 5

                    iSuma += CInt(numero.Substring(1, 1)) * 4

                    iSuma += CInt(numero.Substring(2, 1)) * 3

                    iSuma += CInt(numero.Substring(3, 1)) * 2

                    iSuma += CInt(numero.Substring(4, 1)) * 7

                    iSuma += CInt(numero.Substring(5, 1)) * 6

                    iSuma += CInt(numero.Substring(6, 1)) * 5

                    iSuma += CInt(numero.Substring(7, 1)) * 4

                    iSuma += CInt(numero.Substring(8, 1)) * 3

                    iSuma += CInt(numero.Substring(9, 1)) * 2

                    iSuma += CInt(numero.Substring(10, 1)) * 1

                End If

                If Math.Round(iSuma / 11, 0) = (iSuma / 11) Then

                    bValidado = True

                End If

            End If

            Return bValidado

        End Function

Error Code: 1267 Illegal mix of collations (utf8_general_ci,IMPLICIT) and (utf8_spanish_ci,IMPLICIT) for operation '='

 En el trabajo he tenido que modificar el modelo de una base de datos MySQL para un proyecto ya casi terminado (benditos lusers que no saben cómo hacen lo que hacen), por lo que creé un par de procedimientos almacenados. En mi equipo funcionaban perfectamente, pero al probarlo en otro no hacía más que mostrar el error:

ERROR 1267 (HY000): Illegal mix of collations (utf8_spanish_ci,IMPLICIT) and (utf8_general_ci,IMPLICIT) for operation '='

El único punto del procedimiento donde podía ocurrir era en un where donde se comparaban dos longtext:

select id into errorid from errortecnico
where mensaje = errormensaje

Buscando y buscando encontré la inspiración en el blog de Pablo Viquez, un desarrollador de Costa Rica, con la única diferencia de que su problema ocurría con la codificación latin1.

La solución es convertir la parte del where que causa problemas a la collation (dentro de una codificación, la ordenación de caracteres) que nosotros usamos mediante la sentencia convert, que en mi caso quedaría tal que así:

select id into errorid from errortecnico where mensaje
= CONVERT(errormensaje using utf8) collate utf8_spanish_ci

Con esto, MySQL convertirá automáticamente el dato que interpretaba como utf8_general_ci a utf8_spanish_ci.

tomado de: https://arklad.wordpress.com/2010/03/23/illegal-mix-of-collations-en-procedimiento-almacenado-de-mysql/

Buscar Procedimiento almacenado en mysql, comprobar si existe

 SELECT EXISTS(SELECT 1 FROM mysql.proc p WHERE db = 'db_name' AND name = 'stored_proc_name');

por lo que podría hacer:

IF NOT EXISTS(SELECT 1 FROM mysql.proc p WHERE db = 'db_name' AND name = 'stored_proc_name') THEN 
.... 
END IF; 

TRIGGER mysql yog Ejemplo

 DELIMITER $$

Observacion: Quiero dispara un registro log en la tbl t_turno_log despues que en la tbl t_turnos de la bd turnos, se registre un nuevo turno.

USE `turnos`$$

DROP TRIGGER /*!50032 IF EXISTS */ `automatico`$$

CREATE

    /*!50017 DEFINER = 'root'@'localhost' */

    TRIGGER `automatico` AFTER INSERT ON `t_turno` 

    FOR EACH ROW BEGIN 

INSERT INTO `turnos`.`t_turno_log`(`codigo`,`descripcion`,`fecha`,`usuario`)

VALUES(NULL,'Se ingreso un nuevo turno.',CURRENT_TIMESTAMP,1);

    END;

$$

DELIMITER ;

Esquema de instalación Correa única, Eco Sport Motor 1.6, Nafta, con a/c. Año, Modelo: 2004-2005