Hola, bueno la verdad es que es mucho codigo y ya estoy un poco perdido de donde va cada cosa y de que es lo que quieres hacer
, pero te dire varias cosas:
Cita: seleccionstringLintermedia = "Select IdInmueble, Situación1, NúmeroExpediente, Precio1Euros, IdTipoInmueble, Precio1Pts From DAT_Inmueble Where IdTipoInmueble = @tipoinmueble " & " And DirecciónInmueble IS NOT NULL " & "And Situación1 IS NOT NULL " & " And Eliminado = 0 " & " And IdTipoOperación = 4 order by Precio1Pts"
¿esta consulta la has copiado y la has pegado directamente aquí?
En ese caso, supongo que los & están puestos para concatenar diferentes lineas de codigo, pero en vb, cuando una sentencia ocupa mas de una linea, hay que poner también "_", es decir:
lb_mensaje.Text = "Hola esto es" & _
"una prueba"
Por otro lado:
Cita: dadpisos.SelectCommand.Parameters.Add(New OleDbParameter("@tipoinmueble", OleDbType.Integer))
dadpisos.SelectCommand.Parameters("@tipoinmueble") .Value=lblrespuesta.Text
yo pondría:
Cita: dadpisos.SelectCommand.Parameters.Add(New OleDbParameter("@tipoinmueble", OleDbType.Integer))
dadpisos.SelectCommand.Parameters("@tipoinmueble") .Value=Integer.ParseInt(lblrespuesta.Text)
y por ultimo,
no es nada recomendable que los nombres de los campos de las bases de datos lleven tildes
Salu2
