Visual Basic - Ayuda con un msgbox con vbyesno para un boton de eliminar registro

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con un msgbox con vbyesno para un boton de eliminar registro

Publicado por francisco (2 intervenciones) el 19/09/2017 02:50:03
buenas noches, estoy creando un formulario en visual basic 6.0 para agregar clientes y como tal tengo 5 botones el problema lo tengo en ele boton de eliminar (como tal el cumple su funcion de eliminar el registro) pero lo que me dijeron en clase es que debo agregar un msgbox con opciones yesno y sinceramente escribi la sintaxis pero aun asi me elimina el registro sabiendo que le di en el boton NO me ayudan??

-este es mi codigo del boton

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub bt_eliminar_Click()
Dim BD As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim ConexBD As String
 
ConexBD = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CLIENTE.mdb;Persist Security Info=False"
 
'creacion de objetos
Set BD = New ADODB.Connection
Set Rs = New ADODB.Recordset
 
'conectado con la base de datos
BD.Open ConexBD
 
If Me.txtid = "" Or Me.txtnom = "" Or Me.txtap = "" Or Me.txtdi = "" Or Me.txte = "" Or Me.txtem = "" Then
MsgBox "no se puede realizar esta operacion ya que no existe un registro valido para eliminar", vbCritical, "no hay registros para eliminar"
Me.txtid.SetFocus
 
Else
 
MsgBox "esta seguro que quiere eliminar el registro?", vbQuestion + vbYesNo, "proceso"
 
If vbYes = 6 Then
Rs.Open "delete * from tbl_informacion where ID=" & Me.txtid & "", BD, adOpenDynamic, adLockOptimistic
MsgBox "Datos eliminados ", vbInformation, "correcto"
Me.txtid = ""
Me.txtnom = ""
Me.txtap = ""
Me.txtdi = ""
Me.txte = ""
Me.txtem = ""
 
Else
 
 
End If
End If
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Ayuda con un msgbox con vbyesno para un boton de eliminar registro

Publicado por Antoni Masana (258 intervenciones) el 19/09/2017 07:22:34
Los cambios que debes realizar están marcados en negrita y subrayado


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub bt_eliminar_Click()
    Dim BD As ADODB.Connection
    Dim Rs As ADODB.Recordset
    Dim ConexBD As String, n_Key As Integer
 
    ConexBD = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CLIENTE.mdb;Persist Security Info=False"
 
    'creacion de objetos
    Set BD = New ADODB.Connection
    Set Rs = New ADODB.Recordset
 
    'conectado con la base de datos
    BD.Open ConexBD
 
    If Me.txtid = "" Or Me.txtnom = "" Or Me.txtap = "" Or _
        Me.txtdi = "" Or Me.txte = ""   Or Me.txtem = "" Then
        MsgBox "no se puede realizar esta operacion ya que no existe un registro valido para eliminar", vbCritical, "no hay registros para eliminar"
        Me.txtid.SetFocus
    Else
        n_Key = MsgBox("esta seguro que quiere eliminar el registro?", vbQuestion + vbYesNo, "proceso")
 
        If n_Key = vbYes Then
            Rs.Open "delete * from tbl_informacion where ID=" & Me.txtid & "", BD, adOpenDynamic, adLockOptimistic
            MsgBox "Datos eliminados ", vbInformation, "correcto"
            Me.txtid = ""
            Me.txtnom = ""
            Me.txtap = ""
            Me.txtdi = ""
            Me.txte = ""
            Me.txtem = ""
       End If
    End If
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
3
Comentar

Ayuda con un msgbox con vbyesno para un boton de eliminar registro

Publicado por francisco (2 intervenciones) el 20/09/2017 00:14:11
muchas gracias si me funciono saludos :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar