<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.SqlClient" %>
Data Reader
Data Reader
Total Products listed =
Sub Page_Load(Source As Object, E As EventArgs)
Dim strConnection As String = "Data Source=whsql-v08.prod.mesa1.secureserver.net;Initial Catalog=DB_49907;User ID=rntsoftuser;Password='password';"
Dim objConnection As New SqlConnection(strConnection)
objConnection.Open()
Dim strSQLcount As String
strSQLcount = "SELECT COUNT(FirstName) FROM Employee"
Dim objCommand As New SqlCommand(strSQLcount, objConnection)
Dim objReader As SqlDataReader = objCommand.ExecuteReader()
dgCount.DataSource = objReader
dgCount.DataBind()
objReader.Close()
Dim strProcName As String
strProcName = "SELECT * FROM Employee"
objCommand.CommandText = strProcName
objReader = objCommand.ExecuteReader()
dgData.DataSource = objReader
dgData.DataBind()
objConnection.Close()
End Sub