Reda_totti
Messages postés46Date d'inscriptionsamedi 7 septembre 2013StatutMembreDernière intervention 8 mars 2015
-
Modifié par Reda_totti le 1/10/2013 à 23:33
Reda_totti
Messages postés46Date d'inscriptionsamedi 7 septembre 2013StatutMembreDernière intervention 8 mars 2015
-
2 oct. 2013 à 23:53
je vx importez un fichier text ds une datagridview
j'ai utilisé ce code ms ça marche pas :
'import d'observation :
Dim texte As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OpenFileDialog1.FileName & _
";Extended Properties=""text;HDR=Yes;FMT=TabDelimited"";")
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim cmd As New OleDbCommand("select * from" & Path.GetFileName(OpenFileDialog1.FileName))
da.SelectCommand = cmd
da.Fill(ds)
DataGridView1.DataSource = ds
jordane45
Messages postés38112Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention29 mars 2024344 2 oct. 2013 à 00:34
Bonjour.
Déjà, il serait bien de lire le règlement du site :
- dire bonjour, s'il vous plait, merci...
- Ne pas écrire en langage SMS ...
Toutes les informations nécessaires sont ICI
Ensuite :
j'ai utilisé ce code ms ça marche pas :
Peut être as tu un message d'erreur ? (si oui.. montre le nous !)
Sinon, peux tu préciser ce qui ne fonctionne pas ?
Reda_totti
Messages postés46Date d'inscriptionsamedi 7 septembre 2013StatutMembreDernière intervention 8 mars 2015 2 oct. 2013 à 00:55
ta raison Jordane45, je m'excuse, c'etais un peu urgent c'est pour ça j'ai pas fait attention au syntaxe... Merciii pour les cosignes
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 2 oct. 2013 à 00:44
Pas bonjour non plus
je vx importez un fichier text ds une datagridview
on importe pas un fichier text dans un dgw d'ailleurs je ne vois pas
de fichier text mais un data table
la question est comment copier un data table dans un dgw
Dim bds As New BindingSource
bds.DataSource = ds.Tables("name table")
DataGridView1.DataSource = bds
Reda_totti
Messages postés46Date d'inscriptionsamedi 7 septembre 2013StatutMembreDernière intervention 8 mars 2015 2 oct. 2013 à 01:09
bonsoir Cs_Shayw, le fichier a importer est un fichier texte format séparateur, lorsque je compile mon programme j'obtient comme message d'erreur ( Fill : la propriété SelectCommand.Connection n'a pas été initialisée. ) relatif a la ligne du code: da.Fill(ds)
bon, pouvez m'expliquer un peu le code car je sais quel est le nom du table que je dois utilisé?? Mercii d'avance
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 2 oct. 2013 à 22:00
ah résolu ??
Reda_totti
Messages postés46Date d'inscriptionsamedi 7 septembre 2013StatutMembreDernière intervention 8 mars 2015 2 oct. 2013 à 22:48
Pas encore
cs_ShayW
Messages postés3253Date d'inscriptionjeudi 26 novembre 2009StatutMembreDernière intervention 3 décembre 201957 2 oct. 2013 à 23:10
ton code (copié je ne sais d'où ?) et en plus tu ne sais pas ce qu'il fait
ne donnera aucun résultat
select * from" & Path.GetFileName(OpenF .... te rend le nombre de ligne et pas le fichier de plus tu n'as pas besoin de
te servir de ton fichier comme bdd
savoir si dans ton fichier il y a le meme nombre de mot par ligne
si oui
l'algo est
tant que je nai pas fini de lire le fichier
je lis une ligne dans un string
faire un string.split
si c'est la premier ligne ajouter les colonnes au dgw (selon le nombre
item du split)
ajouter un row au dgw
mettre les items du split dans chaque cellule de la rangée
le probléme est résolu : bn voila le code qui marche
OpenFileDialog1.Title = "Choisir un Fichier"
OpenFileDialog1.Filter = "Fichier texte (*.txt, Separateur)|*.txt|Fchier texte(*.txt, Tabulation)|*.txt"
OpenFileDialog1.InitialDirectory = "C:Documents and SettingsAdministrateurBureau"
OpenFileDialog1.ShowDialog()
'***Adapter le chemin selon localisation du fichier concerné.
Dim fichierALire As String = OpenFileDialog1.FileName
'***Chaines d'une ligne.
Dim champs() As String
'***Lecteur
Dim sr As New StreamReader(fichierALire)
'***lit les lignes, extrait les chaines entre "tab" et les ajoute
' au DGV.
While Not sr.EndOfStream
Dim ligne As String = sr.ReadLine()
champs = ligne.Split(CChar(vbTab)) Then
DataGridView1.Rows.Add(champs)
End While
2 oct. 2013 à 00:55