Error con MySQL

[LEBS]

Hola. Buenas noches.

A ver, el problema es el siguiente:

Estoy haciendo un sistema y vá con una base de datos de MySQL en donde hay un formulario y se tiene que ir rellenando para luego ingresarlo en la base de datos. Lo quiero saber es como hacer para capturar un error cuando se ingresan datos ya existente.

En este caso me salta el error "-2147217900 Duplicate entry 'A' for a key 'PRIMARY'"

En este ejemplo que les dí, A viene a ser el dato que estoy ingresando que ya está en la base de datos.

Lo que quiero, es que no me aparezca ese mensaje de error de visual sinó usar un formulario para mostrar un mensaje de error determinado.

No sé sí me explico?

Un saludo para todos.

[SalomonSab]

has una consulta y si el dato ya existe que te mande un Error seria algo asi:

Código:

If rs.State = 1 Then rs.Close
        rs.Open "SELECT * FROM TuTabla WHERE TuCampo = '" & TuCajadeTexto & "'", TuConexión, adOpenStatic, adLockOptimistic
            If rs.RecordCount = 0 Then
                'No hagas nada
                Else
                    'Recorremos los Registros hasta dar con el indicado
                    While rs.EOF = False
                        If rs.Fields("TuCampo") = TuCajadeTexto.Text Then
                            MsgBox " El Dato que ingreso ya existe en la base de datos ", vbCritical, "Mensaje ERROR..."
                          'Aqui colocas todo el codigo que quieras mostrar
                            Exit Sub
                        End If
                        rs.MoveNext
                    Wend
            End If

Espero te sirva, lo hice al vuelo y probablemente pueda tener errores de sintaxis, pero esa es la idea

[LEBS]

Faaa SalomonSab.... más clarito imposible.
Muy agradecido a vos.
Saludos.

[Avellaneda]

Bueno, tampoco sería necesario recorrer el recordset. Si la propiedad RecordCount es mayor de cero es que el dato ya existe:

Código vb:

rs.Open "SELECT * FROM TuTabla WHERE TuCampo = '" & TuCajadeTexto & "'", TuConexión, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
     MsgBox " El Dato que ingreso ya existe en la base de datos ", vbCritical, "Mensaje ERROR..."
     'Aqui colocas todo el codigo que quieras mostrar
     Exit Sub
End If
 

[LEBS]

Hola, acá volví...
estuve desaparecido unos días.
Ahora pruebo de las dos formas y les comento.
Muchas gracias. :)

[vicentecamesella]

Mira amigo mas facil coloca algo si

Primero crea un modulo donde coloques la descripcion de los mensajes que quieres ejemplo

IF err.number = -121212 then
msgbox "xxxxxxxxxx"
endif

y asi con cada error

en el formulario haces esto

On Error GoTo ErrorSub

codigo que desees

Exit Sub
ErrorSub:
Call ERROR(Err.Description, Err.Number)

donde ERROR el el procedimiento del sub del modulo espero te sirva saludos