Saber si Insert fue exitoso
Tengo un formulario que hace un Insert en una BD MySql, entonces necesito hacer que me dé una confirmación de que los datos enviados fueron cargados en la BD.
cnn.Execute "INSERT INTO evaluaciones " _
& "(ID_LLAMADA, NOMBRE_AGENTE,FECHA_EVALUACION, HORA_EVALUACION, TIPO_EVALUACION," _
& "NOMBRE_EVALUADOR, SALUDO_INICIAL, PERSONALIZACION,SATISFACCION_GARANTIZADA,CIERRE_DEFINITIVO," _
& "USO_TPO_ESPERA,IDENTIFICA_CLIENTE,ESCUCHA_ACTIVA,RESUMIR,DETECTA_NECESIDAD_CLIENTE," _
& "ASESORAR,PROACTIVIDAD,CONTROL_LLAMADA,EMPATIA, COMUNICACION, ADAPTACION_SITUACION,DESEMPEÑO_COMERCIAL," _
& "CONOCIMIENTO_PRODUCTO, PROCEDIMIENTOS, CONOCIMIENTO_SISTEMA, DIRECCIONAR_LLAMADA," _
& "INGRESO_DATOS, PUNTO_ATENCION, FORTALEZAS)" _
& " VALUES( " _
& " '" & LblIdLlamada & "', '" & ComboAgente & "' , '" & LblFechaLlamada & "', " _
& " '" & LblHoraLlamada & "','" & ComboTipo & "', '" & ComboEvaluador & "'," _
& " '" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo7 & "','" & Combo8 & "' , " _
& " '" & Combo9 & "','" & Combo10 & "','" & Combo11 & "','" & Combo12 & "','" & Combo13 & "','" & Combo14 & "', " _
& " '" & Combo15 & "','" & Combo16 & "','" & Combo17 & "','" & Combo18 & "','" & Combo19 & "'," _
& " '" & Combo20 & "','" & Combo21 & "','" & Combo22 & "','" & Combo23 & "','" & Combo24 & "'," _
& " '" & TxtObservacion & "','" & TxtFortalezas & "')"
había visto hacer algo así,
If iRow = 1 Then
MsgBox "Los datos fueron guardados"
Else
MsgBox " Hubo un error en la carga de datos"
End If
(Lo tomé de un ejemplo con access) pero siempre dice que no se han guardado, a pesar de que esta hecho el insert. Mi idea o necesidad es que una vez dado el comando para ejecutar el Insert, me levante un msgbox en el que me diga que los datos fueron cargadas, y que el numero de id ( autoincremetal de la tabla) es el xxxx.
Espero que alguien me halla entendido y me pueda dar una mano
cnn.Execute "INSERT INTO evaluaciones " _
& "(ID_LLAMADA, NOMBRE_AGENTE,FECHA_EVALUACION, HORA_EVALUACION, TIPO_EVALUACION," _
& "NOMBRE_EVALUADOR, SALUDO_INICIAL, PERSONALIZACION,SATISFACCION_GARANTIZADA,CIERRE_DEFINITIVO," _
& "USO_TPO_ESPERA,IDENTIFICA_CLIENTE,ESCUCHA_ACTIVA,RESUMIR,DETECTA_NECESIDAD_CLIENTE," _
& "ASESORAR,PROACTIVIDAD,CONTROL_LLAMADA,EMPATIA, COMUNICACION, ADAPTACION_SITUACION,DESEMPEÑO_COMERCIAL," _
& "CONOCIMIENTO_PRODUCTO, PROCEDIMIENTOS, CONOCIMIENTO_SISTEMA, DIRECCIONAR_LLAMADA," _
& "INGRESO_DATOS, PUNTO_ATENCION, FORTALEZAS)" _
& " VALUES( " _
& " '" & LblIdLlamada & "', '" & ComboAgente & "' , '" & LblFechaLlamada & "', " _
& " '" & LblHoraLlamada & "','" & ComboTipo & "', '" & ComboEvaluador & "'," _
& " '" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo7 & "','" & Combo8 & "' , " _
& " '" & Combo9 & "','" & Combo10 & "','" & Combo11 & "','" & Combo12 & "','" & Combo13 & "','" & Combo14 & "', " _
& " '" & Combo15 & "','" & Combo16 & "','" & Combo17 & "','" & Combo18 & "','" & Combo19 & "'," _
& " '" & Combo20 & "','" & Combo21 & "','" & Combo22 & "','" & Combo23 & "','" & Combo24 & "'," _
& " '" & TxtObservacion & "','" & TxtFortalezas & "')"
había visto hacer algo así,
If iRow = 1 Then
MsgBox "Los datos fueron guardados"
Else
MsgBox " Hubo un error en la carga de datos"
End If
(Lo tomé de un ejemplo con access) pero siempre dice que no se han guardado, a pesar de que esta hecho el insert. Mi idea o necesidad es que una vez dado el comando para ejecutar el Insert, me levante un msgbox en el que me diga que los datos fueron cargadas, y que el numero de id ( autoincremetal de la tabla) es el xxxx.
Espero que alguien me halla entendido y me pueda dar una mano
Respuesta de juanpabl0