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