Bonjour,
dans un programme en visual Basic j'aimerais exporter le contenu d'une listview vers un fichier txt. pouvez vous me proposer une solution?
voici le code que j'ai fait et qui me permet de charger un listview
Public Class Main
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Public Function fncGetConnection() As String
Dim StrConnection As String
StrConnection = "Provider = MICROSOFT.JET.OLEDB.4.0;Data Source = C:\Users\ckep0015@\Documents\Visual Basic\Nwind.mdb"
Return StrConnection
End Function
Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
Try
Dim dr As OleDb.OleDbDataReader
Dim Conn As New OleDb.OleDbConnection(fncGetConnection)
Dim StrSql As String = "SELECT * FROM Customers" ' WHERE Customer.ContactTitle = 'Owner'"
Dim Cmd As New OleDb.OleDbCommand(StrSql, Conn)
Dim ListItem As ListViewItem
Conn.Open()
dr = Cmd.ExecuteReader
If dr.HasRows Then
ListView1.Items.Clear()
While dr.Read
Dim StrId As String = dr("CustomerID")
ListItem = New ListViewItem(StrId)
ListItem.SubItems.Add(dr("CompanyName"))
ListItem.SubItems.Add(dr("ContactName"))
ListItem.SubItems.Add(dr("ContactTitle"))
ListItem.SubItems.Add(dr("Address"))
ListView1.Items.Add(ListItem)
End While
End If
Conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
'Fermeture du formulaire
Me.Close()
End Sub
End Class
comment le compléter pour sauvegarder le contenu du listview en fichier txt?
Merci
Configuration: Windows Vista
Firefox 3.0.6