<script language="VB" runat="server">
dim MyConnection as OleDbConnection
dim cmdSelect as OleDbCommand
dim dtrReader as OleDbDataReader
Sub Page_load(sender as object,e as Eventargs)
MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\nhonline\datagrid\kk.mdb")
if not IsPostBack() then
Mydatagrid_DataBind()
end if
End Sub
Sub Mydatagrid_DataBind()
Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("select * from [class]", MyConnection)
Dim DS As DataSet = new DataSet()
MyCommand.Fill(DS,"board")
BigClassList.DataSource=DS.Tables("board").DefaultView
BigClassList.DataBind()
End Sub
Function SmallClass(BigClassID) as DataTable
dim SmallClassData as DataSet =new DataSet()
MyConnection.Open()
dim DataAdapter as OleDbDataAdapter = new OleDbDataAdapter("SELECT * FROM [board] WHERE class="& BigClassID &"",MyConnection)
DataAdapter.Fill(SmallClassData,"SmallClassData")
MyConnection.Close()
return SmallClassData.Tables("SmallClassData")
End Function