Importar datos de una tabla sql a un listview

[bilbaoiker]

Buenas a todos. Tengo un problema al cargar la tabla de un sql a un list view. Me he creado la claseAdo con la siguiente conexión:
Public Function vConnection() As Data.SqlClient.SqlConnection
' -------------------------------------------------------------------------------
'''Conexion a comunes de SQL
' -------------------------------------------------------------------------------
Dim blnError As Boolean
' Parámetros de Conexion
Dim strServidor_SQL As String
Dim strBaseDatos_SQL As String
Dim strUsuario_SQL As String
Dim strPassword_SQL As String
'
Dim dbConnection As Data.SqlClient.SqlConnection
Dim strCadenaConexion As String
'
Try
' Cargar el Fichero de Configuración
strServidor_SQL = "inforlur"
strBaseDatos_SQL = "comunes"
strUsuario_SQL = System.Configuration.ConfigurationSettings.AppSett ings("SDEUsuario")
strPassword_SQL = System.Configuration.ConfigurationSettings.AppSett ings("SDEPassword")
strCadenaConexion = fConnectString(strServidor_SQL, strBaseDatos_SQL, strUsuario_SQL, strPassword_SQL)
dbConnection = fAbrirConexion(strCadenaConexion)
vConnection = dbConnection
Finally
' Destruir Objetos
' ----------------
' ......
dbConnection = Nothing
End Try
End Function

Pero ahora no se como hacer para llamar a esta conexión y que me aparezcan los datos en un listview. No tengo mucha idea de programación. Trabajo con sql 2005 y vb.net 2003. Gracias

[Dradi7]

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:

Module ModSQL
 
       public Con as new SqlConnection
       public Com as new SqlDataAdapter
       public Adp as new SqlDataAdapter
       public Ds as new DataSet
       public Dt as new DataTable
 
       sub Conexion()
              try
                     Con = new SQLConnection("Server=(local);DataBase=MiBD;UID=SA;Pwd=123;Integrated Security=false")
                     if Con.State = 0 Then Con.Open()
              catch ex as exception
                      msgbox(ex.message,48)
              end try
       end sub
 
       sub CerrarConexion()
              if Con.state = 1 then Con.Close()
       end Sub
 
end Module
 
' Luego en tu Formulario en el evento load supongo yo
 
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     try
            Conexion()
            Com = new SqlCommand
            With Com
                   .Connection = Con
                   .CommandType=CommandType.Text    ' Puede ser tambien un procedimiento almacenado
                   .CommandText = "Select * From TuTabla"
            end With
            Adp = new SqlDataAdapter(Com)
            Adp.fill(Ds,"x")
            Dt = Ds.tables("x")
 
            With MiListView ' Nombre de tu ListView
 
                .BeginUpdate()                  ' Deja el Forzado del Dibujo del Listview
                .Clear()                        ' Limpia el Contenido
                .View = View.Details            ' Vista en Forma de Detalle
                .LabelEdit = False              ' Impedir la Edicion de los Datos
                .AllowColumnReorder = False     ' Impedir que se pueda arrastrar el ancho de la columna
                .CheckBoxes = CheckBox          ' Permitir si se Mostrara Checkbox al Costado del Listview
                .FullRowSelect = True           ' Permitir Seleccionar la Fila Completa del LisView 
                .GridLines = True               ' Muestra Lineas en el ListView
                .MultiSelect = MultiSeleccion   ' Permitir la Multiple Seleccion de Filas del LisView
 
                For i As Integer = 0 To Dt.Columns.Count - 1 ' Rellena las Columnas al ListView
                    .Columns.Add((i + 1).ToString, Dt.Columns(i).ColumnName.ToString)
                Next
 
                For i As Integer = 0 To Dt.Rows.Count - 1 ' Rellena Filas en el ListView
                    .Items.Add(Dt.Rows(i)(0).ToString)
                    For j As Integer = 1 To Dt.Columns.Count - 1
                        .Items(i).SubItems.Add(Dt.Rows(i)(j).ToString)
                    Next
                Next
 
                .EndUpdate()                    ' Redibuja el ListView
            End With
     catch ex as exception
            msgbox(ex.message,48)
     finally
            CerrarConexion()
            Com.Dispose
            Adp.Dispose
            Ds.Dispose
            Dt.Dispose
     end try
end sub
 

Tu puedes adaptar este codigo a tu gusto