Discussion :

[Marc_27]

Bonjour.

J'essaye de faire une TextBox avec une source AutoComplete.
J'ai decidé d'utiliser le AJAX ToolKit - AutoCompleteExtender, mais j'essaye de le faire marcher depuis deux journnés et rien!


Voilà mes codes:
Dans le ContentPlaceHolder de ma page aspx:

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
<asp:ScriptManager ID="ScriptManager1" runat="server">
    <Services>
        <asp:ServiceReference Path="WebService1.asmx" />
    </Services>
</asp:ScriptManager>
 
<asp:TextBox ID="txtNom" runat="server" Width="224px"></asp:TextBox>
<cc1:AutoCompleteExtender 
                  runat="server" 
                  id="acNom" 
                  TargetControlID="txtNom"
                   ServiceMethod="GetCompletionList"
                   MinimumPrefixLength="1" 
                   ServicePath="WebService1.asmx"
                   EnableCaching="true"
                   CompletionSetCount="10">
</cc1:AutoCompleteExtender>

Dans le WebService1.asmx.vb:

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
    Public Function GetCompletionList()
        strSQL = "SELECT DISTINCT T_huissiers.Huissier_nom " & _
                 "FROM T_huissiers"
        Dim MyConnexion As OleDbConnection = New OleDbConnection(PCEConn)
        Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
        Dim Noms(0) As String
        Dim p As Integer = 0
        MyCommand.CommandText = strSQL
        MyConnexion.Open()
        Dim MyReader As OleDbDataReader = MyCommand.ExecuteReader()
        While MyReader.Read()
            ReDim Preserve Noms(p)
            Noms(p) = MyReader(0).ToString
            p = p + 1
        End While
        MyReader.Close()
        MyConnexion.Close()
        Return Noms
    End Function

Est-ce que quelqu'un pourrait maider svp?
Merci d'avance

[Marc_27]

Bon,
après beaucoup chercher, j'ai trouvé le bonheur:

Voilà le code qui marche:

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
    Public Function GetCompletionList(ByVal prefixText As String, ByVal count As Integer)
        Dim conn As New OleDbConnection(PCEConn)
        Dim mycommand As New OleDbCommand
        Dim rs As OleDbDataReader
        Dim items As New List(Of String)
        Dim strsql As String = "SELECT T_huissiers.Huissier_nom FROM T_huissiers WHERE Huissier_nom LIKE '" & Replace(prefixText, "'", "''") & "%' ORDER BY T_huissiers.Huissier_nom ASC"
        mycommand.Connection = conn
        mycommand.CommandText = strsql
        Try
            conn.Open()
            rs = mycommand.ExecuteReader
            If rs.HasRows Then
                Do While rs.Read
                    items.Add(rs("Huissier_nom"))
                Loop
            End If
        Catch ex As Exception
            items.Add(ex.ToString)
        Finally
            mycommand.Dispose()
            conn.Close()
            conn.Dispose()
        End Try
        Return items.ToArray
    End Function