[转贴]vb.net2003中,利用datagrid更新数据
2005-07-24 20:59
471 查看
运行环境说明: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'学号'是主键,假如用户更改学号,导致有两个一样的学号时,异常处理会提示“不能插入重复值”,这时更新失败。
第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'学号'是主键,假如用户更改学号,导致有两个一样的学号时,异常处理会提示“不能插入重复值”,这时更新失败。
相关文章推荐
- vb.net2003中,利用datagrid更新数据(原创)
- MSSQL 利用数据库复制技术,实现数据同步更新
- ASP.NET基础教程-DataGrid表格控件-利用模板列中显示检索的数据
- [borland eco 技术]experssionhandle数据源,在datagrid中利用checkbox显示并编辑boolean类型数据
- Flex利用自定义事件使用弹出窗口为DataGrid添加新数据
- listBox利用dataTable的数据更新
- 【转贴】datagrid数据导出到excel文件给客户端下载的几种方法
- 利用XMLHTTP无刷新自动实时更新数据
- 利用数据库复制技术 实现数据同步更新
- 利用XMLHTTP无刷新自动实时更新数据.
- [置顶] 【python 存储过程】python利用mysql存储过程更新数据
- 利用XMLHTTP无刷新自动实时更新数据. wanghr100 [原作]
- DataGrid更新不了数据的问题!
- 利用DBLink创建数据库数据定时更新或同步
- 利用ligerUI实现类似数据列表过滤展示,类似JQuery datatable和某些框架的dataGrid
- 利用数据库复制技术 实现数据同步更新
- 利用ASP.NET DataGrid显示主次关系的数据
- 利用带关联子查询Update语句更新数据
- (原创)方便的使用单击和双击更新DataGrid中的数据的例子
- 利用XMLHTTP无刷新自动实时更新数据