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

上一个：VB.Net编程入门之Hello World(一)
下一个：vb.net实现一个自定义类数组的排序