SoloCodigo

Hola!!

Tengo un problema con el Visual y las tablas de access.
yo quiero añadir un registro nuevo a una tabla que se llama Recursos. El registro que quiero añadir tiene algunos campos de la tabla, pero no todos.

Bueno, pues yo pongo el siguiente código:

1.- CUANDO CARGO EL FORMULARIO

                Dim a As String
        Dim data As OleDb.OleDbDataReader
        Dim data2 As OleDb.OleDbDataReader
        Conectar.Open()
        id = cuentaReg.ExecuteNonQuery
        id = +1
        data = consultaTipo.ExecuteReader(CommandBehavior.CloseConnection)
        While (data.Read() = True)
            Cbrecurs.Items.Add(data.GetValue(0))
        End While
        data.Close()
        Conectar.Open()
        data2 = consultaGuia.ExecuteReader(CommandBehavior.CloseConnection)
        While (data2.Read() = True)
            CbGuia.Items.Add(data2.GetValue(0))
        End While
        data2.Close()
        TData.Text = Today

Donde Conectar es un oledb.oledbconnection, data y data2 son 2 oledbDataReader, cbrecurs y cbguias son combos y consultaTipo y consultaGuia son oledbdataCommand.

2.- CUANDO CLICAS EL BOTON AÑADIR:

        Dim reg As DataRow
        reg = DataAfegir1.Tables("Recursos").NewRow
        reg("Id") = id
        reg("Recurs") = TNom.Text
        reg("Descripcio") = TDesc.Text
        reg("URL") = TUrl.Text
        reg("Tipus_recurs") = Cbrecurs.Text
        reg("Data_Entrada") = TData.Text
        reg("GuiaTematica") = CbGuia.SelectedItem
        DataAfegir1.Tables("Recursos").Rows.Add(reg)

        Adapta.Update(DataAfegir1, "Recursos")

Pues bien, cuando lo ejecuto, me sale el siguiente error:

Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll
en la linea de codigo que esta en rojo.

Alguien puede ayudarme, porque como el errortampoco especifica mucho, la verdad, pues no se si es que me falta algo por poner o me sobra o qué...

Muchas gracias.

glauca

Hola , no soy un experto precisamente, pero si pones

try

Adapta.Update(DataAfegir1, "Recursos")

 Catch ex As Exception
            MessageBox.Show( ex.Message)
 End Try

posiblemente el mensaje de error sea más especifico

es todo lo que te puedo decir, ya que yo tengo un problema del estilo,
de todas formas suerte