defaultvb.aspx.vb

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

Imports System
Imports System.Data.OleDb
Imports System.Web.UI.WebControls
Imports Telerik.WebControls


Namespace Telerik.EditorExamplesVBNET.Editor.Examples.DatagridEdit
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected MyDataGrid As DataGrid
      
      
      Private Sub Page_Load(sender As Object, 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((Me.TemplateSourceDirectory + "\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
      
      
      Protected Sub MyDataGrid_Edit(sender As Object, e As DataGridCommandEventArgs)
         MyDataGrid.EditItemIndex = e.Item.ItemIndex
         ReadAllRecords()
      End Sub 'MyDataGrid_Edit
      
      
      Protected Sub MyDataGrid_Cancel(sender As Object, e As DataGridCommandEventArgs)
         MyDataGrid.EditItemIndex = - 1
         ReadAllRecords()
      End Sub 'MyDataGrid_Cancel
      
      
      Protected Sub MyDataGrid_Update(sender As Object, e As DataGridCommandEventArgs)
         Dim html As String = CType(e.Item.FindControl("Editor"), RadEditor).Html
         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", html)
         command.Parameters.Add("nid", itemID)
         Try
            command.ExecuteNonQuery()
         Catch ex As Exception
         End Try
         connection.Close()
         MyDataGrid.EditItemIndex = - 1
         ReadAllRecords()
      End Sub 'MyDataGrid_Update
      
      
      Protected Sub MyDataGrid_Delete(sender As Object, e As DataGridCommandEventArgs)
         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
      Protected Overrides Sub OnInit(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 Class 'DefaultVB 
End Namespace 'Telerik.EditorExamplesVBNET.Editor.Examples.DatagridEdit