分享
 
 
 

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

王朝c#·作者佚名  2006-01-31
窄屏简体版  字體: |||超大  

运行环境说明: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如有哪位网友需要我做的这个例子,可以给我留下邮箱号,我会尽最快的速度发到你们的邮箱里。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有