运行环境说明: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] 下一页 [系统软件]WindowsServer2003中AD数据库的备份与恢复 [VB.NET程序]VB.NET中关于DataGrid颜色的自定义。 [VB.NET程序]vb.net读写xml(2)--实现datagrid与xml的沟通(原创… [VB.NET程序]根据表格内容,自动调整VB.NET中Datagrid控件单元… [VB.NET程序][原创]VB.net技巧之六------DataGrid模板列中的超… [VB.NET程序][原创]VB.net技巧之五------在DataGrid中显示图片 [Web开发]用Javascript模仿DataGrid [Web开发]Binding a DataGrid to an ADO Recordset [Web开发]动态的管理ASP.NET DataGrid数据列 [Web开发]ADO在vb.net中的使用(与datagrid结合)
|