I am trying to use the Class Class1 in a .Net page, but the error says that Class1 is not defined. Any help appreciated.
Here's the Code for the class:
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Namespace ClassNow
Public Class class1
Public Function GETData() As DataTable
Dim sConnStr As String = ConfigurationSettings.AppSettings("ConnectionString"
Dim objConn As New OleDbConnection(sConnStr)
objConn.Open()
Const strSQL As String = "SELECT ID FROM TBL_NAme"
Dim oledbAdapter1 As OleDbDataAdapter
oledbAdapter1 = New OleDbDataAdapter(strSQL, objConn)
Dim dsNew As New DataSet
oledbAdapter1.Fill(dsNew, "dsNew"
GETData = dsNew.Tables(0)
End Function
End Class
End Namespace
The code in the aspx page is:-
<% @ Import Namespace="System.Data" %>
<% @ Import NameSpace="ClassNow" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
'Create a connection
If Not Page.IsPostBack then
dim newclass as new Class1
lstDepartments.DataSource = newClass.GetDAta
lstDepartments.DataBind()
lstDepartments.Items.Insert(0, new ListItem("-----Select Data----"
)
End if
End Sub
</Script>
Here's the Code for the class:
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Namespace ClassNow
Public Class class1
Public Function GETData() As DataTable
Dim sConnStr As String = ConfigurationSettings.AppSettings("ConnectionString"
Dim objConn As New OleDbConnection(sConnStr)
objConn.Open()
Const strSQL As String = "SELECT ID FROM TBL_NAme"
Dim oledbAdapter1 As OleDbDataAdapter
oledbAdapter1 = New OleDbDataAdapter(strSQL, objConn)
Dim dsNew As New DataSet
oledbAdapter1.Fill(dsNew, "dsNew"
GETData = dsNew.Tables(0)
End Function
End Class
End Namespace
The code in the aspx page is:-
<% @ Import Namespace="System.Data" %>
<% @ Import NameSpace="ClassNow" %>
<html>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
'Create a connection
If Not Page.IsPostBack then
dim newclass as new Class1
lstDepartments.DataSource = newClass.GetDAta
lstDepartments.DataBind()
lstDepartments.Items.Insert(0, new ListItem("-----Select Data----"
End if
End Sub
</Script>