none
Actualizar y eliminar datos desde TextBox en Vb9 RRS feed

  • Pregunta

  • Hola muy buenas tardes a todos. Desde ya muchas gracias para todos quienes puedan solucionar o aportar una idea a este problema que tengo.

    Estoy trabajando en un proyecto en Visual Basic 2008(Visual Studio 2008) y he logrado conectar mi aplicación a un servidor que he montado con Windows Server 2008 y SQL 2008 (no la version express) En otro PC. Les comento que he logrado establecer la comunicación desde el server a mi aplicacion sin ningun problema, inclusive estoy guardando en la Base de Datos sin ningun problema mediante este codigo.

    Codigo para guardar...
        Private Sub valida()
            Dim datocentral As db_taxiDataSet1.CentralDataTable = CentralTableAdapter1.GetData()
            Dim central As db_taxiDataSet1.CentralRow
            For Each central In datocentral
                Dim actual_usuario As New Central
                Dim nuevo As db_taxiDataSet1.CentralRow
                Dim credencial As String
                nuevo = Db_taxiDataSet11.Central.NewCentralRow
                With actual_usuario
                    .txt_nombre.Text = central.nombre
                    .txt_pass.Text = central.password
                    If UsernameTextBox.Text = .txt_nombre.Text Then
                        If PasswordTextBox.Text = Desencriptar(.txt_pass.Text) Then
                            Me.Hide()
                            If central.escritura = 1 Then
                                credencial = "Administrador"
                            ElseIf central.escritura = 2 Then
                                credencial = "Operador(a)"
                            End If
                            MsgBox("Bienvenido al sistema: " & credencial & " Presione ENTER para continuar")
                            MsgBox("La fecha del ultimo acceso fue el: " & central.f_ultimo_acceso)
                            Main.Show()
                            Exit Sub
                        Else
                            MsgBox("La contraseña del usuario " & UsernameTextBox.Text & " está mal escrita, intente nuevamente", MsgBoxStyle.Information, "Revise su contraseña")
                            PasswordTextBox.Focus()
                            Exit Sub
                        End If
                    End If
                End With
            Next
            MsgBox("El nombre de usuario no existe")
    Este código me permite guardar la información desde Cajas de Texto y hasta el momento ha funcionado perfectamente.

    Logré tambien recorrer la tabla en busca de un registro especifico, para compararlo. Como al iniciar una sesión. Y tambien logré un buen resultado (quizá el código no es el mejor de todos, pero lamentablemente no conozco mucho el Lenguaje). Aquí les dejo el código que me permite recorrer la tabla.

      
     Dim nuevo As db_taxiDataSet1.CentralRow
                nuevo = Db_taxiDataSet11.Central.NewCentralRow
                With nuevo
                    .codigo_central = Me.CentralTableAdapter1.Max_central + 1
                    .nombre = txt_nombre.Text
                    .apellido = txt_apellido.Text
                    .direccion = txt_dir.Text
                    .en_acceso = "0"
                    .f_ultimo_acceso = DateValue(Now)
                    .rut = txt_rut.Text
                    .f_ingreso = DateValue(Now)
                    .password = Encriptar(txt_valida.Text)
                    .tel1 = txt_tel1.Text
                    .tel2 = txt_tel2.Text
                    .tel2 = txt_tel3.Text
                    .obs = txt_obs.Text
                    'CONTROLO SI EL USUARIO SERA ADMINISTRADOR CON VALOR 1(CONTROL_TOTAL), OPERADOR CON VALOR 2(ESCRITURA) O DEMO CON VALOR 3(LECTURA)
                    If chk_admin.Checked = True Then
                        .escritura = 1
                    End If
                    If chk_operador.Checked = True Then
                        .escritura = 2
                    End If
                End With
                Db_taxiDataSet11.Central.Rows.Add(nuevo)
                CentralTableAdapter1.Update(Db_taxiDataSet11.Central)
                MsgBox("El(La) operador(a) " & txt_nombre.Text & " ha sido agragada al sistema exitosamente", MsgBoxStyle.Information, "Sistema de ingreso de central")
                End




    El Problema:
    Muy bien, cuando requiero actualizar los datos que ya he ingresado en el ejemplo anterior es donde me ha cuestionado la inmensa duda, puesto que de lo que he logrado buscar no me ha servido mucho. Intente usando  Db_taxiDataSet1.Central.NewCentralRow.BeginEdit() pero no funciono. He buscado información pero nose porque no he logrado refinarla a mi solicitud.

    Espero que alguien pueda ayudarme a Eliminar, Actualizar porque ya logré grabar.

    De antemano muchas gracias para quien responda mi solicitud. Cualquier información que haya quedado en el aire porfavor pregunten.

    Muchas Gracias.
    Atte.
    Mario Plaza A.
    miércoles, 3 de marzo de 2010 20:38

Respuestas

Todas las respuestas

  • Solucionado!!! Si alguien requiere solucionar algún problema como el mio avísame.


    Atte.
    Mario Plaza A.

    Atte. Mario Plaza A.
    lunes, 8 de marzo de 2010 15:19
  • buenas tardes Mario, mira yo tengo el mismo problema no puedo eliminar y no he llegado a la parte de actualizar los datos te dejo la seccion de mi codigo no soy un experto en esto pero me gusta la investigacion en nuevo lenguajes, espero me ayudes y gracias anticipadas...

     

    Friend Sub Eliminar()
            Dim dbDataTable As New DataTable
            If Fila < 0 Or Fila > dbDataTable.Rows.Count - 1 Then Exit Sub
            dbDataAdapter.Fill(dbDataTable)
            dbDataAdapter.Fill(dbDataSet, "Datos")
            Dim dr As DataRow = dbDataTable.Rows(Fila)
            dr.Delete()
            GuardarDatos()
            dbDataTable.AcceptChanges()
            'dbDataAdapter.Update(dbDataSet.Tables("Datos"))
    End Sub

    jueves, 9 de septiembre de 2010 18:56
  • hola,

    >buenas tardes Mario, mira yo tengo el mismo problema no puedo eliminar y no he llegado a la parte de

    >actualizar los datos te dejo la seccion de mi codigo no soy un experto en esto pero me gusta la

    >investigacion en nuevo lenguajes, espero me ayudes y gracias anticipadas..

     

    Prueba con este codigo , nos dice si te ayudo 

          ' Eliminar la fila actual

            Dim fila As Integer

            Dim dt As New DataTable

            Dim da As New Data.SqlClient.SqlDataAdapter

            If fila < 0 OrElse fila > dt.Rows.Count - 1 Then Exit Sub

            Try

                ' Eliminar la fila de la tabla

                dt.Rows(fila).Delete()

                ' Actualizar físicamente la base de datos

                da.Update(dt)

                ' Aceptar los cambios en la copia local

                dt.AcceptChanges()

     

            Catch ex As DBConcurrencyException

                MessageBox.Show("Error de concurrencia:" & vbCrLf & ex.Message)

            Catch ex As Exception

                MessageBox.Show(ex.Message)

            End Try


    enmanuel grullard @ Developer ASP.NET
    Republica Dominicana

     

    viernes, 10 de septiembre de 2010 19:04
  • olle me podrias ayudar a mi

     

    martes, 10 de mayo de 2011 0:24