vb.net2003中,利用datagrid更新数据(原创)

运行环境说明: Windows 2000 Advanced Server +VB.NET2003+MS SQL SERVER 2000

第 1 部份 建立数据库 student, 建立表 stuinf( 有两种方式 )

1.1 方式一:用查询分析器建库,语句如下:

use master

go

if exists (select * from dbo.sysdatabases where name = 'student')

drop database student

go

create database student

go

use student

go

CREATE TABLE stuinf

(stuno varchar(20) PRIMARY KEY,

stuname varchar(20) NOT NULL,

)

1.2 方式二:也可以在企业管理器里面直接建立名为 student 的数据库,然后建立名

为 stuinf 的表,表中有 2 个字段 :stuno 、 stuname

字段 数据类型 长度 说明

stuno varchar 20 主键;学生学号

stuname varchar 20 学生姓名

第 2 部份 窗体设计

2.1 打开 Miscrosoft Visual Studio.NET, 选择新建项目,在项目类型中选择 Visual Basic 项目,在模板中选择 Windows 应用程序,在名称中输入 frmupdate ,选择保存位置。再点击确定,打开设计窗口,向窗体中添加一个 DataGrid 控件和 Button 控件。 Datagrid 控件为“自动套用格式( A )”中的“彩色型 2 ” ;设置 Button 属性, Button.text= 更新数据。

第 3 部份 代码

Imports System.Data.SqlClient ' 引用类 '

Public Class Form1

Inherits System.Windows.Forms.Form

Dim sqlconn As New

SqlClient.SqlConnection("Server=localhost;DataBase=student;integrated security=true;") ' 定义 sqlconn 为 SqlConnection 类一个连接

Dim adapter As SqlDataAdapter ' 定义数据适配器 '

Dim ds As DataSet ' 定义数据集 '

' 窗体代码略

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

'select 语句中一定要包含主键字段,否则无法更新;在表 stuinf 中,字段 stuno 是主键

adapter = New SqlDataAdapter("select stuno' 学号 ',stuname' 姓名 ' from stuinf", sqlconn)

ds = New DataSet

adapter.Fill(ds, "student") ' 往适配器中添加数据集,表名为 student

DataGrid1.SetDataBinding(ds, "student") ' 把 datagrid 控件绑定数据集

Catch sqlExc As Exception ' 异常处理

MessageBox.Show(sqlExc.ToString, "SQL 异常错误 !", _

MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim cBuilder As New SqlCommandBuilder(adapter) ' 创建一个 CommandBuilder 对象

adapter.UpdateCommand = cBuilder.GetUpdateCommand ' 为数据适配器 adapter 的更新命令赋值

adapter.Update(ds, "student") ' 更新数据集

ds.Clear() ' 清空当前数据集

adapter.Fill(ds, "student") ' 重新绑定数据适配器

DataGrid1.SetDataBinding(ds, "student") ' 在 datagrid 中显示更新后数据

MsgBox(" 更新数据成功! ", MsgBoxStyle.OKOnly, " 请确认 ") ' 提示更新数据成功

Catch sqlExc As Exception ' 异常处理

MessageBox.Show(sqlExc.ToString, "SQL 异常错误 !", _

MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

End Sub

End Class

第 4 部份 效果图

当有相同的学号时,异常处理程序提示不能插入重复值,更新不成功。如下图:

第 5 部份 总结

5.1 填充的数据集中的数据表一定要包含原表 ( 要更新的表 ) 的主键,即 select 语句中一定要包含主键字段,否则无法更新;

5.2 commandbuilder 类只能在 datatable 映射到单个数据表的时候使用。这意味着如果数据库查询的是两个或者更多的表的联接,就不能使用 commandbuilder 类;

5.3 在本例子中,字段 stuno' 学号 ' 是主键,假如用户更改学号,导致有两个一样的学号时,异常处理会提示“不能插入重复值”,这时更新失败。

第 6 部份 感慨

6.1 我参考了网上的部分资料,在此深表感谢提供相关资料的网友。

6.2 感谢网友的支持,给我回帖。原帖为:

http://community.csdn.net/Expert/topic/4150/4150525.xml?temp=.1751215

6.3 在我急需解决这个问题,着急的时候,得到了高手的提示,终于解决了问题,真的有一种“山穷水尽疑无路,柳暗花明又一村”的感觉,顿时豁然开朗了。真的不知道该怎么感谢你们这些不曾谋面的朋友!

6.4 我发这篇文章的目的是希望能够起到一个抛砖引玉的作用,望各路高手不吝赐教。

6.5 如有哪位网友需要我做的这个例子,可以给我留下邮箱号,我会尽最快的速度发到你们的邮箱里。

Published At
Categories with Web编程
Tagged with
comments powered by Disqus