Info double combobox a partir d'un fichier

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:

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

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:

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:

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:

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:

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(;)"

Citation:

Envoyé par trucss

pourquoi j'ai openftxt en rouge n'est pas déclare

Code:

.DataSource = OpenFtxt("C:\Articles", $"Select Distinct [couleur] From [articles.txt] WHERE [reference]={reference.Text} order By [couleur]", Shema, True)

Bonjour,
Revenons à ce poste.

La ligne est souligné en rouge,fais un click droit sur cette ligne il te proposera d'afficher un correction du genre import xxx !

merci thumb down