none
NO SE HAN ESPECIFICADO VALORES PARA ALGUNOS DE LOS PARAMETROS REQUERIDOS --ACCES Y VISUAL BASIC RRS feed

  • Pregunta

  • Private Sub btn_subir_Click(sender As Object, e As EventArgs) Handles btn_subir.Click
            Dim Conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "A:\2CDD\00 Base de Datos\Sistema Control Documentario\cdd\cdd\bin\Debug\BD Lista Proyectos_1.accdb")
            Try
                Conn.Open()
                For x As Integer = 0 To DataGridView1.Rows.Count - 1
                    Using cmdInsert As New OleDbCommand
                        With cmdInsert
                            .CommandText = "INSERT INTO ENTREGABLES_ING ([CodEntregable], [RDS_CTTO], [Tipo], [Descripcion], [Disciplina],  [Etapa], [Facilidad], [Observaciones], [Revision], [Archivo_ruta], [estatus_socio], [fecha], [IdProyecto], [Titulo-Proyecto], [NombreRDS_CTTO], [Consultor], [CodListaEntregable])
                            VALUES(@CodEntregable, @RDS_CTTO, @Tipo, @Descripcion, @Disciplina, @Etapa, @Facilidad, @Observaciones, @Revision, @Archivo_ruta, @estatus_socio, @fecha, @IdProyecto, @Titulo-Proyecto, @NombreRDS_CTTO, @Consultor, @CodListaEntregable )"
                            .CommandType = CommandType.Text
                            .Connection = Conn

                            .Parameters.Add("@CodEntregable", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("CodEntregable").Value)
                            .Parameters.Add("@RDS_CTTO", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("RDS_CTTO").Value)
                            .Parameters.Add("@Tipo", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Tipo").Value)
                            .Parameters.Add("@Descripcion", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Descripcion").Value)
                            .Parameters.Add("@Disciplina", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Disciplina").Value)
                            .Parameters.Add("@Etapa", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Etapa").Value)
                            .Parameters.Add("@Facilidad", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Facilidad").Value)
                            .Parameters.Add("@Observaciones", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Observaciones").Value)
                            .Parameters.Add("@Revision", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Revision").Value)
                            .Parameters.Add("@Archivo_ruta", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Archivo_ruta").Value)
                            .Parameters.Add("@estatus_socio", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("estatus_socio").Value)
                            .Parameters.Add("@fecha", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("fecha").Value)
                            .Parameters.Add("@IdProyecto", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("IdProyecto").Value)
                            .Parameters.Add("@Titulo-Proyecto", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Titulo-Proyecto").Value)
                            .Parameters.Add("@NombreRDS_CTTO", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("NombreRDS_CTTO").Value)
                            .Parameters.Add("@Consultor", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("Consultor").Value)
                            .Parameters.Add("@CodListaEntregable", OleDbType.VarWChar).Value = (DataGridView1.Rows(x).Cells("CodListaEntregable").Value)
                        End With
                        Dim Correcto As Integer = cmdInsert.ExecuteNonQuery
                        If Correcto = 0 Then
                            MessageBox.Show("Error no se puede agregar lista", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        End If
                    End Using
                Next
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Abvertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                If Conn.State = ConnectionState.Open Then
                    Conn.Close()
                    Conn.Dispose()
                End If
            End Try

        End Sub
    • Cambiado Enrique M. Montejo miércoles, 10 de enero de 2018 12:36 Pregunta relacionada con el acceso a datos con Microsoft Access.
    martes, 9 de enero de 2018 0:19

Todas las respuestas

  • Al parecer falta algun campo para nombrar en tu BD, verifica si concuerda la cantidad. Debería ser 17 campos

    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗

    • Propuesto como respuesta Pablo Rubio martes, 9 de enero de 2018 16:19
    martes, 9 de enero de 2018 0:30