Typo With DataList

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Can someone please help me? It is obvious that I have a typo somewhere in my data list.

I'm getting the following error message: Compiler Error Message: BC30002: Type 'DataSet' is not defined.

Source Error:

Line 149:                 Dim strSQL as String                 
Line 150:                 Dim dtaTestimonials as New System.Data.SqlClient.SQLDataAdapter()   
Line 151:                 Dim dtsTestimonials As New DataSet() 

  '--------------------------------------------- 
        ' name: BindDataList() 
        '--------------------------------------------- 
        Sub BindDataList() 

                 Dim strConnect As String 
                 Dim objConnect As New System.Data.SqlClient.SQLConnection 
                 Dim objCommand As New System.Data.SqlClient.SQLCommand
                 Dim strSQL as  String               &nbs p; 
                 Dim dtaTestimonials as New System.Data.SqlClient.SQLDataAdapter()   
                 Dim dtsTestimonials As New DataSet() 
                'Get connection string from Web.Config
                strConnect = ConfigurationSettings.AppSettings("ConnectionString")
                objConnect = New System.Data.SqlClient.SQLConnection(strConnect)

                objConnect.Open() 

        'Build SQL string 
        strSQL = "Select * From VisitorTestimonial where Approve = 0 Order by DateSigned desc"  

                 'Set the Command Object properties 
                 objCommand.Connection = objConnect 
                 objCommand.CommandType = CommandType.Text 
                 objCommand.CommandText = strSQL 
                 'Create a new DataAdapter object 
                 dtaTestimonials.SelectCommand = objCommand 
                 'Get the data from the database and 
                 'put it into a DataTable object named dttTestimonials in the DataSet object 
                 dtaTestimonials.Fill(dtsTestimonials, "dttTestimonials") 
                 'Set the DataSource property of the DataList 
                 dtlTestimonials.DataSource = dtsTestimonials 

                 'Bind all the controls on the page 
                 dtlTestimonials.DataBind() 
        End Sub 