中央广播电视大学 课件 使用ADO.NET访问数据（3）_Web数据库设计与应用第六章3

第6讲使用ADO.NET访问数据(3) VB.NET ADO.NET ■1增加数据 Web数据库 ■2修改数据 设计与应用 ■3删除数据 ■4使用模板 ASP.NET Visual Studio.NET

Use Visual Studio .NET ASP.NET Visual Studio.NET ADO.NET VB.NET Web数据库 设计与应用 第6讲 使用ADO.NET访问数据(3) ◼ 1 增加数据 ◼ 2 修改数据 ◼ 3 删除数据 ◼ 4 使用模板

案例6-12使用DataGrid增加数据 6.4.1增加数据 ■步骤1：增加一个表Address ■步骤2：设计界面 ■步骤3：检索数据的代码 ■步骤4：增加记录的代码 ■步骤5：添加错误处理代码

案例6-12 使用DataGrid增加数据 6.4.1 增加数据 ◼ 步骤1：增加一个表Address ◼ 步骤2：设计界面 ◼ 步骤3：检索数据的代码 ◼ 步骤4：增加记录的代码 ◼ 步骤5：添加错误处理代码

步骤1：增加一个表Address 服务器资源管理器 起始页dbo.Table1:NETSDK.pubs)* 团8自 列名 数据类型 长度允许空 田服务器 id int 4 白争数据连接 varchar 20 phone 新建表 国回刷新0 中 中国合屏性) jobs 由-LookupCodes 国pub_info 甲-☐publishers 视图 每存储过程 个函数 色服务器资源管理器犬工具箱

步骤1：增加一个表Address Create Table address( id int PRIMARY KEY CLUSTERED, name varchar(20), phone varchar(30), address varchar(200) )

步骤2：设计界面 ch6-Microsoft Visual Basic .NET[]-DataGrid2.aspx 文件)编指您)视图)项目)生成)调试血)数据A)格式@)表L)插入)框架⑧) 工具)窗口Y)帮助D 圖®画立， 习”f同Debug 起始页DataGrid2.aspx* 4x Coluan0Coluanl Column2 添加新的名单： abc abc abc 编号： abc abc abc abc 姓名 abc 电话： abc abc abc 地址： 添加 口设计回HM 就储

步骤2：设计界面

步骤3：检索数据的代码 Dim conn As New SqlConnection("server=localhost\netsdk; database=pubs;Trusted_Connection=Yes") Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load If Not Page.IsPostBack Then Bind_Data() End If End Sub Private Sub Bind_Data() Dim da As SqlDataAdapter da New SqlDataAdapter("SELECT FROM address "conn) Dim ds As DataSet New DataSet() da.Fill(ds) DataGrid1.DataSource ds DataGrid1.DataBind( End Sub

步骤3：检索数据的代码 Dim conn As New SqlConnection(“server=localhost\netsdk; database=pubs;Trusted_Connection=Yes") Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not Page.IsPostBack Then Bind_Data() End If End Sub Private Sub Bind_Data() Dim da As SqlDataAdapter da = New SqlDataAdapter("SELECT * FROM address ", conn) Dim ds As DataSet = New DataSet() da.Fill(ds) DataGrid1.DataSource = ds DataGrid1.DataBind() End Sub

步骤4：增加记录的代码 Private Sub Add_One_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles Add_Author.Click ·创建用于添加记录的SQL命令串 Dim InsertCmd As String "insert into address (id,name,phone,address)" &"values (@Id,@name,@Phone, @address)" Dim MyCmd As SqlCommand New SqlCommand(InsertCmd,conn) ·添加命令参数并赋值 MyCmd.Parameters.Add("@id",SqlDbType.NVarChar,11).Value=sno.Text MyCmd.Parameters.Add ("@name" SqlDbType.NVarChar,40).Value sname.Text MyCmd.Parameters.Add ("@Phone" SqlDbType.NChar,12).Value phone.Text MyCmd.Parameters.Add("@Address",SqlDbType.NVarChar,40).Value address.Text 执行添加记录的数据库操作 conn.Open( MyCmd.ExecuteNonQuery() Bind_Data() End Sub

步骤4：增加记录的代码 Private Sub Add_One_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Add_Author.Click '创建用于添加记录的SQL命令串 Dim InsertCmd As String = "insert into address (id, name, phone, address)" _ & " values (@Id, @name,@Phone, @address)" Dim MyCmd As SqlCommand = New SqlCommand(InsertCmd, conn) '添加命令参数并赋值 MyCmd.Parameters.Add("@id", SqlDbType.NVarChar, 11).Value = sno.Text MyCmd.Parameters.Add("@name", SqlDbType.NVarChar, 40).Value = sname.Text MyCmd.Parameters.Add("@Phone", SqlDbType.NChar, 12).Value = phone.Text MyCmd.Parameters.Add("@Address", SqlDbType.NVarChar, 40).Value = address.Text '执行添加记录的数据库操作 conn.Open() MyCmd.ExecuteNonQuery() Bind_Data() End Sub

运行 DataGrid_1-Microsoft Internet Explorer 回x 文件E编辑（但）查看（心收藏（色）工具（①帮助山 田 ←后退·→，⑧团备@搜索国收藏夹分媒体的卧~昌☒目秒©國④)” 地址(htp:://ocahost/WebApplication1/DataGrid2.aspx 习转到链接” idnamephone address 添加渐的名单： 印伦010-69759亚适衬阳光广杨时 1 编号：3 2王春凤010-66490540北京复兴门中央电大 姓名：雀林 3崔林010-66490540北京复兴门中央电大 电话：010-66490540 地址：北京复兴门中央电大 添加 已添加记录 崔林 ③完毕 本地Intranet

运行

步骤5：添加错误处理代码 VEvemtArgn uthr Cck '检查“编号”、“姓名”或“电话”是否录入 语S先aioe9当mie%8t,"Tnen Byval e As System.EventArgs)Handles Add_Author.Click Try MyCmd.ExecuteNonQuery()'执行添加记录的数据库操作 Message.InnerHtml="已添加记录"&sname.Text Catch Exp As SqlException If Exp.Number 2627 Then Message.InnerHtml="错误：已存在具有相同主键的记录' Else Message.InnerHtml="错误：未能添加记录，请确保正确填写了字段" End If Message.Style("color")="red' End Try Bind_Data() End Sub

步骤5：添加错误处理代码 Private Sub Add_One_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Add_Author.Click '检查“编号”、“姓名”或“电话”是否录入 If sno.Text = "" Or sname.Text = "" Or phone.Text = "" Then Message.InnerHtml = "错误：“编号”、“姓名”或“电话”不允许使用空值" Message.Style("color") = "red" Bind_Data() Return End If …… End Sub Private Sub Add_One_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Add_Author.Click …… Try MyCmd.ExecuteNonQuery()'执行添加记录的数据库操作 Message.InnerHtml = "已添加记录" & sname.Text Catch Exp As SqlException If Exp.Number = 2627 Then Message.InnerHtml = "错误：已存在具有相同主键的记录" Else Message.InnerHtml = "错误：未能添加记录，请确保正确填写了字段" End If Message.Style("color") = "red" End Try Bind_Data() End Sub

第6讲使用AD0.NET访问数据(3) VB.NET ADO.NET ■1增加数据 Web数据库 ■2修改数据 设计与应用 ■3删除数据 ■4使用模板 ASP.NET Visual Studio.NET

Use Visual Studio .NET ASP.NET Visual Studio.NET ADO.NET VB.NET Web数据库 设计与应用 第6讲 使用ADO.NET访问数据(3) ◼ 1 增加数据 ◼ 2 修改数据 ◼ 3 删除数据 ◼ 4 使用模板

案例6-13使用DataGrid修改数据 6.4.2使用DataGrid控件修改数据 ■步骤1：为DataGrid:控件添加编辑功能 ■步骤2：添加编辑和取消的代码 ■步骤3：实现数据的更新 ■步骤4：用图像代替编辑按钮

案例6-13 使用DataGrid修改数据 ◼ 步骤1：为DataGrid控件添加编辑功能 ◼ 步骤2：添加编辑和取消的代码 ◼ 步骤3：实现数据的更新 ◼ 步骤4：用图像代替编辑按钮 6.4.2 使用DataGrid 控件修改数据