X
xaime
Hi all,
I have the code below. This is doing what I want, but always has the
following exception:
Update unable to find TableMapping ['mytable'] or Datatable 'mytable'
The code I'm using is:
Try
Dim aDispuesto As Single, aDisponible As Single
aDispuesto = Session("dispuesto") + APagar
aDisponible = Session("disponible") - APagar
' conexión con tbEmprendedor
Dim oDSemp As Data.DataSet = New DataSet("DatasetEmprendedor")
' consulta de actualización con nuevos valores
Dim SQLemp As String
SQLemp = "UPDATE tbEmprendedor" & _
" SET Dispuesto = " & aDispuesto & ", Disponible = " & aDisponible & _
" WHERE id_Emprendedor = " _
& CType(idEmp, Integer) & ";"
Dim oDAemp As New OleDb.OleDbDataAdapter(SQLemp, oCnn1)
oDAemp.Fill(oDSemp)
oDAemp.UpdateCommand = New OleDb.OleDbCommand
oDAemp.UpdateCommand.CommandText = SQLemp
oDAemp.UpdateCommand.Connection = oCnn1
' Actualizar
oDAemp.Update(oDSemp, "tbEmprendedor")
oCnn1.Close()
Catch ex As Exception
lblMensaje.Text = lblMensaje.Text & "<br>Excepcion tbEmprendedor: {0}" &
ex.Message
End Try
Thanks for helping me.
I have the code below. This is doing what I want, but always has the
following exception:
Update unable to find TableMapping ['mytable'] or Datatable 'mytable'
The code I'm using is:
Try
Dim aDispuesto As Single, aDisponible As Single
aDispuesto = Session("dispuesto") + APagar
aDisponible = Session("disponible") - APagar
' conexión con tbEmprendedor
Dim oDSemp As Data.DataSet = New DataSet("DatasetEmprendedor")
' consulta de actualización con nuevos valores
Dim SQLemp As String
SQLemp = "UPDATE tbEmprendedor" & _
" SET Dispuesto = " & aDispuesto & ", Disponible = " & aDisponible & _
" WHERE id_Emprendedor = " _
& CType(idEmp, Integer) & ";"
Dim oDAemp As New OleDb.OleDbDataAdapter(SQLemp, oCnn1)
oDAemp.Fill(oDSemp)
oDAemp.UpdateCommand = New OleDb.OleDbCommand
oDAemp.UpdateCommand.CommandText = SQLemp
oDAemp.UpdateCommand.Connection = oCnn1
' Actualizar
oDAemp.Update(oDSemp, "tbEmprendedor")
oCnn1.Close()
Catch ex As Exception
lblMensaje.Text = lblMensaje.Text & "<br>Excepcion tbEmprendedor: {0}" &
ex.Message
End Try
Thanks for helping me.