SoloCodigo
CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: glauca en Lunes 28 de Febrero de 2005, 11:53
-
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 :comp:
-
Hola,
Con la información que das no es suficiente para poder ayudarte.
Indica que consulta utilizas para llenar esa DataTable "Recursos".
Saludos
-
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