bug01300
Messages postés6Date d'inscriptionsamedi 23 mai 2009StatutMembreDernière intervention14 août 2009
-
3 août 2009 à 07:39
KIPRE74
Messages postés120Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention21 novembre 2013
-
14 août 2009 à 22:26
Bonjour,
Comment faire pour enregistrer mes textbox vers fichier Csv.
Puis lirele fichier Csv est de le charger dans un treeview
KIPRE74
Messages postés120Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention21 novembre 2013 3 août 2009 à 13:46
Voilà pour ce qui est de l'enregistrement en CSV
Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
Try
wFile.Write(TextBox1.Text)
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function
Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean
Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function
'Bouton d'enregistrement
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
sergeszebe
Messages postés180Date d'inscriptionmardi 15 novembre 2005StatutMembreDernière intervention 8 octobre 2009 12 août 2009 à 09:32
salut c'est quoi un CSV?
moi j'aimerai recuperer les données(texbox d'un formulaire et envoyer )le tout comme email a l'adresse perso solicité.
apres enregistrement dans la base.
l'enregistrement dans la base se pase bien.
Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.
bug01300
Messages postés6Date d'inscriptionsamedi 23 mai 2009StatutMembreDernière intervention14 août 20091 14 août 2009 à 12:22
Bonjour SERGESZEBE,
1)Un fichier CSV est un fichier tableur,
contenant des données sur chaque ligne séparés par un caractère de séparation
(généralement une virgule ou un point-virgule).
*****
2)Private Function Enregistrer(ByVal wFichier As String) As Boolean
Dim wFile As System.IO.StreamWriter
Try
wFile = New System.IO.StreamWriter(wFichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
Try
wFile.Write(TitreTextBox.Text + "," + LoginTextBox.Text + "," + PasswordTextBox.Text)'toutes tes textbox
Catch ex As Exception
wFile.Close()
MsgBox(ex.Message, MsgBoxStyle.Exclamation)
Return False
End Try
wFile.Close()
End Function''
Dim pFichierEnCours As String 'déclaration de la variabl
'Code de la fonction EnregistrerSous. Cette fonction ouvre un boite de dialogue pour le fichier CSV
Private Function EnregistrerSous() As Boolean
Dim wSaveFileDialog As New SaveFileDialog()
Dim wFlag As Boolean
wSaveFileDialog.FileName = pFichierEnCours
wSaveFileDialog.Filter = "Fichiers CSV(csv)|*.csv|Tous les fichiers|*.*"
If wSaveFileDialog.ShowDialog = System.Windows.Forms.DialogResult.OK Then
If Enregistrer(wSaveFileDialog.FileName) Then
wFlag = True
pFichierEnCours = wSaveFileDialog.FileName
End If
End If
wSaveFileDialog.Dispose()
Return wFlag
End Function
Private Sub tonbouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tonbouton.Click
If pFichierEnCours = "" Then 'On sauvegarde le fichier csv dans le repertoire de notre choix
EnregistrerSous()
Else
Enregistrer(pFichierEnCours)
End If
End Sub
sergeszebe
Messages postés180Date d'inscriptionmardi 15 novembre 2005StatutMembreDernière intervention 8 octobre 2009 14 août 2009 à 16:36
Merci exécllent debuatant sauf que je suis en vb.net
et a mon avis ce code est pour vb6 ou vba non?
parceque Msgbox en vbnet c'est pas une petite affaire!
eux je sais pas si je voit mal mais ça ne marche pas
Pour trouver sans chercher,il faut avoir longtemps cherché sans trouver.