none
Problema guardar registro bd access vb.net no inserta RRS feed

  • Pregunta

  • Hola llevo un monton de rato intentando insertar registros en una base de datos access con vb 2010. Pero no se insertan en la base de datos. No da error de conexión ni nada. El id de la tabla lo genera automaticamente.

    Os adjunto el código.

    Gracias por adelantado

        Private Sub btnAnyadirRegistro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnyadirRegistro.Click
            fecha1 = fechaInsertar.Value.Year & "/" & fechaInsertar.Value.Month & "/" & fechaInsertar.Value.Day
            Dim con As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=Base de Datos\Limpieza bd1.mdb;"
            conn = New OleDb.OleDbConnection(con)
            Try
                conn.Open()
                'Dim sql As String = "INSERT INTO Limpiezas (fecha, codTren, codVehiculo,codEstacion, LC, L1, LR, LE, LF, EV, DOT, precioLC, precioL1, precioLR, precioLE, precioLF, precioEV, precioDOT, observaciones, repostaje, texto) values (#" & _
                '    fecha1 & "#,'" & textCodTren.Text & "','" & textCodVehiculo.Text & "','" & codEstacionAux & "','" & textLC.Text & "','" & textL1.Text & "','" & _
                '   textLR.Text & "','" & textLE.Text & "','" & textLF.Text & "','" & textEV.Text & "','" & textDOT.Text & "','8','9','10','11','12','13','14','14', 'S' ,'14')"
                'fecha1 & "#," & textCodTren.Text & "," & textCodVehiculo.Text & "," & _
                'textLC.Text & "," & textL1.Text & "," & textLR.Text & "," & textLE.Text & "," & 'textLF.Text & "," & textEV.Text & "," & textDOT.Text & ",'0','0','0','0','0','0','0' ," & _
                'textObservaciones.Text & "," & radioButtonRepostaje.Checked & "," & textObservaciones.Text & ")"
                Dim sql As String = "Insert into estaciones (nombreEstacion) values ('pruebas')"
                cmd = New OleDb.OleDbCommand(sql, conn)
                cmd.ExecuteNonQuery()
                conn.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Sub

    • Cambiado Enrique M. Montejo viernes, 28 de septiembre de 2012 6:59 acceso a datos (De:Lenguaje VB.NET)
    martes, 25 de septiembre de 2012 18:53

Todas las respuestas

  • Y cuando haces un paso a paso que pasa ?

    Pregunta: Algúna vez entra a Catch ex As Excepcion ???

    Pon un breackpont y revisa donde se puede estar quedando ...


    Un saludo, Cristian Pérez

    martes, 25 de septiembre de 2012 19:07
  • la base de datos es Access ? esta esta integrada al VS, puedes verla en el solution explorer

    porque si es asi valida en la carpeta \bin\Debug del proyecto porque el VS crea una copia dodne realiza las actualizaciones, es alli dodne veras los cambios aplicados

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    • Propuesto como respuesta Cristian Pérez viernes, 28 de septiembre de 2012 12:29
    martes, 25 de septiembre de 2012 19:10
  • Gracias a todos el acierto lo ha tenido Leandro, era que los cambios los hacía en el Debug. Gracias
    martes, 25 de septiembre de 2012 21:44
  • y como lo solucionaste, para que los cambios se mostraran en el documento de origen y no el de debug?
    domingo, 1 de julio de 2018 18:15