| vilchis_12 |  |
|
2008-12-17 23:01 - Respuestas: 0 - Tema nº: 2561418
Características: Windows XP Home memoria 512. procesador intel pentium, hp 80 GB.
necito borrar pero ahora de depurarlo me hace todo pero en la base de datos no me borra mi regristro
Private Sub CmdBorrar_Click()
TxtUsuario.Enabled = False
TxtPassword.Enabled = False
TxtRepetir.Enabled = False
' If Registro.State = adStateOpen Then
' Registro.Close
' End If
Dim Conexion As ADODB.Connection
Dim Registro As ADODB.Recordset
Set Conexion = New ADODB.Connection
Set Registro = New ADODB.Recordset
Conexion.Open ("driver=sql server;server=vilchis;database=liresa;uid=;pwd=;")
Registro.Open "SELECT * From usuarios ", Conexion, adOpenStatic, adLockReadOnly
If Registro.EOF = False Then
While Registro.EOF = False
If TxtNick.Text = Registro("nombre") Then
respuesta = MsgBox("seguro que deseas borrar", vbYesNo, "BORRAR")
End If
Registro.MoveNext
Wend
End If
Registro.Close
Conexion.Close
If TxtNick = "" Then
respuesta = MsgBox("el campo esta vacio", vbCritical, "ERRROR")
Else
If respuesta = vbYes Then
Conexion.Open ("driver=sql server;server=vilchis;database=liresa;uid=;pwd=;")
Registro.Open "DELETE FROM usuarios WHERE nombre=' " & TxtNick.Text & " ' ", Conexion, adOpenDynamic, adLockOptimistic
respuesta = MsgBox("el dato se ha eliminado exitosamente")
TxtNick.Text = ""
End If
End If
End Sub
| |
|
|
