trabajando con datagrid..ayuda

[oslar]

bueno ahora me a tocado trabajar con los datagrid y tras una pekeña introduccion en la k visualizo los campos de la base de datos me surgen varios problemillas.
tengo un form en el k hay un datagrid que me visualiza los datos de una consulta que hize en access y luego tres botones (por ahora)añadir,editar y borrar.
el boton de añadir lo e desarrollado bien pero al volver a cargar el form con el datagrid los datos añadidos no se me visualizan..cual puede ser el error??

otra cosa seria el desarrollo del boton editar,la idea es que seleccione con el puntero la posicion en el datagrid que quiero editar y esta se cargue en un form identico al de añadir y desde hay modifique los datos y actualice la bd.

y estos son los problemas k tengo por ahora,espero vuestra ayuda,
saludos

estoy trabajando con vb 2005 y acces 2003

[Porlachucha]

podrias mostrar el codigo para añadoir registros? es dificil saber en que te estas equivocando sin el codigo.
respecto de lo segundo. creo que añadir un nuevo form para editar los datos, es innecesario, ya que puedes en el mismo grid, poner controles que te permitan la edicion.
fijate en este codigo, crea un datagridview, con checkbox, textbox, y combobox. despues haciendo referencia al elemento seleccionado (en el datagrisview, tienes toda la informacion para actualizar la base de datos.

Código:

                 #region Despliega  centros
                            dttAgrupamientos = qbData.dttObtieneAgrupamientos(); // obtiene los datos desde la BD
                            if (dttAgrupamientos.Rows.Count > 0)
                            {
                                dgvAgrupamientos.DataSource = dttAgrupamientos;
                            }
                            else
                            {
                                dgvAgrupamientos.DataSource = null;
                                dgvAgrupamientos.DataBindings.Clear();
                                return true;
                            }

                            BindingSource bsAsociacion = new BindingSource();
                            bsAsociacion.DataSource = dttAgrupamientos;

                            dgvAgrupamientos.AutoGenerateColumns = false;
                            dgvAgrupamientos.DataSource = bsAsociacion;
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaCheckBox("Sel.", "Seleccionada"));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaTexBox("codigo_empresa", "dgv_CodigoEmpresa", ""));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaTexBox("codigo_centro", "dgv_CodigoCentro", ""));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaTexBox("nombre_centro", "dgv_NombreCentro", "Centro"));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaTexBox("codigo_zona_intesal", "dgv_CodigoZonaIntesal", ""));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.CreateComboBoxWithEnums(dttZonasIntesal, "CodIni", "CodEqu", "Zona Intesal", "codigo_zona_Intesal"));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaTexBox("codigo_zona_sgs", "dgv_CodigoZonaSGS", ""));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.CreateComboBoxWithEnums(dttZonasSGS, "LocCod", "LocDes", "Zona SGS", "codigo_zona_sgs"));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.dgvtbAgregaTexBox("codigo_region", "dgv_CodigoRegion", ""));
                            dgvAgrupamientos.Columns.Add(SGS_Utiles.CreateComboBoxWithEnums(dttRegiones, "DptCod", "DptDes", "Region", "codigo_region"));
                            dgvAgrupamientos.Columns[0].Visible = true;
                            dgvAgrupamientos.Columns[1].Visible = false;
                            dgvAgrupamientos.Columns[2].Visible = false;
                            dgvAgrupamientos.Columns[3].Visible = true;
                            dgvAgrupamientos.Columns[4].Visible = false;
                            dgvAgrupamientos.Columns[5].Visible = true;
                            dgvAgrupamientos.Columns[6].Visible = false;
                            dgvAgrupamientos.Columns[7].Visible = true;
                            dgvAgrupamientos.Columns[8].Visible = false;
                            dgvAgrupamientos.Columns[9].Visible = true;

                            dgvAgrupamientos.Columns[0].Width = 50;
                            dgvAgrupamientos.Columns[3].AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill;
                            dgvAgrupamientos.Columns[5].Width = 150;
                            dgvAgrupamientos.Columns[7].Width = 150;
                            dgvAgrupamientos.Columns[9].Width = 150;

                            dgvAgrupamientos.AllowUserToAddRows = false;
                            dgvAgrupamientos.ReadOnly = false;
                            dgvAgrupamientos.Columns[0].ReadOnly = false;
                            dgvAgrupamientos.Columns[3].ReadOnly = true;
                            dgvAgrupamientos.Columns[5].ReadOnly = true;
                            dgvAgrupamientos.Columns[7].ReadOnly = true;
                            dgvAgrupamientos.Columns[9].ReadOnly = true;
                            dgvAgrupamientos.AllowUserToDeleteRows = false;
                            dgvAgrupamientos.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect;
                            return true;
                            #endregion

aca estan las funciones para agregar elementos a tu datagridview

Código:

        public static DataGridViewTextBoxColumn dgvtbAgregaTexBox(string sDataPropertyName, string sName, string sHeader)
        {
            DataGridViewTextBoxColumn Tbx = new DataGridViewTextBoxColumn();
            Tbx.DataPropertyName = sDataPropertyName;
            Tbx.Name = sName;
            Tbx.HeaderText = sHeader;
            return Tbx;
        }
        public static DataGridViewComboBoxColumn CreateComboBoxWithEnums(DataTable dttDatosCombo, string sValueMember, string sDisplayMember, string sHeaderText, string sDataPropertyName)
        {
            DataGridViewComboBoxColumn Combo = new DataGridViewComboBoxColumn();
            Combo.DataSource = dttDatosCombo;
            Combo.ValueMember = sValueMember;
            Combo.DisplayMember = sDisplayMember;
            Combo.HeaderText = sHeaderText;
            Combo.DataPropertyName = sDataPropertyName;
            return Combo;
        }
        public static DataGridViewCheckBoxColumn dgvtbAgregaCheckBox(string sHeader, string sName)
        {
            DataGridViewCheckBoxColumn Chx = new DataGridViewCheckBoxColumn();
            Chx.HeaderText = sHeader;
            Chx.Name = sName;
            return Chx;
        }

fijate que para cada columna de tu datagridview, puedes especificar si estara o no visible, si podra ser o no editable, etc.

despues todo lo que tienes que hacer, es recorrer tu datagridview, y revisar si el checkbox esta ""encendido"" y realizar las acciones de eliminacion, o de edicion, o simplemente crear un nuevo elemento con el metodo add sobre el datatable asociado al datagridview (ojo en el datatable no en datagridview).

saludos
plch

[oslar]

este es el codigo para añadir el registro en la bd ,k lo hace correctamente

Código vb:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("debes de meter datos en los textbox")
            TextBox1.Focus()
 
        Else
            Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=C:\negocio\negocio.mdb"
            Dim conex As New OleDb.OleDbConnection
            Dim comm As New OleDb.OleDbCommand
            conex.ConnectionString = sCnn
            comm.Connection = conex
            comm.CommandText = "INSERT INTO usuarios(usuario,contraseña,direccion,poblacion,ciudad,telefono,movil,nif) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "')"
            conex.Open()
            comm.ExecuteNonQuery()
            conex.Close()
            MsgBox("Ingreso correcto")
 
        End If
    End Sub
 

[Porlachucha]

compruebas que el dato esta correctamente ingresado al mirar la BD?
en cualquier caso, revisa la consulta con la cual estas poblando el datagridview. puede ser que estes aplicando algun filtro que no te permita ver los datos nuevos. el ejemplo que te pase anteriormente puedes ver como tratar el datagridview para que muestre datos en base a lo que tiene tu consulta. Asegurate de hacer coincidir los campos de tu consulta con los del datagridview mediante la propiedad sDataPropertyName de cada control.
salu2
plch

[oslar]

tras investigar por google di con un codigo que e conseguido adaptar a mi form,pero me da un error:

Código vb:

Imports System.Data.OleDb
 
Public Class Form6
    Dim dt As New DataTable
    Dim fila As Integer = 0
    Dim da As New OleDb.OleDbDataAdapter
    'BindingSource   
    Private WithEvents bs As New BindingSource
    ' Cadena de conexión   
    Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=C:\negocio\negocio.mdb"
    ' flag   
    Private bEdit As Boolean
 
    ' actualizar los cambios al salir    
    Private Sub Form6_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If bEdit Then
            'preguntar si se desea guardar   
            If (MsgBox("Guardar cambios ?", MsgBoxStyle.YesNo, "guardar")) = MsgBoxResult.Yes Then
                Actualizar(False)
            End If
        End If
    End Sub
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' propiedades del datagrid   
        With DataGridView1
            ' alternar color de filas   
            .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite
            .DefaultCellStyle.BackColor = Color.Beige
            ' Establecer el origen de datos para el DataGridview   
            .DataSource = bs
        End With
        ' cagar los datos   
        cargar_registros("Select * From usuarios", DataGridView1)
    End Sub
 
    Private Sub cargar_registros(ByVal sql As String, ByVal dv As DataGridView)
 
        Try
            ' Inicializar el SqlDataAdapter indicandole el comando y el connection string   
            Dim sq As String = "SELECT * FROM usuarios"
            ' Crear un nuevo objeto del tipo DataAdapter
            Dim da As New OleDb.OleDbDataAdapter(sq, sCnn)
            da.Fill(dt)
            ' Enlazar el BindingSource con el datatable anterior   
            bs.DataSource = dt
 
            With dv
                .Refresh()
                ' coloca el registro arriba de todo   
                .FirstDisplayedScrollingRowIndex = bs.Position
            End With
 
            bEdit = False
        Catch exSql As OleDbException
            MsgBox(exSql.Message.ToString)
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
    ' botón para guardar los cambios y llenar la grilla   
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Actualizar()
    End Sub
    ' Eliminar el elemento actual del BindingSource y actualizar   
    Private Sub buton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Not bs.Current Is Nothing Then
            ' eliminar   
            bs.RemoveCurrent()
            'Guardar los cambios y recargar   
            Actualizar()
        Else
            MsgBox("No hay un registro actual para eliminar", MsgBoxStyle.Exclamation, "Eliminar")
        End If
    End Sub
    Private Sub Actualizar(Optional ByVal bCargar As Boolean = True)
        ' Actualizar y guardar cambios   
        If Not bs.DataSource Is Nothing Then
            da.Update(CType(bs.DataSource, DataTable))   ' <<------aki me da el error
            If bCargar Then
                cargar_registros("Select * From usuarios", DataGridView1)
            End If
        End If
    End Sub
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button4.Click, Button3.Click, Button2.Click
        If sender Is Button2 Then
            bs.MovePrevious()
        ElseIf sender Is Button1 Then
            bs.MoveFirst()
        ElseIf sender Is Button3 Then
            bs.MoveNext()
        ElseIf sender Is Button4 Then
            bs.MoveLast()
        End If
    End Sub
    Private Sub DataGridView1_CellEndEdit( _
        ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
            Handles DataGridView1.CellEndEdit
        bEdit = True
    End Sub
    ' nuevo registro   
    Private Sub button5_Click( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button5.Click
        bs.AddNew()
    End Sub
End Class
 

Error:Update requiere que DeleteCommand sea válido cuando se pasa la colección DataRow con filas eliminadas.
Me da error al intentar borrar,editar o guardar los cambios
los botones ir al primero,ir al ultimo,siguiente anterior funcionan perfectamente
gracias por vuestro tiempo

[oslar]

alguna ayuda...
saludos

[oslar]

seria d gran importancia vuestra ayuda
gracias anticipadas