defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart
Imports Telerik.WebControls

Namespace Telerik.SpellExamplesVBNET.Programming.GridSpell


	'/ <summary>
	'/ Summary description for GridSpell.
	'/ </summary>

	Public Class GridSpell
		Inherits XhtmlPage
		Protected RadSpell1 As RadSpell
		Protected WithEvents MyDataGrid As DataGrid


		Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
			If Not Page.IsPostBack Then
				ReadAllRecords()
			End If
		End Sub	   'Page_Load

		Private Function CreateConnection() As OleDbConnection
			Dim connection As New OleDbConnection
			connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Request.MapPath("News.mdb") + ";User ID=;Password=;"
			connection.Open()
			Return connection
		End Function	   'CreateConnection


		Private Sub ReadAllRecords()
			Dim connection As OleDbConnection = CreateConnection()
			Dim command2 As New OleDbCommand("SELECT NewsID, NewsDate, NewsText FROM News", connection)
			MyDataGrid.DataSource = command2.ExecuteReader()
			MyDataGrid.DataBind()
			connection.Close()
		End Sub	   'ReadAllRecords


		Public Sub MyDataGrid_Edit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles MyDataGrid.EditCommand
			MyDataGrid.EditItemIndex = e.Item.ItemIndex
			ReadAllRecords()
		End Sub	   'MyDataGrid_Edit


		Public Sub MyDataGrid_Cancel(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles MyDataGrid.CancelCommand
			MyDataGrid.EditItemIndex = -1
			ReadAllRecords()
		End Sub	   'MyDataGrid_Cancel


		Public Sub MyDataGrid_Update(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles MyDataGrid.UpdateCommand
			Dim [text] As String = CType(e.Item.FindControl("textBox1"), TextBox).Text
			Dim itemID As String = CType(e.Item.FindControl("IdLabel"), Label).Text
			Dim connection As OleDbConnection = CreateConnection()
			Dim command As New OleDbCommand("UPDATE News SET NewsDate = Now(), NewsText = @content WHERE NewsID = @nid", connection)
			command.Parameters.Add("content", [text])
			command.Parameters.Add("nid", itemID)
			Try
				command.ExecuteNonQuery()
			Catch
				System.Diagnostics.Debug.Write("Can't update.")
			End Try
			connection.Close()
			MyDataGrid.EditItemIndex = -1
			ReadAllRecords()
		End Sub	   'MyDataGrid_Update


		Public Sub MyDataGrid_Delete(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles MyDataGrid.DeleteCommand
			Dim itemID As String = CType(e.Item.FindControl("IdLabel"), Label).Text
			Dim connection As OleDbConnection = CreateConnection()
			Dim com As New OleDbCommand("DELETE FROM News WHERE NewsID = @nid", connection)
			com.Parameters.Add("nid", itemID)
			com.ExecuteNonQuery()
			connection.Close()
			ReadAllRecords()
		End Sub	   'MyDataGrid_Delete



#Region "Web Form Designer generated code"

		Protected Overrides Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub	   'OnInit


		'/ <summary>
		'/ Required method for Designer support - do not modify
		'/ the contents of this method with the code editor.
		'/ </summary>
		Private Sub InitializeComponent()
		End Sub	   'InitializeComponent

#End Region
	End Class	'GridSpell

End Namespace