Por que no puedo agregar mas de 5 Insert en VB.Net 2012 y Access 2013

Question

Saludos.

Estoy desarrollando un programa con conexion a Access desde VB.net y quiero agregar 10 campos para agregarlos a la base de datos mediante  un formulario pero al parecer el codigo me limita a que solo cuando son 5 campos lo acepta pero cuando intento con uno mas me da error.

Necesito ayuda por favor.!!

Answer 1

Hola Jesús,

Requieres ayuda pero no haces mucho por obtenerla. Muéstranos el código donde estás teniendo problemas, recuerda que somos desarrolladores, no tenemos poderes para imaginar/suponer/adivinar/especular/recrear/escenificar/... lo que intentas realizar. 

Answer 2

Disculpa. Es que lo hice un poco rapido.

espero y tengas la solucion

Imports System.Data
Imports System.Data.OleDb

Public Class fDespacho
    Dim conexion As New OleDbConnection
    Dim comando As New OleDbCommand
    Dim adadtador As New OleDbDataAdapter
    Dim Registro As New DataSet


    Sub Limpiar()

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox1.Focus()

    End Sub

    Private Sub datagridviewdesp()

        Dim adadtador As New OleDbDataAdapter
        Dim registro As New DataSet
        Dim consulta As String


        consulta = "SELECT * FROM Registros_Despachos"
        adadtador = New OleDbDataAdapter(consulta, conexion)
        registro.Tables.Add("Registros_Despachos")
        adadtador.Fill(registro.Tables("Registros_Despachos"))
        DataGridViewDespachos.DataSource = registro.Tables("Registros_Despachos")


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Start()
        btnmodificar.Enabled = False
        Try

            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Programacion\windows form\My Sistema\My Sistema\bin\Debug\mybasedalmacen.accdb"
            conexion.Open()
            datagridviewdesp()

        Catch ex As Exception

            MsgBox("Error al conectar", MsgBoxStyle.Critical, "Error de Conexion")
        End Try

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnguardar.Click

        Try

            comando = New OleDbCommand("INSERT INTO Registros_Despachos( Lote, Worklot, Logador,"  & vbCrLf &  "Equipo, Despachador) Values( TextBox1, TextBox2, " & vbCrLf &
                    "TextBox3, TextBox4, TextBox5)", conexion)

            comando.Parameters.AddWithValue("@Lote", TextBox1.Text)
            comando.Parameters.AddWithValue("@Worklot", TextBox2.Text)
            comando.Parameters.AddWithValue("@Logador", TextBox3.Text)
            comando.Parameters.AddWithValue("@Equipo", TextBox4.Text)
            comando.Parameters.AddWithValue("@Despachador", TextBox5.Text)

            comando.ExecuteNonQuery()

            datagridviewdesp()

            Limpiar()

        Catch ex As Exception
            MsgBox("Error al Guardar", MsgBoxStyle.Critical, "Error")
            Limpiar()

        End Try

    End Sub

Answer 3

Hola Jesús,

¿Qué error te marca?

Answer 4

este es el error que marca. el error del try por falso

MsgBox("Error al Guardar", MsgBoxStyle.Critical, "Error")

Answer 5

Hola Jesus tejeda es que estas especificando parámetros que en tu query no están siendo especificados o usados veo que directamente estas emitiendo  los valores de los textbox (de una manera incorrecta sin la propiedad text), deberías aplicar el siguiente código:

Imports System.Data
Imports System.Data.OleDb

Public Class fDespacho
    Dim conexion As New OleDbConnection
    Dim comando As New OleDbCommand
    Dim adadtador As New OleDbDataAdapter
    Dim Registro As New DataSet

    Sub Limpiar()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox1.Focus()
    End Sub

    Private Sub datagridviewdesp()
        Dim adadtador As New OleDbDataAdapter
        Dim registro As New DataSet
        Dim consulta As String
        consulta = "SELECT * FROM Registros_Despachos"
        adadtador = New OleDbDataAdapter(consulta, conexion)
        registro.Tables.Add("Registros_Despachos")
        adadtador.Fill(registro.Tables("Registros_Despachos"))
        DataGridViewDespachos.DataSource = registro.Tables("Registros_Despachos")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        btnmodificar.Enabled = False
        Try
            conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Programacion\windows form\My Sistema\My Sistema\bin\Debug\mybasedalmacen.accdb"
            conexion.Open()
            datagridviewdesp()
        Catch ex As Exception
            MsgBox("Error al conectar", MsgBoxStyle.Critical, "Error de Conexion")
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnguardar.Click
        Try
            comando = New OleDbCommand("INSERT INTO Registros_Despachos( Lote, Worklot, Logador,Equipo,Despachador) Values( @Lote, @Worklot,@Logador, @Equipo, @Despachador)", conexion)
            comando.CommandType = CommandType.Text
            comando.Parameters.AddWithValue("@Lote", TextBox1.Text)
            comando.Parameters.AddWithValue("@Worklot", TextBox2.Text)
            comando.Parameters.AddWithValue("@Logador", TextBox3.Text)
            comando.Parameters.AddWithValue("@Equipo", TextBox4.Text)
            comando.Parameters.AddWithValue("@Despachador", TextBox5.Text)
            comando.ExecuteNonQuery()
            datagridviewdesp()
            Limpiar()
        Catch ex As Exception
            MsgBox("Error al Guardar", MsgBoxStyle.Critical, "Error")
            Limpiar()
        End Try
    End Sub

Espero haberte ayudado.

Answer 6

Saludos.

Gracias por la atencion y el soporte.

use este codigo pero persiste el error.

Si realizo el codigo hasta el campo "Despachador" me funciona si agrego un campo mas me da error. en este caso agregue size y color y me da error.

Este error esta raro. 

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnguardar.Click

        Try
                 
            comando = New OleDbCommand("INSERT INTO Registros_Despachos( Lote, Worklot, Logador, Equipo, Despachador, Size, Color) Values( @Lote, @Worklot, @Logador, @Equipo, @Despachador, @Size, @Color)", conexion)
            comando.CommandType = CommandType.Text
            comando.Parameters.AddWithValue("@Lote", TextBox1.Text)
            comando.Parameters.AddWithValue("@Worklot", TextBox2.Text)
            comando.Parameters.AddWithValue("@Logador", TextBox3.Text)
            comando.Parameters.AddWithValue("@Equipo", TextBox4.Text)
            comando.Parameters.AddWithValue("@Despachador", TextBox5.Text)
            comando.Parameters.AddWithValue("@Size", TextBox6.Text)
            comando.Parameters.AddWithValue("@Color", TextBox7.Text)

            comando.ExecuteNonQuery()

            datagridviewdesp()

            Limpiar()

        Catch ex As Exception
            MsgBox("Error al Guardar", MsgBoxStyle.Critical, "Error")


        End Try

    End Sub

Answer 7

Hola Jesus tejeda,

¿Podrías indicar cuál es el error que te sale?

Answer 8

EL ERROR POR CASO CONTRARIO 

EJEMPLO

Catch ex As Exception
            MsgBox("Error al Guardar", MsgBoxStyle.Critical, "Error")