elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: [AIO elhacker.NET 2015] Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderadores: Novlucker, seba123neo, kub0x, Eleкtro)
| | | |-+  Listview A Excel (copiar a un rango de celda)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Listview A Excel (copiar a un rango de celda)  (Leído 199 veces)
Ericks

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Listview A Excel (copiar a un rango de celda)
« en: 15 Septiembre 2017, 23:02 »

Hola buenas con todos, queria ayuda sobre este codigo que tengo lo que pasa que quisiera que los datos de listview se copien o transfieran al excel pero a un rango de celda especifico

aqui el codigo

desde ya muchas gracias :(

Public Class Form1

    Dim cn As New OleDb.OleDbConnection
    Dim cm As New OleDb.OleDbCommand
    Dim da As New OleDb.OleDbDataAdapter
    Dim dt As New DataTable
    Dim dataset As DataSet

    Sub llenarListview()

    End Sub

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'cuando el formulario carga crear la conexion , notese que el string de conexion se edita de forma manual.

        llenarListview()
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\SISTEMAS-MONITOREO\Desktop\visual\BDACC\datos.xlsx;Extended Properties=Excel 12.0"

        Dim sql = "select * from [Hoja1$]"
        da = New OleDb.OleDbDataAdapter(sql, cn)
        da.Fill(dt)

        'llenar el listwiev

        For i = 0 To dt.Rows.Count - 1

            ListView1.Items.Add(dt.Rows(i).Item(0))
            ListView1.Items(i).SubItems.Add(dt.Rows(i).Item(1))


        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'agrega en la BD
        cn.Open()
        cm.Connection = cn

        cm.CommandText = "insert into [Hoja1$]values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
        cm.ExecuteNonQuery()

        'Agrega en el list view
        Dim indice As Integer = ListView1.Items.Count


        ListView1.Items.Add(TextBox1.Text) 'agrega una fila nueva
            ListView1.Items(indice).SubItems.Add(TextBox2.Text)
            ListView1.Items(indice).SubItems.Add(TextBox3.Text) ' agrega una columna nueva en la fila creada

            cn.Close()

    End Sub
End Class


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Listview A Excel (Aliner celda)
Programación Visual Basic
TheGhost(Z) 4 6,351 Último mensaje 31 Julio 2007, 20:59
por TheGhost(Z)
Control en una celda Listview
Programación Visual Basic
pisagatos 0 535 Último mensaje 29 Abril 2008, 00:53
por pisagatos
Valor de ultima celda en excel
Dudas Generales
Azielito 8 16,986 Último mensaje 21 Mayo 2008, 16:37
por Azielito
celda excel a html
Programación Visual Basic
OssoH 2 2,445 Último mensaje 27 Agosto 2010, 00:15
por OssoH
MOVIDO: Listview A Excel (copiar a un rango de celda)
Programación Visual Basic
Eleкtro 0 531 Último mensaje 16 Septiembre 2017, 06:36
por Eleкtro
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines