Discussion :

[stef33150]

Bonjour,

j'aurais aimé savoir s'il était possible de faire une sorte de saisie semi-automatique en VB dans un WindowsForm (un peu du style lorsque l'on fait une recherche sur Google avec les suggestions qui apparaissent au fur et à mesure que l'on saisie du texte), sachant qu'il faudrait aller chercher les différents résultats dans les tables d'une base de données à laquelle je suis connecté par le biais d'un ODBC?

Je suppose que si cela est possible, la manipulation doit être assez complexe...

Merci par avance de vos réponses...

[Sehnsucht]

Bonjour,

Je te conseille de regarder du côtés des propriétés de ta TextBox

• AutoCompleteCustomSource
• AutoCompleteMode
• AutoCompleteSource

N'ayant pas de base de données à disposition pour faire des tests poussés, j'ai juste placé AutoCompleteMode à Suggest et AutoCompleteSource à FileSystem et j'ai obtenu une aide à la saisie d'un chemin de fichier.

Dans ton cas il faudra sûrement mettre AutoCompleteSource à CustomSource et ajouter AutoCompleteCustomSource (qui prend une collection de String comme valeur) le résultat structuré de ta requête qui devrait être, je pense, du style:

Code SQL :

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

SELECT DISTINCT monChamp FROM maTABLE WHERE monChamp LIKE 'ABC%'

En remplçant ABC par le texte de ton TextBox.

Bon j'espère avoir été le plus simple possible, n'hésite pas si tu as besoin de précisions !

[ddaime]

Un article a lire impérativement

http://odelmotte.developpez.com/tuto...utocompletion/

[stef33150]

Ta solution m'a l'air d'être tout à fait ce que je recherche ddaime.

Mais il y a une autre petite contrainte à mon application: c'est qu'elle est basée sur un modèle client/serveur.

En gros, le client n'aura pas accès directement à la base. Je pense devoir être obligé de passer par une interface mais je ne vois pas laquelle...

Saurez vous m'aider?

[ddaime]

Dans ce cas passes par un Web Service qui lui ira lire les données dans une table de ta base de données via ODBC puis les revoient à ton client. C'est le principe d'une appli n-tiers en mode client/serveur.

[stef33150]

Je suis en train de penser à quelque chose...
Dans la dll de mon projet j'ai:
- le SI (système d'information)
- les classes métiers
- les classes techniques
- les classes data (je me sert de la sérialisation)

En fait le client reçoit toutes les données des classes data qui elles sont en lien avec les classes techniques et métiers. Ce qui veut dire que mes classes data contiennent toutes les données de la base.

Donc je dois pouvoir dire que ma source de données sont ces classes...

[stef33150]

C'est bon!!!!! J'ai trouvé!!!!

En fait, ce que je fait, toutes mes infos depuis un objet o_MonClient (inclus sur le formulaire) qui me permet d'être en contact avec des méthodes stockées du côté serveur, qui elles me renvoient les listes de données dont j'ai besoin.

Voici à quoi ressemble mon code maintenant:

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
 
        Private Sub frmBon_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf FillAutoComplete))
        End Sub
 
        Private Sub FillAutoComplete(ByVal state As Object)
        Dim res As AutoCompleteStringCollection = New AutoCompleteStringCollection
 
        ' Parcourt les résultats
        For Each V As VilleData In o_MonClient.SessionService.ListeVille
            ' Ajoute à la collection de chaînes d'auto complétion le nom de la ville
            res.Add(V.Nom)
        Next
 
        If res.Count <> 0 Then
            SetSource(res)
        End If
    End Sub
 
    Private Delegate Sub SetSourceDelegate(ByVal source As AutoCompleteStringCollection)
 
    Private Sub SetSource(ByVal source As AutoCompleteStringCollection)
        If Me.InvokeRequired Then
            Invoke(New SetSourceDelegate(AddressOf SetSource), source)
        Else
            txtVille.AutoCompleteCustomSource = source
        End If
    End Sub

Merci encore pour tout!!
(s'il y a des critiques sur mon code, je suis tout ouï)