运行环境说明：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 异常错误!", _

   &nbs

[1] [2]  下一页