elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  actualizar registro base de datos .NET
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: actualizar registro base de datos .NET  (Leído 1,884 veces)
andaluz


Desconectado Desconectado

Mensajes: 330



Ver Perfil
actualizar registro base de datos .NET
« en: 29 Mayo 2012, 21:58 pm »

Hola a todos, quiero realizar una actualización a un registro que elijo de una base de datos, pero no me lo actualiza bien, me gustaría saber en que parte del código me he equivocado.

os dejo el código
Código
  1.    Private Sub btn_Buscar_Cliente_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Buscar_Cliente_Modificar.Click
  2.        Dim id_cl As Integer
  3.        Dim Nombre_cl, Apellidos_cl, DNI_cl, Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl As String
  4.        Dim i As Integer
  5.        Dim DNI_Buscar As String
  6.  
  7.        ' pido por pantalla que introduzca el DNI del cliente que queremos buscar
  8.        DNI_Buscar = InputBox("Introduce el DNI del cliente a buscar", "Cliente a buscar")
  9.  
  10.        ' almaceno el valor del DNI en un TextBox oculto
  11.        txt_DNI_Cli_Modificar_Oculto.Text = DNI_Buscar
  12.  
  13.        For i = 0 To ClientesTableAdapter.GetData.Rows.Count - 1
  14.            id_cl = ClientesTableAdapter.GetData.Rows(i).Item(0)
  15.            Nombre_cl = ClientesTableAdapter.GetData.Rows(i).Item(1)
  16.            Apellidos_cl = ClientesTableAdapter.GetData.Rows(i).Item(2)
  17.            DNI_cl = ClientesTableAdapter.GetData.Rows(i).Item(3)
  18.            Poblacion_cl = ClientesTableAdapter.GetData.Rows(i).Item(4)
  19.            Domicilio_cl = ClientesTableAdapter.GetData.Rows(i).Item(5)
  20.            Telefono_cl = ClientesTableAdapter.GetData.Rows(i).Item(6)
  21.            Correo_cl = ClientesTableAdapter.GetData.Rows(i).Item(7)
  22.  
  23.            ' compruebo que ha introducido algun DNI
  24.            If DNI_Buscar = "" Then
  25.                MessageBox.Show("No ha introducido ningun DNI, introduzca alguno", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
  26.                Exit Sub
  27.            End If
  28.  
  29.            ' si el DNI que ha introducido existe
  30.            If DNI_Buscar = DNI_cl Then
  31.                grb_Modificar_Clientes.Enabled = True
  32.                txt_Nombre_Cli_Modificar.Text = Nombre_cl
  33.                txt_Apellidos_Cli_Modificar.Text = Apellidos_cl
  34.                txt_DNI_Cli_Modificar.Text = DNI_cl
  35.                txt_Poblacion_Cli_Modificar.Text = Poblacion_cl
  36.                txt_Domicilio_Cli_Modificar.Text = Domicilio_cl
  37.                txt_Telefono_Cli_Modificar.Text = Telefono_cl
  38.                txt_Correo_Cli_Modificar.Text = Correo_cl
  39.                MessageBox.Show("Cliente encontrado", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
  40.                MessageBox.Show("Modifique los valores que desee", "Modificar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  41.                'grb_Modificar_Clientes.Enabled = False
  42.                btn_Buscar_Cliente_Modificar.Enabled = False
  43.                btn_Modificar_Cliente_Modificar.Enabled = True
  44.                btn_Cancelar_Cliente_Modificar.Enabled = True
  45.                Exit Sub
  46.            End If
  47.  
  48.            ' comprobamos si el DNI introducido existe
  49.            If DNI_Buscar <> DNI_cl Then
  50.            Else
  51.                MessageBox.Show("El DNI que ha introducido no existe", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
  52.                Exit Sub
  53.            End If
  54.        Next
  55.    End Sub
  56.  

Saludos


En línea

seba123neo


Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: actualizar registro base de datos .NET
« Respuesta #1 en: 30 Mayo 2012, 00:01 am »

primero no usaria un inputbx, queda feo y ni se usa, mejor un textbox donde el tipo escriba. y para actualizar un registro simplemente ejecutar el comando SQL UPDATE y listo.


En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
HdM


Desconectado Desconectado

Mensajes: 1.674



Ver Perfil
Re: actualizar registro base de datos .NET
« Respuesta #2 en: 30 Mayo 2012, 10:24 am »

Buenas.

Podrías simplificar mucho código/tiempo, si en vez de montar un bucle que recorra la tabla hasta encontrar la coincidencia de dni y cambiar valores de textos/botones, hicieses un SELECT ... WHERE... a la tabla buscando ese dni. Si existe, entonces cambias valores de los controles.

primero no usaria un inputbx, queda feo y ni se usa, mejor un textbox donde el tipo escriba. y para actualizar un registro simplemente ejecutar el comando SQL UPDATE y listo.

Correcto, ¿dónde está el código que debe actualizar el registro en bd? En teoría será en btn_Modificar_Cliente_Modificar_Click, pero no lo muestras.

Saludos.
En línea

- Nice to see you again -
andaluz


Desconectado Desconectado

Mensajes: 330



Ver Perfil
Re: actualizar registro base de datos .NET
« Respuesta #3 en: 30 Mayo 2012, 16:54 pm »

es verdad, no he puesto el código para modificar el registro, el código que he utilizado para actualizar el registro es el siguiente:

Código
  1. Private Sub btn_Borrar_Cliente_Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Modificar_Cliente_Modificar.Click
  2.        Dim id_cl As Integer
  3.        Dim Nombre_cl, Apellidos_cl, DNI_cl, Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl As String
  4.        Dim i As Integer
  5.        Dim DNI_Buscar As String
  6.  
  7.        ' almaceno el valor del DNI en un TextBox oculto
  8.        DNI_Buscar = txt_DNI_Cli_Modificar_Oculto.Text
  9.  
  10.        For i = 0 To ClientesTableAdapter.GetData.Rows.Count - 1
  11.            id_cl = ClientesTableAdapter.GetData.Rows(i).Item(0)
  12.            Nombre_cl = ClientesTableAdapter.GetData.Rows(i).Item(1)
  13.            Apellidos_cl = ClientesTableAdapter.GetData.Rows(i).Item(2)
  14.            DNI_cl = ClientesTableAdapter.GetData.Rows(i).Item(3)
  15.            Poblacion_cl = ClientesTableAdapter.GetData.Rows(i).Item(4)
  16.            Domicilio_cl = ClientesTableAdapter.GetData.Rows(i).Item(5)
  17.            Telefono_cl = ClientesTableAdapter.GetData.Rows(i).Item(6)
  18.            Correo_cl = ClientesTableAdapter.GetData.Rows(i).Item(7)
  19.  
  20.            ' si el DNI que ha introducido existe
  21.            If DNI_Buscar = DNI_cl Then
  22.                grb_Modificar_Clientes.Enabled = True
  23.                Nombre_cl = txt_Nombre_Cli_Modificar.Text
  24.                Apellidos_cl = txt_Apellidos_Cli_Modificar.Text
  25.                DNI_cl = txt_DNI_Cli_Modificar.Text
  26.                Poblacion_cl = txt_Poblacion_Cli_Modificar.Text
  27.                Domicilio_cl = txt_Domicilio_Cli_Modificar.Text
  28.                Telefono_cl = txt_Telefono_Cli_Modificar.Text
  29.                Correo_cl = txt_Correo_Cli_Modificar.Text
  30.  
  31.                ' Actualizo el cliente
  32.                ClientesTableAdapter.Update(txt_Nombre_Cli_Modificar.Text, txt_Apellidos_Cli_Modificar.Text,
  33.                                            txt_DNI_Cli_Modificar.Text, txt_Poblacion_Cli_Modificar.Text,
  34.                                            txt_Domicilio_Cli_Modificar.Text, txt_Telefono_Cli_Modificar.Text,
  35.                                            txt_Correo_Cli_Modificar.Text,
  36.                                            id_cl, Nombre_cl, Apellidos_cl, DNI_cl,
  37.                                            Poblacion_cl, Domicilio_cl, Telefono_cl, Correo_cl)
  38.                MessageBox.Show("Cliente modificado", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
  39.  
  40.                Limpiar_TextBox(txt_Nombre_Cli_Modificar.Text, txt_Apellidos_Cli_Modificar.Text,
  41.                                            txt_DNI_Cli_Modificar.Text, txt_Poblacion_Cli_Modificar.Text,
  42.                                            txt_Domicilio_Cli_Modificar.Text, txt_Telefono_Cli_Modificar.Text,
  43.                                            txt_Correo_Cli_Modificar.Text)
  44.  
  45.                grb_Modificar_Clientes.Enabled = False
  46.                btn_Buscar_Cliente_Modificar.Enabled = True
  47.                btn_Cancelar_Cliente_Modificar.Enabled = False
  48.                btn_Modificar_Cliente_Modificar.Enabled = False
  49.                Exit Sub
  50.            End If
  51.        Next
  52.    End Sub
  53.  

Saludos
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Actualizar base datos en VB .NET
.NET (C#, VB.NET, ASP)
el_cantante 1 12,402 Último mensaje 8 Octubre 2006, 04:35 am
por MaLkAvIaN_NeT
Actualizar base de datos periodicamente
PHP
bels_mike 4 1,926 Último mensaje 5 Febrero 2008, 17:48 pm
por Casidiablo
ACTUALIZAR BASE DE DATOS SQL « 1 2 »
Programación Visual Basic
70N1 16 6,124 Último mensaje 20 Marzo 2008, 23:22 pm
por ((( SPAWN )))
[SQL/PHP] Actualizar campos base de datos
PHP
MeCraniDOS 2 1,280 Último mensaje 29 Julio 2013, 17:57 pm
por 1mpuls0
Alertar al actualizar base de datos
Bases de Datos
Ethgar 7 2,002 Último mensaje 4 Septiembre 2014, 07:48 am
por MinusFour
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines