masters2.vb

聊天 聊天 聊天 聊天 聊天 聊天

Option Strict Off
Imports System
Imports System.Collections
Imports System.Text
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI
Imports System.Web.UI.WebControls

Public Class BaseClass
	Inherits System.Web.UI.Page
	protected Grid1 as DataGrid
	Protected Message as label
	Dim myConnection As OleDbConnection
	Dim myCommand    As OleDbDataAdapter
	Dim ds           As New DataSet
	Dim ConnStr      As String
	Dim SQL          As String
	Sub Page_Load(Source As Object, E As EventArgs) 
	   ConnStr = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=ASPNET;User ID=sa;"
	   myConnection = New OleDbConnection(ConnStr)      
	    if NOT (isPostBack)
		rebind
	    end if
	End Sub

	Sub ReBind()
		SQL = "select  m.*, g.code_display as category "
		SQL = SQL + "from masters m,  groups g "
		SQL = SQL + " where m.code_category = g.code_value"
		myCommand = New OleDbDataAdapter(SQL, myConnection)
		'use Fill method of DataSetCommand to populate dataset
		myCommand.Fill(ds, "masters")
		'Binding a Grid	
		Grid1.DataSource=ds.Tables("masters").DefaultView
		Grid1.DataBind()
	End Sub
	'-------------- New Events (additions to Masters1.vb)---------------------------
	Sub Grid1_Edit(Sender As Object, E As DataGridCommandEventArgs)
		Grid1.EditItemIndex = E.Item.ItemIndex
		ReBind()
	End Sub
	Sub Grid1_Cancel(Sender As Object, E As DataGridCommandEventArgs)
		Grid1.EditItemIndex = -1
		ReBind()
	End Sub
	Sub RunSql(sql as string)
		'This is a placeholder for the functionaity we will code in Masters3.vb
		response.write(sql)
	End sub
End Class