ayuda con update!!!urgente

[federed]

hola,
tengo un sistema de inserción de registros en el que me conecto con este código:

Código:

    Private dt As DataTable
    Private da As OleDbDataAdapter
    Private fila As Integer
    Private con As OleDbConnection
    Dim instance As OleDbException
    Dim valor As OleDbErrorCollection


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\transporte.mdb;Persist Security Info=False;"
        Dim sql As String = "SELECT * FROM movimientos"
        con = New OleDbConnection(sCnn)
        con.Open()
        da = New OleDbDataAdapter(sql, con) 'conexión a access 

        Dim fun As New OleDbCommandBuilder(da)

        fun.QuotePrefix = "["
        fun.QuoteSuffix = "]"
        da.UpdateCommand = fun.GetUpdateCommand
        da.InsertCommand = fun.GetInsertCommand
        da.DeleteCommand = fun.GetDeleteCommand

        dt = New DataTable 'tabla a rellenar
        da.Fill(dt)
    End Sub

e insertaría supestamente registros con este:

Código:

                            Dim origen As String
                            Dim destino As String

                            Dim nuevo As DataRow = dt.NewRow()
                            nuevo("Número de movimiento") = num_mov.Text
                            nuevo("Fecha") = fecha.Text
                            nuevo("Cliente") = cliente.Text
                            nuevo("Origen") = origen
                            nuevo("Destino") = destino
                            nuevo("Kilómetros") = km.Text
                            nuevo("Valor") = value.Text
                            nuevo("ID conductor") = id.Text

                            dt.Rows.Add(nuevo)
 da.Update(dt)

pero al generarlo me dice en da.update(dt) que hubo una oledbexception
¿Qué hago?
gracias

[Piruleta]

Intenta hacer primero el Add y luego poner los datos...

[Avellaneda]

Iniciado por federed

hola,
tengo un sistema de inserción de registros en el que me conecto con este código:

Código:

    Private dt As DataTable
    Private da As OleDbDataAdapter
    Private fila As Integer
    Private con As OleDbConnection
    Dim instance As OleDbException
    Dim valor As OleDbErrorCollection


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\transporte.mdb;Persist Security Info=False;"
        Dim sql As String = "SELECT * FROM movimientos"
        con = New OleDbConnection(sCnn)
        con.Open()
        da = New OleDbDataAdapter(sql, con) 'conexión a access 

        Dim fun As New OleDbCommandBuilder(da)

        fun.QuotePrefix = "["
        fun.QuoteSuffix = "]"
        da.UpdateCommand = fun.GetUpdateCommand
        da.InsertCommand = fun.GetInsertCommand
        da.DeleteCommand = fun.GetDeleteCommand

        dt = New DataTable 'tabla a rellenar
        da.Fill(dt)
    End Sub

e insertaría supestamente registros con este:

Código:

                            Dim origen As String
                            Dim destino As String

                            Dim nuevo As DataRow = dt.NewRow()
                            nuevo("Número de movimiento") = num_mov.Text
                            nuevo("Fecha") = fecha.Text
                            nuevo("Cliente") = cliente.Text
                            nuevo("Origen") = origen
                            nuevo("Destino") = destino
                            nuevo("Kilómetros") = km.Text
                            nuevo("Valor") = value.Text
                            nuevo("ID conductor") = id.Text

                            dt.Rows.Add(nuevo)
 da.Update(dt)

pero al generarlo me dice en da.update(dt) que hubo una oledbexception
¿Qué hago?
gracias

Hola,
¿y porqué no haces el update directamente en la tabla a través del objeto command? Ahorrarías código y es mas sencillo.

Código:

Dim cmd As New SqlCommand()

cmd.Connection = con
        con.Open()

        cmd.CommandText = "UPDATE Movimientos SET [Numero de movimiento] = '" & Num_mov.Text & "', " & _
        "Fecha = '" & Fecha.Text & "', " & _
        "Cliente = '" & Cliente.Text & "', " & _
        "Origen= '" & Origen & "', Destino = '" & Destino & "', " & _
        "Kilometros = '" & Km.Text & "', Valor = '" & Valuel.Text & "', " & _
        "[Id Conductor] = '" & id.Text & "'"

        cmd.ExecuteNonQuery()

Nota: El código anterior lo he puesto de memoria, sin hacer comprobación, es posible que me haya equivocado en algo, pero la idea es ésa.