Discussion :

[trucss]

Merci pour les codes je vais tester

C'est a placer ou tout en haut des codes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Const MyRep As String = "C:\Myrep\Fruits", MyFichier = "reference.txt"

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Data.OleDbPublic Class Form1

[Thumb down]

quand je fait un copier collé le premier retour à la ligne ne ce fait pas, alors si je fais pas gaf ça ce retrouve sur un même ligne!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Imports System.Data.OleDb
Public Class Form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Imports System.Data.OleDb

Public Class Form1
    Const MyRep As String = "C:\Myrep\Fruits", MyFichier = "reference.txt"
    Dim Shema As String = $"[{MyFichier}]
            Format= Delimited(;)"

[trucss]

Merci excuse moi mais j'ai renomme mes combo cbref =reference et cbcoul = couleur
J'ai juste a les remplacer dans les codes

Je ne remplace pas reference.txt ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim td As DataTable = OpenFtxt(MyRep, $"Select Distinct [designation],[conditionnement] From [{MyFichier}] WHERE [reference]={reference.Text}", Shema, True)

J'ai une erreur

OleDbDataAdapter souligné en rouge le type n'est pas defini

[trucss]

Je ne vois pas trop comme incérer ton code.(j'ai modifie le nom des combox

Je pense que je dois le placer au lancement du module ou j'ai les comboxreference et couleur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With Me.reference
            .SelectedIndex = -1
            .DataSource = OpenFtxt(MyRep, $"Select Distinct [reference] From [{MyFichier}] order By  [reference]", Shema, True)
            .ValueMember = "reference"
            .DisplayMember = "reference"
        End With
        MessageBox.Show(Reperoire("Chemin du fichier légumes :C:test\\test1.TXT"))
    End Sub

Sur la combobox reference

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cbRef_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbRef.SelectedIndexChanged
        If cbRef.SelectedIndex > -1 Then
            With couleur
                .DataSource = OpenFtxt(MyRep, $"Select Distinct [couleur] From [{MyFichier}] WHERE [reference]={reference.Text}  order By  [couleur]", Shema, True)
                .ValueMember = "couleur"
                .DisplayMember = "couleur"
            End With
            Dim td As DataTable = OpenFtxt(MyRep, $"Select Distinct [designation],[conditionnement] From [{MyFichier}] WHERE [reference]={reference.Text}", Shema, True)
            If td IsNot Nothing Then
                With td
                    If .Rows.Count > 0 Then
                        With .Rows(0)
                            designation.Text = .Item("designation")
                            conditionement.Text = .Item("conditionnement")
                        End With
                    End If
                End With
            End If
        End If 
    End Sub

Et ça je sais pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function Reperoire(ByVal txt As String) As String
        Dim pose As Long = txt.IndexOf(":") + 1
        txt = txt.Substring(pose, txt.Length - pose).Replace("\", ":").Replace(":", ":\").Replace("\\", "\")
        If txt.Substring(0, 1) = "\" Then txt = "\" + txt
        Return txt
    End Function
 
 
 
 
 
    Private Function OpenFtxt(folder As String, SQL As String, Shemat As String, Titre As Boolean) As DataTable
        Dim objWriter As New System.IO.StreamWriter($"{folder}\schema.ini", False)
        objWriter.WriteLine(Shemat)
        objWriter.Close()
        Dim con As String = $"Provider=Microsoft.Jet.OLEDB.4.0;Data Source={folder};Extended Properties='text;HDR={If(Titre, "Yes", "No")};FMT=Delimited';"
        Dim dt As New DataTable
        Using Adp As New OleDbDataAdapter(SQL, con)
            Try
                Adp.Fill(dt)
                Return dt
            Catch ex As Exception
                Return Nothing
            End Try
        End Using
    End Function

ainsi que ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Imports System.Data.OleDbPublic Class Form1
    Const MyRep As String = "C:\Myrep\Fruits", MyFichier = "test.txt"
    Dim Shema As String = $"[{MyFichier}]
            Format= Delimited(;)"