a sp实验报告四.docVIP

ASP.NET程序设计 实验报告四 实验题目：数据源控件与数据绑定控件 指导老师：马浩 专业班级：计算机科学与技术系1105班 姓 名：王媛（2011100529） 2014年5月24日 一、实验题目 数据源的控件与数据绑定控件 二、实验目的 掌握在SQL Server 2005中创建数据的创建、备份。. 掌握数据源控件sqldatasource的设置和使用。 3、掌握常用数据绑定控件gridview、formview、listview的使用。 4、掌握以上控件实现对数据库的增删改查。 三、实验代码及截图 实验代码： 1、idviewtest.aspx ports System.Data Imports System.Data.SqlClient Partial Class _1101_gridviewtest Inherits System.Web.UI.Page Dim conn As SqlConnection Dim connstr As String = Data Source=.;Initial Catalog=aspnet;Integrated Security=SSPI;Pooling=False Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then ViewState(sortorder) = id ViewState(orderdire) = asc bind() End If End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect(adduser.aspx) End Sub Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting Dim conn As New SqlConnection() conn = New SqlConnection(connstr) Dim cmd As New SqlCommand() conn.ConnectionString = Data Source=.;Initial Catalog=aspnet;Integrated Security=SSPI;Pooling=False Dim sqlstr = delete from student where id= GridView1.DataKeys(e.RowIndex).Value.ToString() conn.Open() cmd.Connection = conn cmd.CommandText = sqlstr cmd.ExecuteNonQuery() conn.Close() bind() End Sub Public Sub bind() Dim conn As New SqlConnection() conn = New SqlConnection(connstr) Dim sqlstr As String = select * from student conn.ConnectionString = Data Source=.;Initial Catalog=aspnet;Integrated Security=SSPI;Pooling=False Dim ds As New DataSet() conn.Open() Dim objadapter As New SqlDataAdapter(sqlstr, conn) objadapter.Fill(ds, s