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

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

 use master

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

 gocreate database student

 gouse student

 goCREATE 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 '异常处理     &nbs