Autor Tema: Preguntar Antes De Editar Y Eliminar Reg. (Leído 2587 veces)

UserCode · « **en:** Jueves 21 de Septiembre de 2006, 01:08 »

Hola, estoy migrando al .net que a decir verdad ya lo habia tenido en curso hace un tiempo pero hacer cosas (ya hechas en VB6) me hacia volver, y ahora que tengo el tiempo, pues a comenzar a lo nuevo para lo nuevo (para el futuro, claro).

No sé cómo poner el mensaje o pregunta cuando se piensa Editar o Borrar un registro, ya que es algo obligatorio en caso de que el operador se equivoque y accidentalmente pulse dicho botón, desde luego.

Yo lo hacía así en VB6 (bajo un cierto codigo clásico de aquel entonces):

EDITANDO:

Código: Text

 
If Rs.RecorCount&#62;0 then 'Esto para evitar error en .MoveFirst
  Exit Sub 'o poner un mensaje de que no hay registros en la tabla
End if

Con un Else en ese If o fuera de él, (es indiferente, a gusto) pues vendria esto:

Código: Text

 
While Not Rs.EOF
   Rs.MoveFirst
   If TxtID = Rs(&#34;CampoID&#34;) Then
       If MsgBox(&#34;¿Confirma que desea Editar este Registro?&#34;, vbInformation + vbYesNo, &#34;Edicion de Registro&#34;) = vbYes Then
          TxtCampo1.Text = Rs(&#34;Campo1&#34;)
          TxtCampoEtc.text = Rs(&#34;CampoEtc&#34;)
          MsgBox &#34;El Registro ha sido Editado&#34;
          Exit Sub
        Else
          Exit Sub
   End If
   Rs.MoveNext
Wend
Msgbox &#34;No se ha encontrado el registro indicado, verifique el ID&#34;
 
 

Ahora, apenas estoy conociendo el código para el .Net por ejemplo tengo o he empezado con esto, este código Edita (esto por parámetros):

Código: Text

 
Dim Editar As String
Dim ordenSQL As OleDbCommand
 
Editar = &#34;Update Telefonos Set Nombre=@NOMBRE, TelefCel=@TELEFCEL, TelefHab=@TELEFHAB, &#34;
Editar = Editar & &#34;TelefTrab=@TELEFTRAB, Email=@EMAIL, Direccion=@DIRECCION &#34;
Editar = Editar & &#34;Where NombreClave = &#34; & TxtNombreClave.Text
 
ordenSQL = New OleDbCommand(Editar, conexionBD)
 
ordenSQL.Parameters.Add(New OleDbParameter(&#34;@NOMBRE&#34;, OleDbType.VarWChar, 50))
ordenSQL.Parameters(&#34;@NOMBRE&#34;).Value = TxtNombre.Text
ordenSQL.Parameters.Add(New OleDbParameter(&#34;TELEFCEL&#34;, OleDbType.VarWChar, 20))
ordenSQL.Parameters(&#34;@TELEFCEL&#34;).Value = TxtTelefCel.Text
ordenSQL.Parameters.Add(New OleDbParameter(&#34;TELEFHAB&#34;, OleDbType.VarWChar, 20))
ordenSQL.Parameters(&#34;@TELEFHAB&#34;).Value = TxtTelefHab.Text
ordenSQL.Parameters.Add(New OleDbParameter(&#34;@TELEFTRAB&#34;, OleDbType.VarWChar, 20))
ordenSQL.Parameters(&#34;@TELEFTRAB&#34;).Value = TxtTelefTrab.Text
ordenSQL.Parameters.Add(New OleDbParameter(&#34;@EMAIL&#34;, OleDbType.VarWChar, 50))
ordenSQL.Parameters(&#34;@EMAIL&#34;).Value = TxtEmail.Text
ordenSQL.Parameters.Add(New OleDbParameter(&#34;@DIRECCION&#34;, OleDbType.VarWChar, 60))
ordenSQL.Parameters(&#34;@DIRECCION&#34;).Value = TxtDireccion.Text
 
'mandando la SQL a la BD:
ordenSQL.Connection.Open()
ordenSQL.ExecuteNonQuery()
ordenSQL.Connection.Close()
MsgBox(&#34;EL REGISTRO HA SIDO EDITADO&#34;)
 
 

¿Cómo podría con este último código poner el mensaje al compararse TxtID = CampoID, es decir, luego de cumplirse esto, vendria el script del mensaje, y cómo haría valer un "Si" o un "No" por parte del usuario.

La solución de esto es igual para la opción de Eliminar, al saber como hacerlo en Editar sería igual, supongo yo, desde luego, deberia ser asi.

Tambien medio estoy armando un código con DataSet y DataAdapter, pero aun estoy trabajando en eso, soy nuevo en el .Net

Muchas gracias Desarrolladores de esta plataforma .net por sus depuraciones hehe.
Saludos.

senzao18

Puedes probar con

if messagebox.show("¿Question?","Titulo",DialogResult.YesNo,...) Then = DialogResult.Yes Then

Endif

Bueno es algo asi,. la verdad no recuerdo exactamente el orden en que van los parametros de .Show(,,,).. pero asi ppuedes preguntar y armar un camino en base a las respuestas.....

Espero y eso sea lo que buscas...

UserCode

si, eso sirve, aunque si nos fijamos, no valida nada como "If Txt=CampoTabla Then" sino que es un IF que de una vez saca el aviso sin importar si el registro fue o no encontrado. Además de que en VB6 uno ponia un ciclo que recorria todos los registros, en este caso la SQL lo hace a su manera, más corto en una sola linea.

Ese IF me sirve si, solo me quedaria ver lo de la validacion, es decir, que si encontro el registro, porque sin un If Txt=CampoTabla Then, igualito se pasa a esas lineas de código, la diferencia aqui y ahora con esto, es que al menos ya hay una pregunta que frena una posible operación por descuido, asi que esta bien, mejor a como estaba antes sin ningun tipo de aviso que confirmara la operacion.

gracias man, aunque no es IF con aviso que valide, igual sirve

ya es algo, seguire viendo lo de la validacion, no sea que uno escriba garabatos en la ventana (un reg que no exista) e igual saque el aviso de si desea editar o no el registro.

SoloCodigo

Autor Tema: Preguntar Antes De Editar Y Eliminar Reg. (Leído 2587 veces)

UserCode

Preguntar Antes De Editar Y Eliminar Reg.

senzao18

Re: Preguntar Antes De Editar Y Eliminar Reg.

UserCode

Re: Preguntar Antes De Editar Y Eliminar Reg.