Ayuda Con Delete Access
Publicado por Carlos (2 intervenciones) el 19/09/2015 20:03:26
Buenas estoy tratando de eliminar un registro de la Tabla T_Usuarios
tengo este proceso
1
2
3
4
5
6
7
Public Sub eliminar(ByVal id As String)
Dim consulta As String = "DELETE FROM T_Usuario WHERE Usuario =" & id
cnx.conectar()
Dim comando As New OleDbCommand(consulta, cnx.CNN())
comando.ExecuteNonQuery()
cnx.desconectar()
End Sub
lo cargo desde el formulario con
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub BtnBorrar_Click(sender As Object, e As EventArgs) Handles BtnBorrar.Click
Dim usu As String
usu = TxtUsuario.Text
If (usu = "") Then
MessageBox.Show("Ingrese Usuario", "Facturacion Electronica", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
TxtUsuario.Focus()
Else
If (MessageBox.Show("¿Seguro Eliminar los datos?", "Facturacion Electronica", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) Then
'Try
objusuario.eliminar(usu)
DtgUsuarios.DataSource = objusuario.listar()
'Catch ex As Exception
' MsgBox("No existe usuario", vbCritical, "Atención!")
'End Try
End If
End If
End Sub
pero me sale el error de la imagen lo estraño es que cuando lo recorro paso a paso esta con el valor que le paso con el botón pero siempre me sale el error
Valora esta pregunta
0
