Ver Mensaje Individual
  #5 (permalink)  
Antiguo 26/04/2004, 02:14
Avatar de luiscl
luiscl
 
Fecha de Ingreso: abril-2004
Ubicación: Zaragoza
Mensajes: 305
Antigüedad: 20 años, 11 meses
Puntos: 0
Dim datasetLprincipal As New DataSet
Dim dataadapterLprincipal As New OleDbDataAdapter
seleccionstringLprincipal = "Select IdInmueble, DirecciónInmueble, Situación1, Eliminado, 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"

datasetLprincipal = New OleDbDataAdapter( seleccionstringLprincipal, conexionLprincipal)

datasetLprincipal.SelectCommand.Parameters.Add( "@tipoinmueble", lblrespuesta.Text )
dataadapterLprincipal = New DataSet
datasetLprincipal.Fill( dataadapterLprincipal, "dtspisos" )

__________________
Pide lo que quieras...y luego paga por ello