ASP.NET - de visual studio 2003 a 2005

   
Vista:

de visual studio 2003 a 2005

Publicado por nenure (56 intervenciones) el 02/04/2008 11:33:52
Hola! Alguien me puede ayudar con este codigo? No consigo poner todo el Visual Studio 2005, me da errores. Si alguien sabe que es, me lo puede decir?? por favor..........GRACIAS.

Imports System.Data
Imports System.Data.SqlClient

Partial Class Inmobiliarias_borrar2formview
Inherits System.Web.UI.Page
Private dt As DataTable
Private da As SqlDataAdapter

Private conexion As String = _
"Data Source = (local)SQLEXPRESS; " & _
"Initial Catalog=conexion buena; " & _
"Integrated Security=true"
Private seleccion As String = _
"SELECT localidad, inmobiliaria FROM nerea2_inmobiliarias"
Private iniciando As Boolean = True

Private Sub Form1_Load( _
ByVal sender As Object, _
ByVal e As EventArgs) _
Handles MyBase.Load

Me.txtlocalidad.Text = ""

da = New SqlDataAdapter(seleccion, conexion)
dt = New DataTable
da.Fill(dt)

Me.GridView1.DataSource = dt

iniciando = False
End Sub
Private Sub txtlocalidad_TextChanged( _
ByVal sender As Object, _
ByVal e As EventArgs) _
Handles txtlocalidad.TextChanged

If iniciando Then Exit Sub

' Buscar en el DataTable usando el método Select
' que es como un filtro WHERE en una cadena de selección.

' El resultado se devuelve como un array de tipo DataRow
Dim filas() As DataRow

' Si solo quieres mostrar los que empiecen por lo escrito.
' Al escribir "s" se buscarán los que empiecen por esa letra.
filas = dt.Select("localidad LIKE '" & txtlocalidad.Text & "%'")

' Borrar los elementos anteriores
Me.ListBox1.Items.Clear()

' Si hay datos, mostrar las inmobiliarias
If filas.Length > 0 Then

' Recorrer cada fila y mostrar las inmobiliarias
For Each dr As DataRow In filas

Me.ListBox1.Items.Add( _
dr("localidad").ToString & ", " & _
dr("inmobiliaria").ToString)

Next
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged( _
ByVal sender As Object, _
ByVal e As EventArgs) _
Handles ListBox1.SelectedIndexChanged

If iniciando Then Exit Sub

' Al hacer clic, mostrar el dato
Me.txtlocalidad.Text = Me.ListBox1.SelectedItem.ToString

' Buscarlo en el GridView (de forma manual, no conozco otra forma...)

' Eliminar las selecciones anteriores
Me.GridView1.ClearSelection()

' Recorrer las filas para buscar el Apellido indicado
For Each fila As GridViewRow In Me.GridView1.Rows
' Si es la misma localidad del textBox

' Curiosamente si no son los mismos datos
' se produce un error de que d.Cells(...) es Nothing
' En realidad de "curioso" no tiene nada,
' es que es la última fila, que está vacía...
If fila.Cells("localidad").Value Is Nothing _
OrElse fila.Cells Is Nothing Then
Continue For
End If

' Si se quiere tener en cuenta la localidad y la inmobiliaria
Dim i As Integer = Me.txtlocalidad.Text.IndexOf(",")

If i > -1 Then
' En este ejemplo, el formato es localidad, inmobiliaria
Dim localidad, inmobiliaria As String
localidad = Me.txtlocalidad.Text.Substring(0, i).TrimEnd()
inmobiliaria = Me.txtlocalidad.Text.Substring(i + 1).TrimStart()

If localidad = fila.Cells("localidad").Value.ToString _
AndAlso inmobiliaria = fila.Cells("inmobiliaria").Value.ToString Then
' Seleccionamos la fila
Me.GridView1.Rows(fila.Index).Selected = True
' nos aseguramos de que sea visible
Me.GridView1.FirstDisplayedScrollingRowIndex = fila.Index
Exit For
End If
Else
If Me.txtlocalidad.Text = fila.Cells("Apellidos").Value.ToString Then
' Seleccionamos la fila
Me.GridView1.Rows(fila.Index).Selected = True
' nos aseguramos de que sea visible
Me.GridView1.FirstDisplayedScrollingRowIndex = fila.Index
Exit For
End If
End If
Next
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder