Remplisage des AutoCompleteCustomSource

Version imprimable

Bonjour à tous.

J'essaye de remplir l'AutoCompleteCustomSource de deux zones de texte de mon formulaire, mais le problème est-ce que l'AutoCompleteCustomSource de la deuxième textbox reste egale au de la première!
:?

Voilàmon code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
strSQL = "SELECT DISTINCT T_Huissiers.Huissier_nom " & _
                 "FROM T_Huissiers " & _
                 "ORDER BY T_Huissiers.Huissier_nom"
        ObjetConnection = New SqlConnection()
        ObjetConnection.ConnectionString = PCEConn
        ObjetConnection.Open()
        ObjetCommand = New SqlCommand(strSQL)
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "T_Huissiers")
        ObjetDataTable = ObjetDataSet.Tables("T_Huissiers")
        For i = 0 To ObjetDataTable.Rows.Count - 1
            RowNumber = i
            txtHuissierIntitule.AutoCompleteCustomSource.Add(ObjetDataTable.Rows(RowNumber).Item(0).ToString)
        Next
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
        'prenchimento do autocomplete huissier titre
        strSQL = "SELECT DISTINCT T_Huissiers.Huissier_titre " & _
                 "FROM T_Huissiers " & _
                 "ORDER BY T_Huissiers.Huissier_titre"
        ObjetConnection = New SqlConnection()
        ObjetConnection.ConnectionString = PCEConn
        ObjetConnection.Open()
        ObjetCommand = New SqlCommand(strSQL)
        MsgBox(strSQL)
        ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "T_Huissiers")
        ObjetDataTable = ObjetDataSet.Tables("T_Huissiers")
        For i = 0 To ObjetDataTable.Rows.Count - 1
            RowNumber = i
            txtHuissierTitre.AutoCompleteCustomSource.Add(ObjetDataTable.Rows(RowNumber).Item(0).ToString)
            MsgBox(txtHuissierTitre.AutoCompleteCustomSource.Item(i))
        Next
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing

Quelqu'un aurait quelque idée?
Merci d'avance

27/03/2009, 20h23
olsimare

Bonjour.

Ajoute un ObjetDataSet = Nothing entre les deux.

Je pense que tel que tu le fais, le 2éme Fill utilise le mappage issue du premier et de ce fait ne charge rien de plus (le nom de la table est la même et elle existe déjà dans le jeu de tables du dataset).

Ceci étant dit, évite de mettre du code d'accés à la base "un peu n'importe où". Je te conseillerai au minimum de créer un classe "Huissier" pour encapsuler les accés...

Cdt.

Citation:

Envoyé par olsimare

Ajoute un ObjetDataSet = Nothing entre les deux.

Euh... si tu fais ça tu vas avoir une belle NullReferenceException...
Il suffirait de faire un Clear sur la DataTable T_Huissiers

Mais de toutes façons, je ne comprends pas cette manie que tout le monde a de vouloir utiliser des DataSets partout, de préférence là où il n'y en a pas besoin :aie:.

Dans un cas comme ça, c'est parfaitement inutile, un DataReader aurait très bien fait l'affaire, avec un code beaucoup plus court et plus performant :
Code:

1 2 3 4 5 6 7 8 9 strSQL = "SELECT DISTINCT T_Huissiers.Huissier_nom " & _ "FROM T_Huissiers " & _ "ORDER BY T_Huissiers.Huissier_nom" ObjetCommand = New SqlCommand(strSQL) ObjetCommand.Connection() = ObjetConnection ObjetDataReader = ObjetCommand.ExecuteReader() While ObjetDataReader.Read() txtHuissierIntitule.AutoCompleteCustomSource.Add(ObjetDataReader.GetString(0)) End While
Et pareil pour la 2e textbox, avec la 2e requete... c'est quand même plus simple je trouve

28/03/2009, 13h59
olsimare

Bonjour.

Exact Tom, autant pour moi, en même temps aprés il suffisait de faire un new :mouarf: !

Bon, moi ce qui me choque le plus c'est des ordres sql qui traînent un peu partout.

A+ Tom.
Cdt.
30/03/2009, 20h46
Marc_27

Merci olsimare et tomlev.

J'ai eu que me dédier à un autre projet pour le moment (en vb aussi ;)), mais lorsque je reviens à celle le je pense que je vais aller pour la méthode du Data Reader.

Je vous remercie encore une fois et surement à la prochaine!
:king: