Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/06/2009, 08:30
Avatar de Dradi7
Dradi7
 
Fecha de Ingreso: junio-2008
Ubicación: Peru - Lima
Mensajes: 1.518
Antigüedad: 15 años, 11 meses
Puntos: 220
Respuesta: Importar datos de una tabla sql a un listview

bueno no entiendo mucho tu codigo pero porque no haces de la siguiente manera primero te creas un modulo donde iran tus variables globales

Código vb.net:
Ver original
  1. Module ModSQL
  2.  
  3.        public Con as new SqlConnection
  4.        public Com as new SqlDataAdapter
  5.        public Adp as new SqlDataAdapter
  6.        public Ds as new DataSet
  7.        public Dt as new DataTable
  8.  
  9.        sub Conexion()
  10.               try
  11.                      Con = new SQLConnection("Server=(local);DataBase=MiBD;UID=SA;Pwd=123;Integrated Security=false")
  12.                      if Con.State = 0 Then Con.Open()
  13.               catch ex as exception
  14.                       msgbox(ex.message,48)
  15.               end try
  16.        end sub
  17.  
  18.        sub CerrarConexion()
  19.               if Con.state = 1 then Con.Close()
  20.        end Sub
  21.  
  22. end Module
  23.  
  24. ' Luego en tu Formulario en el evento load supongo yo
  25.  
  26. Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  27.      try
  28.             Conexion()
  29.             Com = new SqlCommand
  30.             With Com
  31.                    .Connection = Con
  32.                    .CommandType=CommandType.Text    ' Puede ser tambien un procedimiento almacenado
  33.                    .CommandText = "Select * From TuTabla"
  34.             end With
  35.             Adp = new SqlDataAdapter(Com)
  36.             Adp.fill(Ds,"x")
  37.             Dt = Ds.tables("x")
  38.  
  39.             With MiListView ' Nombre de tu ListView
  40.  
  41.                 .BeginUpdate()                  ' Deja el Forzado del Dibujo del Listview
  42.                 .Clear()                        ' Limpia el Contenido
  43.                 .View = View.Details            ' Vista en Forma de Detalle
  44.                 .LabelEdit = False              ' Impedir la Edicion de los Datos
  45.                 .AllowColumnReorder = False     ' Impedir que se pueda arrastrar el ancho de la columna
  46.                 .CheckBoxes = CheckBox          ' Permitir si se Mostrara Checkbox al Costado del Listview
  47.                 .FullRowSelect = True           ' Permitir Seleccionar la Fila Completa del LisView
  48.                 .GridLines = True               ' Muestra Lineas en el ListView
  49.                 .MultiSelect = MultiSeleccion   ' Permitir la Multiple Seleccion de Filas del LisView
  50.  
  51.                 For i As Integer = 0 To Dt.Columns.Count - 1 ' Rellena las Columnas al ListView
  52.                     .Columns.Add((i + 1).ToString, Dt.Columns(i).ColumnName.ToString)
  53.                 Next
  54.  
  55.                 For i As Integer = 0 To Dt.Rows.Count - 1 ' Rellena Filas en el ListView
  56.                     .Items.Add(Dt.Rows(i)(0).ToString)
  57.                     For j As Integer = 1 To Dt.Columns.Count - 1
  58.                         .Items(i).SubItems.Add(Dt.Rows(i)(j).ToString)
  59.                     Next
  60.                 Next
  61.  
  62.                 .EndUpdate()                    ' Redibuja el ListView
  63.             End With
  64.      catch ex as exception
  65.             msgbox(ex.message,48)
  66.      finally
  67.             CerrarConexion()
  68.             Com.Dispose
  69.             Adp.Dispose
  70.             Ds.Dispose
  71.             Dt.Dispose
  72.      end try
  73. end sub

Tu puedes adaptar este codigo a tu gusto
__________________
La clave de todo triunfador es eliminar todas sus excusas y sus limitaciones