Bunas a todos, estoy migrando de VB a Vb.net y tengo el siguiente dilema:
Son tres tablas (en realidad son dos relacion, muchos a muchos) relacionadas por un autonumerico (en Acces), el problema es que las lineas (en rojo) no me las acepta, me da error, por lo tanto despues no puedo actualizar el dataadapter. bueno desde ya muchas gracias a cualquier ayuda,
----------------------------------------------------------------------------------------------------------
Dim sel As String

CNNa = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Diego\Inmob\Inmobiliaria.mdb;Persist Security Info=false;Jet OLEDBatabase Password= pato001")

sel = "Select Propiedades.IdProp, PropDueño.idInmueble, PropDueño.idDueño, Propietarios.IdPropietario, Propiedades.Calle," & _
" Propietarios.Apellido, Propietarios.Nombre, Propietarios.DNI, Propietarios.Cuit, Propietarios.Fec_Nac, Propietarios.Nacionalidad," & _
" Propietarios.Domicilio, Propietarios.localidad, Propietarios.Partido, Propietarios.Provincia, Propietarios.Est_Civil, Propietarios.Nupcias," & _
" Propietarios.Telefono, Propietarios.Celular, Propietarios.Email, Propietarios.Observaciones, Propietarios.Cony_Apellido, " & _
"Propietarios.Cony_Nombre, Propietarios.Cony_DNI FROM Propietarios INNER JOIN (Propiedades INNER JOIN PropDueño ON Propiedades.IdProp = PropDueño.idInmueble) ON Propietarios.IdPropietario = PropDueño.idDueño WHERE PropDueño.idInmueble=1022"

da_Prop = New OleDbDataAdapter(sel, CNNa)

cb_Prop = New OleDbCommandBuilder(da_Prop)

da_Prop.UpdateCommand = cb_Prop.GetUpdateCommand
da_Prop.InsertCommand = cb_Prop.GetInsertCommand
da_Prop.DeleteCommand = cb_Prop.GetDeleteCommand

da_Prop.MissingSchemaAction = MissingSchemaAction.AddWithKey
'dt_Prop = New DataTable
da_Prop.Fill(dt_Prop)

CNNa.Close()

Hola, estoy tratando de migrar de VB a VB.Net y tengo un problema para un progrma Inmobiliario:
No puedo actualizar registros, cuando quiero usar mas de una tabla (relacionadas entre si).
el siguiente codigo me da error (el CommandBuilder) y esto hace que no pueda actualizar los registros.
Gracias al que pueda brindarme algun dato.
Quiero aclarar que si elimino esas tre lineas la consulta la hace sin problemas.
--------------------------------------------------------------------------------------------------

Private Sub Conectar_base()
Dim sel As String

CNNa = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Diego\Inmob\Inmobiliaria.mdb;Persist Security Info=false;Jet OLEDBatabase Password= pato001")

sel = "Select Propiedades.IdProp, PropDueño.idInmueble, PropDueño.idDueño, Propietarios.IdPropietario, Propiedades.Calle," & _
" Propietarios.Apellido, Propietarios.Nombre, Propietarios.DNI, Propietarios.Cuit, Propietarios.Fec_Nac, Propietarios.Nacionalidad," & _
" Propietarios.Domicilio, Propietarios.localidad, Propietarios.Partido, Propietarios.Provincia, Propietarios.Est_Civil, Propietarios.Nupcias," & _
" Propietarios.Telefono, Propietarios.Celular, Propietarios.Email, Propietarios.Observaciones, Propietarios.Cony_Apellido, " & _
"Propietarios.Cony_Nombre, Propietarios.Cony_DNI FROM Propietarios INNER JOIN (Propiedades INNER JOIN PropDueño ON Propiedades.IdProp = PropDueño.idInmueble) ON Propietarios.IdPropietario = PropDueño.idDueño WHERE PropDueño.idInmueble=1022"

da_Prop = New OleDbDataAdapter(sel, CNNa)



cb_Prop = New OleDbCommandBuilder(da_Prop)
da_Prop.UpdateCommand = cb_Prop.GetUpdateCommand
da_Prop.InsertCommand = cb_Prop.GetInsertCommand
da_Prop.DeleteCommand = cb_Prop.GetDeleteCommand

da_Prop.MissingSchemaAction = MissingSchemaAction.AddWithKey
'dt_Prop = New DataTable
da_Prop.Fill(dt_Prop)

CNNa.Close()
End Sub

Hola, estoy tratando de migrar de Vb a Vb.Net tengo eun problema cuando creo un select com mas de una tabla, me produce un error el comandBuilder, agradezco a quien me pueda encaminar con el tema. Gracias.
------------------------------------------------------------------------------------------------
Private Sub Conectar_base()
Dim sel As String

CNNa = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Diego\Inmob\Inmobiliaria.mdb;Persist Security Info=false;Jet OLEDBatabase Password= pato001")

sel = "Select Propiedades.IdProp, PropDueño.idInmueble, PropDueño.idDueño, Propietarios.IdPropietario, Propiedades.Calle," & _
" Propietarios.Apellido, Propietarios.Nombre, Propietarios.DNI, Propietarios.Cuit, Propietarios.Fec_Nac, Propietarios.Nacionalidad," & _
" Propietarios.Domicilio, Propietarios.localidad, Propietarios.Partido, Propietarios.Provincia, Propietarios.Est_Civil, Propietarios.Nupcias," & _
" Propietarios.Telefono, Propietarios.Celular, Propietarios.Email, Propietarios.Observaciones, Propietarios.Cony_Apellido, " & _
"Propietarios.Cony_Nombre, Propietarios.Cony_DNI FROM Propietarios INNER JOIN (Propiedades INNER JOIN PropDueño ON Propiedades.IdProp = PropDueño.idInmueble) ON Propietarios.IdPropietario = PropDueño.idDueño WHERE PropDueño.idInmueble=1022"

da_Prop = New OleDbDataAdapter(sel, CNNa)



cb_Prop = New OleDbCommandBuilder(da_Prop)

da_Prop.UpdateCommand = cb_Prop.GetUpdateCommand
da_Prop.InsertCommand = cb_Prop.GetInsertCommand
da_Prop.DeleteCommand = cb_Prop.GetDeleteCommand

da_Prop.MissingSchemaAction = MissingSchemaAction.AddWithKey
dt_Prop = New DataTable
da_Prop.Fill(dt_Prop)

CNNa.Close()
End Sub

Queria aclarar que si elimino las tres lineas en rojo la consulta funciona bien