Visual Basic.NET - Validación al momento de guardar registros.

El siguiente formulario será utilizado para almacenar El Código, La Descripción y el Tipo de Equipo de cómputo, Ej: Código: 01, Descripción: Computadora, Tipo Equipo: Portátil.
Quisiera por favor me puedan ayudar a guiarme cómo deberá ser la validación en el botón guardar (CmdGuardar), que no inserte espacios vacíos, validar si existe y enviar un mensaje que ya existe el registro en la BD, que si se desea editar , si no existe almacenarlo.
Actualmente tengo algo así, pero no me trabaja correctamente: (Mil gracias por la atención)

Private Sub CmdGuardar_Click(sender As Object, e As EventArgs) Handles CmdGuardar.Click
Dim intCodigo As Integer
Dim strDescripcion As String
Dim intTipoEquipo As Integer
Dim intOptEditar As Integer

If TxtCodigo.Text = "" Then
MsgBox("Digite un código numérico", MsgBoxStyle.Exclamation, "Registro de Equipos")
TxtCodigo.Select()
ElseIf TxtDescripcion.Text = "" Then
MsgBox("Ingrese la descripción", MsgBoxStyle.Exclamation, "Registro de Equipos")
TxtDescripcion.Select()
ElseIf CbxTipoEquipo.Text = "" Then
MsgBox("Seleccione un tipo de equipo", MsgBoxStyle.Exclamation, "Registro de Equipos")
CbxTipoEquipo.Select()
ElseIf Conex.EquipoRegistrado(TxtCodigo.Text) = True Then
MsgBox("Código ya se encuentra registrado", MsgBoxStyle.Critical, "Registro de Equipos")
TxtCodigo.Select()
TxtCodigo.Focus()
ElseIf Conex.TipoEquipoRegistrado(intTipoEquipo) = False Then
MsgBox("Tipo de equipo ya se encuentra registrado", MsgBoxStyle.Critical, "Registro de Equipos")
CbxTipoEquipo.Select()
CbxTipoEquipo.Focus()

Else

intCodigo = TxtCodigo.Text
strDescripcion = TxtDescripcion.Text
intTipoEquipo = CbxTipoEquipo.SelectedValue 'Trasla valor del ComboBox a la variable para almacenar

Cmd.Connection = Conn
Cmd.CommandType = CommandType.Text

sql = ""
sql = "INSERT INTO EQUIPO (IDE_EQUIPO, DSC_EQUIPO, IDE_TIPO_EQUIPO) VALUES ('" & intCodigo & "','" & strDescripcion & "','" & intTipoEquipo & "')"
Cmd.CommandText = sql

Try
Cmd.ExecuteNonQuery()
MsgBox("Registro almacenado correctamente", MsgBoxStyle.Information, "Registro de Equipos")
TxtCodigo.Text = ""
TxtDescripcion.Text = ""
CbxTipoEquipo.Text = ""
CmdGuardar.Enabled = False
CmdNuevo.Enabled = True
TxtDescripcion.Enabled = False
CbxTipoEquipo.Enabled = False
dgvRegistroEquipos.Visible = True
dgvRegistroEquipos.Enabled = True
dgvRegistroEquipos.Refresh()
TxtCodigo.Select()


'****Actualiza el DataGridView******
Dim da As New SqlDataAdapter
Dim dt As New DataTable

Try
da = New SqlDataAdapter("select * from EQUIPO", Conn)
da.Fill(dt)
dgvRegistroEquipos.DataSource = dt
dgvRegistroEquipos.Refresh()

Catch ex As Exception
MsgBox(ex.Message)
End Try
Catch ex As Exception
MsgBox(ex.ToString)
End Try


intOptEditar = MsgBox("El registro digitado YA existe, ¿Desea Editarlo?", vbYesNo + vbQuestion + vbDefaultButton2, "¡Atención! Registro de Equipos")
If (intOptEditar = vbYes) Then

'Limpia el DataGridView
'dgvRegistroEquipos.DataSource = Nothing
TxtCodigo.Select()
TxtCodigo.Focus()
CmdGuardar.Enabled = False
CmdModificar.Enabled = True
CmdCancelar.Enabled = True
dgvRegistroEquipos.Visible = True
Else
TxtCodigo.Select()
TxtCodigo.Text = ""
TxtDescripcion.Text = ""
CbxTipoEquipo.Text = ""
CmdGuardar.Enabled = False
TxtDescripcion.Enabled = False
CbxTipoEquipo.Enabled = False
CmdNuevo.Enabled = True
TxtCodigo.Select()
TxtCodigo.Focus()
End If
End If
End Sub

• MantenimientoRegistroEq.rar(24,3 KB)

Hola

Tu código parece me mucho demasió complicado.

Este la razón que no lo escribir pero puedo te dar 2 pistas :

Primero, ExecuteNonQuery da un valor que puede ti informar sobre la cualidad de la ejecución.


Si CuantidadRegsitrosCambiados < 1, entonces ningún registro agregado.
Si CuantidadRegsitrosCambiados > 1, entonces existe dupicados.

Segundo, en la frase SQL, si un campo es en el tipo numérico, no debes escribir los apóstrofos.


No es bien cuando intCodigo y intTipoEquipo están Integer. Debes escribir :


Los apóstrofos están necesarios solamente para el campo strDescripcion.

Espero que mis comentarios te ayudarán …

Saludos Profesor Phil Rob.

Revisaré lo que me indicas.

Muchas gracias por la atención y las recomendaciones brindadas.

Te expongo como yo lo hago, lo cual no significa q sea lo maximo. Para ahorarme tiempo en la programación uso los index unique en el diseño de la base de datos para evitar duplicar valores, simplemente al insert provocara un error y lo atiendo. Lo otro, nunca uso integer para codigos, pues a la hora de hacer reportes todos los valores numericos se le asocian funciones matemáticas y me trae confusión. Uso valores numéricos si hago operaciones matemáticas, de lo contrario uso tipo de textos.

Saludos Rey.

Muchas gracias por la atención y las recomendaciones.