none
Insertar nuevo Row en Base de datos de Access desde VB.net RRS feed

  • Pregunta

  • Estoy intentando crear un nuevo Row en una tabla de una base de access, no da errores pero no me aparecen los registros en la base de datos, el codigo es el siguiente:

     Private Sub btnFrm1aCrearCarro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFrm1aCrearCarro.Click

            Dim myConnection As OleDb.OleDbConnection
            Dim myOleDbDataAdapter As OleDb.OleDbDataAdapter

            myConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\LabManager.mdb")
            myOleDbDataAdapter = New OleDb.OleDbDataAdapter("Select * from dbo_Carros", myConnection)
            Dim CarroRowsCommandBuilder As New OleDb.OleDbCommandBuilder(myOleDbDataAdapter)

            myOleDbDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
            myOleDbDataAdapter.Fill(LabManagerDataSet, "dbo_carros")
            Dim CarroRow As DataRow

            CarroRow = LabManagerDataSet.Tables("dbo_Carros").NewRow()

            CarroRow("TecnicoE") = txtFrm1aTecnico.Text
            CarroRow("TiendaE") = txtFrm1aTienda.Text
            CarroRow("Fecha") = Date.Now.Date
            CarroRow("Observaciones") = txtCarroObsE.Text

            LabManagerDataSet.Tables("dbo_Carros").Rows.Add(CarroRow)

            myOleDbDataAdapter.Update(LabManagerDataSet.dbo_Carros)
            Dbo_CarrosTableAdapter.Fill(LabManagerDataSet.dbo_Carros)

    lunes, 26 de noviembre de 2007 22:11

Todas las respuestas

  • Por favor, si alguien es tan amable de ayudarme. Gracias
    martes, 27 de noviembre de 2007 18:21
  • pueba de esta manera.

    Dim fila As DataRow

    fila = DsWork.Tables("Trabajos").NewRow()

    Try

    Dim totmat As String = CStr(totmaterial.Value)

    Cadena = "000000000000"

    iResultado = txtserie.Text.Length 'Trae el tamano de la cadena

    R = Cadena.Substring(1, 12 - iResultado)

    txtcodigo.Text = txtcabeza.Text & R & txtserie.Text

    'rellenar los campos de la fila nueva

    fila("Codigo") = txtcodigo.Text

    fila("Proyecto") = CodigoProyecto.Text

    fila("Fecha") = Fecha

    fila("Inicio") = DateTimePicker2.Value.Date

    fila("Fin") = DateTimePicker1.Value.Date

    fila("Zona1") = lbxz1.Text

    fila("Zona2") = lbxz2.Text

    fila("Zona3") = lbxz3.Text

    fila("Descripcion") = txtDescripcion.Text

    fila("Empresa") = lbxempresa.SelectedValue

    fila("Material") = lbxmaterial.Text

    fila("Area") = area.Value

    fila("Masa") = masa.Value

    fila("Densidad") = lbxmaterial.SelectedValue

    fila("Kmaterial") = kmaterial.Value

    fila("Kanclajes") = kanclajes.Value

    fila("Kagua") = kagua.Value

    fila("TotalMaterial") = totmat

    fila("TotalAnclajes") = totanclajes.Value

    fila("TotalAgua") = totagua.Value

    'Agregamos los datos al DataSet

    DsWork.Tables("Trabajos").Rows.Add(fila)

    'Mostramos el registro ingresado al DataSet

    DataGridView1.DataSource = DsWork.Tables("Trabajos")

    'HACER LA ACTUALIZACION A LA BD ACCESS

    conn.Open()

    txtserie.Text = CStr(CInt(txtserie.Text) + 1)

    DScorrelativo.Tables("Correlativo").Rows(0)(2) = txtserie.Text

    adaptador1.Update(DScorrelativo.Tables("Correlativo"))

     

    'Aqui esta lo que te interesa

     

    DaWork.Update(DsWork.Tables("Trabajos"))

    conn.Close()

    Catch pollo As Exception

    lblmensage.Text = pollo.Message.ToUpper

    MessageBox.Show("ERROR!!!" & pollo.Message.ToUpper)

    End Try

    jueves, 3 de enero de 2008 19:28