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
|
<WebMethod()> _
Public Function utilconnecte()
Dim lesconnectes As New Collection
Dim macommand As SqlClient.SqlCommand
Dim reader As SqlClient.SqlDataReader
Dim sql As String
Dim connect As String
connect = "Data Source=pc-blop;Initial Catalog=chat;Integrated Security=false;User ID=webservice;Password=service"
Dim connexion As New SqlClient.SqlConnection(connect)
sql = "select pseudo_utilisateur from utilisateur where connecte = 1"
Try
macommand = New SqlClient.SqlCommand(sql, connexion)
connexion.Open()
reader = macommand.ExecuteReader
While reader.Read()
lesconnectes.Add((reader("pseudo_utilisateur")))
End While
Catch ex As Exception
lesconnectes.Add(ex.Message)
End Try
connexion.Close()
Return lesconnectes
End Function |
Partager