Bonjour.

J'ai un petit soucis avec l'autocomplete d'ajax :

Je souhaite faire un autocomplete avec les control toolkit asp.net...en quand je transpose les exemples du site [ Lien ] ecrit en c# pas de soucis l'autocomplete mais mon site est écris en vb donc je code en vb...

alors en vb ça fonctionne pas : voila mon code

le webservice :

Imports

System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:=

"http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Public

Class Autocomplete
Inherits System.Web.Services.WebService
PrivateShared AutoComplete AsString()

<WebMethod()> _

PublicFunction GetCompletionList(ByVal prefixText AsString, ByVal count AsInteger) AsString()
Dim MyConnection As Data.OleDb.OleDbConnection
Dim myReader As Data.OleDb.OleDbDataReader
Dim StrSQL AsString
myConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & Server.MapPath("base\base.mdb") & ";")
StrSQL = "Select codalph From PcExo"
myConnection.Open()
Dim mycommand = New Data.OleDb.OleDbCommand(strSQL, myConnection)
myReader = mycommand.ExecuteReader
Dim i AsInteger = 0
Dim suggestions AsString()

While myReader.Read
         suggestions(i) = (myReader.GetValue(0).tostring)
EndWhile

myReader.close()

Return suggestions
EndFunction

End

Class

Si quelqu'un c'est pourquoi ça fonctionne pas merci!

As tu une erreur ? que se passe t'il exactement ? est-ce que la méthode retourne bien quelque chose

peux tu nous donner le code C# correspondant ? pour qu'on puisse voir l'erreur s'il y a erreur :p

---

Cyril - MSP - MCPD ASP.net & MCTS SQL

Public Function GetCompletionList( ByVal prefixText As String , ByVal count As Integer ) As String ()

If count = 0 Then
   count = 10
End If

Dim suggestions As New List( Of String )
D im myConnection As New Data.OleDb.OleDbConnection
myConnection = New Data.OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & Server.MapPath( "..\base\base.mdb" ) & ";" )

Dim myCommand As Data.OleDb.OleDbCommand
Dim strSql As String = "Select Codalph From PcExo"

myconnection.open()

Dim MyReader As Data.OleDb.OleDbDataReader
MyReader = myCommand.ExecuteReader()

'Do While myReader.Read

'suggestions.Add(prefixText & "abc")
'Loop

For i As Integer = 0 To count
suggestions.Add(prefixText & "abc" )
Next

MyReader.Close()
myConnection.Close()

Return suggestions.ToArray

End Function

Comme ça fonctionne parfaitement....
Si je décommente Do While...Loop et que je commente mon For ça m'affiche rien du du tout et rien ne se passe je n'ai aucun msg d'erreur.

Le code C# était le code utilisé dans les exemples Ajax de Microsoft, je l'ai transposé en vb et ça fonctionne aussi.

Ben ca veut dire que ta requete ne te retourne rien ... met un point d'arret et tu verras que myReader.HasRow te retourne false ... :)

---

Cyril - MSP - MCPD ASP.net & MCTS SQL

Peut etre...

Mais ce que je comprends c'est que ma requete renvoie bien un resultat sur mon access!

Mais j'essaierai demain et je te tiens informé.

Merci en tout cas

Bon j'ai un peu honte...mon chemin de bdd n'était pas bon! désolé!

Maintenant ça retourne bien!

Mais toujours dans le meme soucis...dans mon Autocomplete je fais une requete qui dois récupérer tous les codes de chaque utilisateur.

Cepedant comment indiquer dans ma requete que je veux les codes de cet utilisateur la!

Ma requete actuelle :

StrSQL =

"Select codalph From PcExo Where LEFT(codalph," & nb & ") = '" & prefixText _
& "' AND exercice = (Select MAX(Exercice) From Pcexo)"

Ma requete désiré:

StrSQL = "Select codalph From PcExo Where LEFT(codalph," & nb & ") = '" & prefixText _
& "' AND code_adherent="& codeadherent &" AND exercice = (Select MAX(Exercice) From Pcexo)"

Comment je passe en paramétre la variable codeadherent, qui elle est connu dans la page ou il y a le controle Autocomplete?

Merci