Bonjour,

Ca y est! Je suis en mode craquage!

Bon voilà, j'ai fait ma recherche multicritère (qui fonctionne) et je veux afficher plusieurs données de la table dans la listbox en fonction de la recherche. Je l'ai déjà fait sur Access et là je lutte sur VB 2005.

Voici mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
 
'Déclarer la connexion
        Dim ObjetConnection As OleDbConnection
        ' Déclaration l'Objet Commande 
        Dim ObjetCommand As OleDbCommand
        ' Déclaration Objet DataAdapter
        Dim ObjetDataAdapter As OleDbDataAdapter
        ' Déclaration Objet DataSet
        Dim ObjetDataSet As New DataSet
        'String contenant la 'Requête SQL' 
        Dim strSql As String
        ' Déclaration Objet DataTable
        Dim ObjetDataTable As DataTable
        'Paramêtres de connexion à la DB
        Dim strConn As String
        ' Déclaration d'un  OleDbCommandBuilder
        Dim ObjetCB As OleDbCommandBuilder
 
 
        S1 = "SELECT * FROM Maintenance Where Maintenance!ID <> 0 "
        If Me.Check_nom.Checked = -1 Then
            S1 = S1 & "And Maintenance!Technicien = '" & Me.Cmb_nom.Text & "' "
        End If
        If Me.Check_mach.Checked = -1 Then
            S1 = S1 & "And Maintenance!Machine = '" & Me.Cmb_mach.Text & "' "
        End If
        If Me.Check_type.Checked = -1 Then
            S1 = S1 & "And Maintenance!Type_panne = '" & Me.Cmb_type.Text & "' "
        End If
        If Me.Check_date.Checked = -1 Then
            S1 = S1 & " and Maintenance!Datem between " & CStr(Me.Cmb_date1.Value) - 1 & " and " & CStr(Me.Cmb_date2.Value) - 1
            'SQL = SQL & " and Maintenance!Datem between " & CLng(Me.cmbdate1) & " and " & CLng(Me.cmbdate2)
        End If
        If Me.Check_term.Checked = -1 Then
            S1 = S1 & "And Maintenance!Op_term = '" & Me.Cmb_term.Text & "' "
        End If
 
        'S1Where = Trim(Right(S1, Len(S1) - InStr(S1, "Where ") - Len("Where ") + 1))
        S1 = S1 & ";"
 
'Initialisation de la chaîne de paramètres pour la connexion
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Documents and Settings\fdurame\Mes documents\GMAO_version1.mdb;"
        'Initialisation de la chaîne contenant l'instruction SQL
        strSql = S1
        'Instanciation d'un Objet Connexion
        ObjetConnection = New OleDbConnection
        'Donner à la propriété ConnectionString les paramètres de connexion
        ObjetConnection.ConnectionString = strConn
        'Ouvrir la connexion
        ObjetConnection.Open()
        'Instancier un objet Commande
        ObjetCommand = New OleDbCommand(strSql)
        'Instancier un objet Adapter
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        'initialiser l'objet Command
        ObjetCommand.Connection() = ObjetConnection
        'initialiser l'objet OleCBComandBuilder (sinon pas d'update)
        ObjetCB = New OleDbCommandBuilder(ObjetDataAdapter)
        'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
        ObjetDataAdapter.Fill(ObjetDataSet, "Maintenance")
        'Mettre dans un Objet DataTable une table du DataSet
        ObjetDataTable = ObjetDataSet.Tables("Maintenance")
        'Mettre dans le DataGrid une table  DataTable
        DataGrid1.DataSource = ObjetDataTable
 
        'Indiquer quelle colonne afficher
        Result.DisplayMember = "Machine"
 
        'Indiquer au ListBox d'afficher la table 
        Result.DataSource = ObjetDataSet.Tables("Maintenance")
Donc là, ça m'affiche juste les données "Machine". Et j'aurai voulu avoir "Nom", ...

Je cherche, je cherche... et je trouve pas. Quelqu'un pourrait-il m'aider?

Merci beaucoup!