• Viernes 8 de Noviembre de 2024, 22:56

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - mariano_donati

Páginas: [1]
1
VB .NET / Problema Con Dataadapter.update()
« en: Viernes 19 de Agosto de 2005, 17:53 »
Hola, soy nuevo en este foro, y dejenme decirles que tiene muy buena pinta por lo que he visto y un muy buen nivel. Además de esto, también soy nuevo en la plataforma .Net. Les comento cual es mi problema. Tengo un DataSet, el cual es la fuente de datos de un control DataGrid. Además de esto, tengo un par de campos de texto en los cuales puedo agregar nuevos registros al DataSet. Cuando agrego un nuevo registro, y llamo al método Update del DataAdapter a través de un botón, me sale este error:

Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll

El IDE me marca este comentario:

Este código hace referencia a otra función. Cuando haya terminado dicha función, esta será la próxima instrucción que se ejecute.

Justamente el código que menciona el comentario del IDE es al llamar al método Update().

Alguien tiene idea de por que pasa esto?. Tengo una base de datos en Access. Les dejo el código que utilizo, con algunas modificaciones para hacerlo más simple y corto para los que se interesen en leerlo, pero con el mismo error.

Código: Text
  1.  
  2.  Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  3.         Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\DataBase\MyBase.mdb;"
  4.         Dim sqlStatement As String = "SELECT PRO_NOMBRE FROM PRO_PRODUCTOS"
  5.         Dim conn As New OleDbConnection(strConn)
  6.         DataAdapter.SelectCommand = New OleDbCommand(sqlStatement, conn)
  7.         Dim cmmdBuilder As New OleDbCommandBuilder(DataAdapter)
  8.         conn.Open()
  9.         Datos = New DataSet()
  10.         DataAdapter.Fill(Datos, "Productos")
  11.  
  12.         Dim newRow As DataRow
  13.         newRow = Datos.Tables("Productos").NewRow
  14.         newRow("PRO_NOMBRE") = "Impresora"
  15.         Datos.Tables("Productos").Rows.Add(newRow)
  16.  
  17.         DataAdapter.Update(Datos, "Productos")
  18.  
  19.         conn.Close()
  20.  
  21.     End Sub
  22.  
  23.  
  24.  

Muchas gracias de antemano.
Saludos!.

Páginas: [1]