validar llave primaria en visualbasic con mysql

[pangallo]

hola a todos espero me puedan ayudar, estoy haciendo un sistema de inventario en visual basic con el SMBD mysql.LO QUE QUIERO ES QUE AL INSERTAR EL FOLIO MANDE UN MSGBOX DICIENDO QUE YA EXISTE ESE FOLIO,PORQUE COMO ESTA AHORITA SOLAMENTE MANDA UN MSJ DE ERROR PROPIO DE VISUAL BASIC COMO CACHO ESTE ERROR.
hago la conexion al servidor demysql
'CONEXION BD EN MYSQL
Public Cn As ADODB.Connection
Public SQLServerConnection As String
Public Cm As ADODB.Command
Public Rs As ADODB.Recordset

Public Sub conexion()

Set Cn = New ADODB.Connection
Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=digitalexpress;" _
& "UID=root;PWD=; OPTION=3"
Cn.Open
End Sub


CODIGO DE INSERTAR

Private Sub Command1_Click()
MENUCLI.Hide
MENUPRIN.Show
End Sub

Private Sub Command3_Click()
MENUCLI.Hide
mostraclien.Show
End Sub

Private Sub Form_Load()
NUEVO.Enabled = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

End Sub

Private Sub GUARDAR_Click()
Call conexion
Set Cm = New ADODB.Command
Cm.ActiveConnection = Cn

Cm.CommandText = "INSERT INTO clientes(folio,nombre,rfc,direccion,cp,ciudad,tele fono,celular) values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "','" & Text7 & "','" & Text8 & "')"
Set Rs = Cm.Execute()

MsgBox ("HA SIDO INGRESADO EL CLIENTE")

SetButton
End Sub

Private Sub NUEVO_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
AddNewStatus = True
NUEVO.Enabled = False
GUARDAR.Enabled = True
Shape1.Visible = True


End Sub
Private Sub SetButton()
GUARDAR.Enabled = False
NUEVO.Enabled = True
Shape1.Visible = False
End Sub

[GeoAvila]

Iniciado por pangallo

hola a todos espero me puedan ayudar, estoy haciendo un sistema de inventario en visual basic con el SMBD mysql.LO QUE QUIERO ES QUE AL INSERTAR EL FOLIO MANDE UN MSGBOX DICIENDO QUE YA EXISTE ESE FOLIO,PORQUE COMO ESTA AHORITA SOLAMENTE MANDA UN MSJ DE ERROR PROPIO DE VISUAL BASIC COMO CACHO ESTE ERROR.
hago la conexion al servidor demysql
'CONEXION BD EN MYSQL
Public Cn As ADODB.Connection
Public SQLServerConnection As String
Public Cm As ADODB.Command
Public Rs As ADODB.Recordset

Public Sub conexion()

Set Cn = New ADODB.Connection
Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=digitalexpress;" _
& "UID=root;PWD=; OPTION=3"
Cn.Open
End Sub


CODIGO DE INSERTAR

Private Sub Command1_Click()
MENUCLI.Hide
MENUPRIN.Show
End Sub

Private Sub Command3_Click()
MENUCLI.Hide
mostraclien.Show
End Sub

Private Sub Form_Load()
NUEVO.Enabled = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

End Sub

Private Sub GUARDAR_Click()
Call conexion
Set Cm = New ADODB.Command
Cm.ActiveConnection = Cn

Cm.CommandText = "INSERT INTO clientes(folio,nombre,rfc,direccion,cp,ciudad,tele fono,celular) values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "','" & Text7 & "','" & Text8 & "')"
Set Rs = Cm.Execute()

MsgBox ("HA SIDO INGRESADO EL CLIENTE")

SetButton
End Sub

Private Sub NUEVO_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
AddNewStatus = True
NUEVO.Enabled = False
GUARDAR.Enabled = True
Shape1.Visible = True


End Sub
Private Sub SetButton()
GUARDAR.Enabled = False
NUEVO.Enabled = True
Shape1.Visible = False
End Sub

Si podes ver que error te esta dando lo podes hacer de esta manera

Código:

On error goto TengoError ' despues de la declaraciones


'despues de todo lo que te pueda dar error
exit sub
TengoError:
' si el error fuera 10
if err.number = 10 then
msgbox ("error al ingresar folio, folio ya existe")
end if

teclado a mano alzada jeje corroborarlo


ejemplo msdn



nos vemos..

[pangallo]

hola geoavila,gracias por contestar antes que nada, me aparece el siguiente
error '-2147217900(80040e14)' como lo pongo
if err.number=-2147217900(80040e14) then
msgbox ("error al ingresar folio, folio ya existe")
end if

lo puse asi pero me marca : se esperaba then o goto
como lo pongo -
MUCHAS GRACIAS CUALQUIER AYUDA-o

[GeoAvila]

Iniciado por pangallo

hola geoavila,gracias por contestar antes que nada, me aparece el siguiente
error '-2147217900(80040e14)' como lo pongo
if err.number=-2147217900(80040e14) then
msgbox ("error al ingresar folio, folio ya existe")
end if

lo puse asi pero me marca : se esperaba then o goto
como lo pongo -
MUCHAS GRACIAS CUALQUIER AYUDA-o

con este error -2147217900

proba asi..

[pangallo]

Muchasssss Gracias Geo Avila, Ya Todo Salio Bien

[GeoAvila]

Iniciado por pangallo

Muchasssss Gracias Geo Avila, Ya Todo Salio Bien

De nada para eso estamos..