"no se puedo eliminar nada de las tablas especificadas"

[luiscl]

Lo de antes estaba equivocado. Esto es lo que he hecho para guardar los registros en el dataset y luego escribir estos en la base de datos intermedia.

Cuando lo ejecuto, no me hace nada de nada (ni siquiera un error). Esta página recibe datos de otra principal. Y cuando ejecuto la principal y le doy a enviar los datos a esta, me da un error de desbordamiento.


' Guardamos en un dataset los datos originales'

Dim datasetLprincipal As New DataSet
Dim dataadapterLprincipal As New OleDbDataAdapter
seleccionstringLprincipal = "Select IdInmueble, DirecciónInmueble, Situación1, NúmeroExpediente, Precio1Euros, Precio1Pts From DAT_Inmueble Where DirecciónInmueble IS NOT NULL " & "And Situación1 IS NOT NULL " & "And Eliminado = 0 " & "And IdTipoInmueble = @tipoinmueble " & "And IdTipoOperación = 4"

dataadapterLprincipal = New OleDbDataAdapter( seleccionstringLprincipal, conexionLprincipal)

dataadapterLprincipal.SelectCommand.Parameters.Add ( "@tipoinmueble", lblrespuesta.Text )

datasetLprincipal = New DataSet
dataadapterLprincipal.Fill( datasetLprincipal, "datasetpisos" )

' Ahora hay que pasar el contenido del dataset a la bd intermedia'
Dim myDataView as DataView = new DataView (datasetLprincipal.Tables("datasetpisos"))

Dim Cont As integer

conexionGintermedia.Open()

For cont = 0 to myDataView.Count -1

lblIdInmueble.Text = MyDataView(cont)("IdInmueble")
lblSituación1.Text = MyDataView(cont)("Situación1")
lblNúmeroExpediente.Text = MyDataView(cont)("NúmeroExpediente")
lblPrecio1Pts.Text = MyDataView(cont)("Precio1Pts")
lblPrecio1Euros.Text = MyDataView(cont)("Precio1Euros")

seleccionstringGintermedia = "Insert Into intermedia (IdInmueble, Situación1, NúmeroExpediente, Precio1Euros, Precio1Pts) Values (@idinmueble, @situacion1, @numeroexpediente, @precio1euros, @precio1pts)"

seleccionGintermedia = New OleDbCommand (seleccionstringGintermedia, conexionGintermedia)

seleccionGintermedia.Parameters.Add( "@idinmueble", lblIdInmueble.Text )

seleccionGintermedia.Parameters.Add( "@situacion1", lblSituación1.Text )

seleccionGintermedia.Parameters.Add( "@numeroexpediente", lblNúmeroExpediente.Text )

seleccionGintermedia.Parameters.Add( "@precio1pts", lblPrecio1Pts.Text )

seleccionGintermedia.Parameters.Add( "@precio1euros", lblPrecio1Euros.Text )

seleccionGintermedia.ExecuteNonQuery()

Next

conexionGintermedia.Close()