Aide svp: connexion fichier txt olebd [Résolu]

Messages postés
47
Date d'inscription
samedi 7 septembre 2013
Statut
Membre
Dernière intervention
8 mars 2015
-
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
Afficher la suite 

3 réponses

Messages postés
26526
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 octobre 2019
316
0
Merci
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és
47
Date d'inscription
samedi 7 septembre 2013
Statut
Membre
Dernière intervention
8 mars 2015
-
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
Commenter la réponse de jordane45
Messages postés
3251
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
16 octobre 2019
46
0
Merci
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és
47
Date d'inscription
samedi 7 septembre 2013
Statut
Membre
Dernière intervention
8 mars 2015
-
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
Commenter la réponse de cs_ShayW
Messages postés
3251
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
16 octobre 2019
46
0
Merci
ah résolu ??
Reda_totti
Messages postés
47
Date d'inscription
samedi 7 septembre 2013
Statut
Membre
Dernière intervention
8 mars 2015
-
Pas encore
cs_ShayW
Messages postés
3251
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
16 octobre 2019
46 -
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

commence au moins quelque chose
Reda_totti
Messages postés
47
Date d'inscription
samedi 7 septembre 2013
Statut
Membre
Dernière intervention
8 mars 2015
-
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

Mercii pr l'aide
Commenter la réponse de cs_ShayW