Discussion :

[kkitutaezechiel]

Bonjour les amis du savoir!
Je ne sais pas comment faire la recherche avec Vb.net connecté avec sql seveur, je voudrais que lorsque le text box du nom de l'article recoit le focus et je commence à taper le nom de l'article, que la liste box commence déjà à rechercher les noms semplable jusqu'à me séléctionner le vrai non... un peu comme ca se fait avec dicos encarta.
Merci!

[Pol63]

lis un cours vb.net
et un cours sur le langage sql

[Lendcap]

Bonjour mon cher,
je crois qu'à la place de ton textbox tu devrais plutot créer un combobox et suivre la fenêtre de propriété pour la lier à une source de données . Tu devrais aussi configurer la propriété autocompletemodde à Suggestappend et autocompletesource à listitem si la propriété datasource est definie sur un datatable

Merci bien si cela peut t'aider.

[kkitutaezechiel]

Merci vraiment!
J'ai trouvé maintenant la chose, ça déjà
voici le 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
Private Sub txtRechercherArt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRechercherArt.TextChanged
        FinCon.Open()
        Try
            RechercheInfo.CommandText = "Select * from tArticle where designArt like '" & Trim(Me.txtRechercherArt.Text) & "%" & "'"
            RechercheInfo.CommandType = CommandType.Text
            RechercheInfo.Connection = FinCon
            Dim dbReader As OleDbDataReader = RechercheInfo.ExecuteReader
            If dbReader.Read = True Then
                txtNumArt.Text = dbReader.Item(0)
                txtDesignArt.Text = dbReader.Item(1)
                txtNumCpte.Text = dbReader.Item(4) & dbReader.Item(3) & dbReader.Item(0)
                dbReader.Close()
            Else
                MsgBox("Aucun article retrouvé !", MsgBoxStyle.Information, "FinAuditing")
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "FinAuditing")
        End Try
        FinCon.Close()
    End Sub

[rv26t]

Bonjour,

Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.