Imports System.Web.Services
Imports System.Data.SqlClient
<WebService(Namespace:="http://website.co.uk/")> Public Class TeamList
#Region " Web Services Designer Generated Code"
#End Region
<WebMethod()> Public Function TeamDisplay()
'Connect to DB and get the XML code for the teams
Dim conn As SqlConnection
conn = New SqlConnection("Data Source=localhost;Initial Catalog=DatabaseTest;Persist Security Info=True;User ID=user;Password=password")
Dim cmd As SqlCommand
cmd = New SqlCommand("select Team from CalenderTeam", conn)
Try
conn.Open()
Dim rdr As SqlDataReader
rdr = cmd.ExecuteReader
If rdr.HasRows Then
While rdr.Read()
Return Display1
End While
Else
End If
Finally
conn.Close()
End Try
End Function
End Class
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE