Discussion :

[Devilju69]

Bonjour,

j'ai fais un code que je n'aime pas du tout car pour faire ma recherche je dois, faire plusieurs requete ! Comment je peux faire pour améliorer 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
 
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class Recherche_document
    Private Sub recherche_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles recherche.Click
        Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=../../documents2.accdb")
        Dim cmd_edit_nom As OleDbCommand = conn.CreateCommand()
        Dim cmd_edit_description As OleDbCommand = conn.CreateCommand()
        Dim cmd_edit_mots_cle1 As OleDbCommand = conn.CreateCommand()
        Dim cmd_edit_mots_cle2 As OleDbCommand = conn.CreateCommand()
        Dim cmd_edit_mots_cle3 As OleDbCommand = conn.CreateCommand()
        Dim cmd_edit_mots_cle4 As OleDbCommand = conn.CreateCommand()
        Dim cmd_edit_lien As OleDbCommand = conn.CreateCommand()
 
        cmd_edit_nom.CommandText = "SELECT nom_document FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
        cmd_edit_description.CommandText = "SELECT description_document FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
        cmd_edit_mots_cle1.CommandText = "SELECT mots_cle1 FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
        cmd_edit_mots_cle2.CommandText = "SELECT mots_cle2 FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
        cmd_edit_mots_cle3.CommandText = "SELECT mots_cle3 FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
        cmd_edit_mots_cle4.CommandText = "SELECT mots_cle4 FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
        cmd_edit_lien.CommandText = "SELECT lien FROM documents WHERE mots_cle1='" & TextBox_recherche.Text & "' OR mots_cle2='" & TextBox_recherche.Text & "' OR mots_cle3='" & TextBox_recherche.Text & "' OR mots_cle4='" & TextBox_recherche.Text & "'"
 
        conn.Open()
 
        Dim dr As OleDbDataReader = cmd_edit_nom.ExecuteReader()
        Dim dr1 As OleDbDataReader = cmd_edit_description.ExecuteReader()
        Dim dr2 As OleDbDataReader = cmd_edit_mots_cle1.ExecuteReader()
        Dim dr3 As OleDbDataReader = cmd_edit_mots_cle2.ExecuteReader()
        Dim dr4 As OleDbDataReader = cmd_edit_mots_cle3.ExecuteReader()
        Dim dr5 As OleDbDataReader = cmd_edit_mots_cle4.ExecuteReader()
        Dim dr6 As OleDbDataReader = cmd_edit_lien.ExecuteReader()
 
        Do While (dr.Read And dr1.Read And dr2.Read And dr3.Read And dr4.Read And dr5.Read And dr6.Read)
            TextBox_affiche1.Text = dr.GetString(0)
            TextBox_affiche2.Text = dr1.GetString(0)
            TextBox_affiche3.Text = dr2.GetString(0)
            TextBox_affiche4.Text = dr3.GetString(0)
            TextBox_affiche5.Text = dr4.GetString(0)
            TextBox_affiche6.Text = dr5.GetString(0)
            TextBox_affiche7.Text = dr6.GetString(0)
        Loop
 
        dr.Close()
        conn.Close()
 
    End Sub
End Class

[Pol63]

oui, c'est vraiment effrayant ce code !


au lieu de faire select champ1 puis select champ2 dans une autre requete, tu peux faire


select champ1, champ2, champ3 from table where conditions ...


je te conseille de lire quelques tutos !

[Devilju69]

Oui mais si je fais select champ 1, champ 2 ......... dans le meme cmd_edit_nom.CommandText puis dans le Dim dr As OleDbDataReader = cmd_edit_nom.ExecuteReader() !!!!!

Tu peux m'aider ??

[Pol63]

Oui mais si je fais select champ 1, champ 2 ......... dans le meme cmd_edit_nom.CommandText puis dans le Dim dr As OleDbDataReader = cmd_edit_nom.ExecuteReader() !!!!!

oui et ensuite :

TextBox_affiche1.Text = dr.GetString(0)
TextBox_affiche2.Text = dr.GetString(1)
TextBox_affiche3.Text = dr.GetString(2)


mais si tu poses des questions dans le genre, tu vas vite saouler tout le monde, et en grande majorité la réponse sera
http://plasserre.developpez.com/cours/vb-net/

[Hinault Romaric]

+1 sperot51

je m'apprêtais a poster une fois de plus tu m'a encore devancer tu est trop rapide

[Devilju69]

Je vais peut etre soulé du monde mais je peux te dire merci de ton renseignement !

Et si il y a plusieurs documents qui ont le meme mot clé, comment je pourrais afficher d'autres textbox pour affiche de nouveau les informations ?

Mais déja merci pour ton aide !

[Hinault Romaric]

Dans ce cas tu pourrais utiliser un Listbox ou une grille(datagridview) pour afficher le résultat

[Devilju69]

Sinon, je peux pas ??
je peux pas compté les résultats et faire un affiche du nombre de textbox en fonctions du résultat ?

[Hinault Romaric]

je peux pas compté les résultats et faire un affiche du nombre de textbox en fonctions du résultat ?

Tu peut bien le faire mais créer des textbox automatiquement juste pour la lecture des résultats d'une recherche c'est pas bien pas du tout je dirais même que c'est n'importe quoi utilise les objets que j'ai cité plus haut.