test


This is a sample blog entry using a new tool, called VisualBlogger.





1Public Class Employee

2 Public Function GetEmployees() As DataSet

3 Dim ds As New DataSet

4 Dim oCon As New SqlConnection(ConfigurationSettings.ConnectionStrings(“NorthwindConnection”).ConnectionString)

5 Dim da As New SqlDataAdapter(“Select * from Employees”, oCon)

6 da.Fill(ds, “Employee”)

7 Return ds

8 End Function

9End Class

 

Comments (0)