做网站需要几个岗位,网站建设面包屑导航条,广州系统软件app开发公司,网站建设 四川vb.net教程https://www.xin3721.com/eschool/vbnetxin3721/ 关键词#xff1a;作者罗姗 众所周知#xff0c;VB.NET自身并不具备对数据库进行操作的功能#xff0c;它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和…vb.net教程https://www.xin3721.com/eschool/vbnetxin3721/ 关键词作者罗姗 众所周知VB.NET自身并不具备对数据库进行操作的功能它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中ADO.NET又是.NET FrameWork SDK中重要的组成部分。要了解VB.NET的数据库编程首先要明白ADO.NET的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍ADO.NET数据库访问对象以及VB.NET数据库编程基本方法。
一、ADO.NET数据库访问对象
(一)ADO.NET简介
ADO.NET是由微软Microsoft ActiveX Data Object(ADO)升级发展而来的。是在.NET中创建分布式数据共享程序的开发接口。ADO.NET的数据存取API提供两种数据访问方式分别用来识别并处理两种类型的数据源即SQL Server7.0(及更高的版本)和可以通过OLE DB进行访问的其他数据源。为此ADO.NET中包含了两个类库System.Data.SQL库可以直接连接到SQL Server的数据System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Access数据。
(二)ADO.NET的名称空间
ADO.NET是围绕System.Data基本名称空间设计其他名称空间都是从System.Data派生而来。它们使得ADO.NET不仅访问DataBase中的数据而且可以访问支持OLE DB的数据源。
当我们讨论ADO.NET时实际讨论的是System.Data和System.Data.OleDb名称空间。这两个空间的所有类几乎都可以支持所有类型的数据源中的数据。这里我们讨论与后文实例有关的类。即OleDbconnection、OleDbDataAdapter、DataSet和DataView。
上面列举的类中没有OleDb前缀的派生自System.Data空间有此前缀的派生自System.Data.OleDb空间。在使用中如果要引用OleDb前缀的类必须导入System.Data.OleDb名称空间。语法如下
Imports System.Data.OleDb
使用没有此前缀的类必须导入System.Data名称空间。语法如下
Imports System.Data
1.OleDbConnection类
OleDbConnection类提供了一个数据源连接。这个类的构造函数接受一个可选参数称为连接字符串。
(1)连接字符串
连接字符串本身由下表中列出的参数构成。(图)
我们来看一下如何在连接字符串上使用参数来初始化一个连接对象。
Dim objconnecttion as OleDbConnectionNew OleDbConnection(″ProviderSQLOLEDB;″″DataSourcelocalhost;Initial Catalogpubs;″″UserIDliuguo;Password1234;″)
上面的连接字符串使用SQLOLEDB提供者访问SQL Server数据库。Data Source参数指定数据库位于本地机器上Initial Catalog参数表示我们要访问的数据库名称是“pubs”。
(2)打开和关闭数据库
一旦用上面的方法初始化了一个连接对象就可以调用OleDbConnection类的任何方法来操作数据。其中打开与关闭数据库方法是任何操作的基本环节。
打开数据库objConnection.Open()
关闭数据库objConnection.Close()
OleDbConnection类的其他方法与属性请查阅相关手册。
2.OleDbDataAdapter类
OleDbDataAdapter类可以在所有OLE DB数据源中读写数据并且可以设置为包含要执行的SQL语句或者存储过程名。OleDbDataAdapter类并不真正存储任何数据而是作为DataSet类和数据库之间的桥梁。
(1)SelectCommand属性
要从数据库中读取数据必须首先设置OleDbDataAdapter类的SelectCommand属性。该属性用来指定选取哪些数据以及如何选取数据。
(2)Fill方法
Fill方法用来完成向DataSet对象中填充由OleDbDataAdapter对象从数据库中检索的数据。其语法如下
Fill(DataSet,String)
其中DataSet参数用于指定一个有效的DataSet对象将用数据进行填充String参数指定了用于表映射的表名称。
(3)DataView类
DataView类一般用于从DataSet类中排序、过滤、查找、编辑和导航数据。与DataSet一样其内部数据使用的是DataTable对象。DataView类是DataTable对象的一个自定义视图。同时DataView中的数据又独立于DataSet中DataTable包含的数据所以可以对数据进行操作而又不会影响DataSet中的数据。其主要方法与属性如下
Sort方法对DataView包含的数据进行排序。语法如下
objDataView.Sort ″排序条件″
Find方法在DataView搜索指定的数据行。语法如下
recobjDataView.Find(″指定条件″)
注意Find方法查找不区分大小写如果找到一个匹配数据Find方法将返回其在DataView中记录位置否则返回-1。
有关DataView的其他方法与属性请查阅相关手册。
(三)ADO.NET的核心组件
ADO.NET的核心组件主要包括
Connections连接管理数据库事务。
Commands向数据库发送的操作命令。
DataReaders直接读取流数据。
DataSets和DataSetCommands处理内存镜像数据。
ADO.NET首先用Connections对象在Web页面和数据库之间建立连接然后通过Commands向数据库提供者发出操作命令使操作结果以流数据的形式返回连接。再通过DataReaders快速读取流数据保存数据到DataSets对象。最后再由DataSetCommands对象对数据进行集中访问和操作。
1.Connections对象
.NET框架中共提供了两个Connections对象SQLConnection和ADOConnection。应用Connections对象时先用Connections对象建立连接然后调用Open方法来打开连接。通常建立链接时要提供一些信息如数据库所在位置、数据库名称、用户账号、密码等相关信息Connection对象提供了一些常用属性用来进行此类设置。
(图)
SQLConnection的具体操作方法是
Dim myConnection as string ″serverlocalhost;uidliuguo;pwd12345;databasenorthwind″
Dim myConn As OleDbConnection New OleDbConnection(myConnection)
ADOConnection的具体操作方法是
Dim myConnection As string ″localhost;uidliuguo;pwd12345;Intial catalogNorthwind;″
Dim myConn As OleDbConnetion New OleDbConnection(myConnection)
MyConn.Open()
2.Commands对象
当链接到数据库之后可以使用Command对象对数据库进行操作如进行数据添加、删除、修改等操作。一个命令(Command)可以用典型的SQL语句来表达包括执行选择查询(Select Query)来返回记录集执行行动查询(Action Query)来更新(增加、编辑或删除)数据库的记录或者创建并修改数据库的表结构。当然命令(Command)也可以传递参数并返回值。Command可以被明确的界定或者调用数据库中的存储过程。
Dim objCmd as New OleDbCommand(″SELECT * From users″, objConn)
以上语句建立Command根据习惯也可以使用以下方法
Dim objCmd as New OleDbCommand()
objCmd.Connection objConn
objCmd.CommandText ″SELECT * FROM users″
3.DataReaders对象
DataReaders是专门用来读取数据的对象这个对象除了读数据以外不能做其他任何数据库操作。
Dim objReader as OleDbDataReader
objReader objCmd.ExecuteReader
While objReader.Read
Response.Write(objReader.GetString(0) ″ ″
End While
4.DataSet对象
DataSet是ADO.NET的核心。DataSet是一个存在于内存中的数据库也就是说它是离线的并没有同数据库建立即时的连线。在ADO.NET中DataSet是专门用来处理从数据保存体(Data Store)中读出的数据。不管底层的数据库是SQL Server还是ADODataSet的行为都是一致的。可以使用相同的方式来操作从不同数据来源取得的数据。
在DataSet中可以包含任意数量的DataTable(数据表)且每个DataTable对应一个数据库的数据表(Table)或视图(View)。一般来说一个对应DataTable对象的数据表就是一堆数据行(DataRow)与列(DataColumn)的集合。DataTable会负责维护每一笔数据行保留它的初始状态(Original State)和当前的状态(Current State)以解决多人同时修改数据时引发的冲突问题。
DataSet是XML与ADO结合的产物它的一个重要的特点是与数据库或SQL无关。它只是简单地对数据表进行操作交换数据或是将数据绑定到用户界面上。
如以下这个例子
Dim ds1 As New DataSet()
Dim dtable As new DataTable(″people″)
With dtable.Columns
.Add(″FName″, System.Type.GetType(″System.String″))
.Add(″LName″, System.Type.GetType(″System.String″))
.Add(″UID″, System.Type.GetType(″System.Int32″))
End With
dtable.Columns(″UID″).AutoIncrement True
ds1.Tables.Add(dtable)
dim pkey() as DataColumn {ds1.Tables(″people″).Columns(″UID″)}
ds1.Tables(″people″).PrimaryKey pkey
以上语句稍微有点复杂我们来简单分析一下。
前半部分我们建立了一个DataSet和一个叫People的DataTable然后我们为这个DataTable加入了三个列并将“UID”列设为自动递增。最后将这个DataTable加入到了DataSet。最后我们定义一个叫pkey()的主键将其指向People。
二、数据的绑定
VB.NET没有自己的类库它依托的是.NET FrameWork SDK中的类库虽然在.NET FrameWrok SDK中并没有提供在VB中的的DbLabel、DbComboBox等数据库组件但.NET FrameWork SDK中提供了一种数据绑定技术可以把打开的数据表中的某个或者某些字段绑定到在命名空间System.Window.Forms中定义的WinForm组件(如TextBox组件、ComboBox组件、Label组件等)中的某些属性上从而提供这些组件显示出数据表中的记录信息也就实现了DbTextBox、DbComboBox等组件。
(一)数据绑定和Windows窗体基础知识
数据绑定指的是一个过程即在运行时自动为包含数据的结构中的一个或多个窗体控件设置属性的过程。具体而言是指Windows窗体使用ADO.NET进行数据绑定的过程。使用数据绑定你无需显式编写实例化连接和创建数据集的代码(而使用非绑定窗体则必须这样做)与Windows窗体相关联的向导将为你编写必要的ADO.NET代码。
Windows窗体使用户可以轻松绑定到几乎所有包含数据的结构。这表示用户可以使用ADO.NET绑定到传统的数据存储区(如存储在Access或SQL Server表中的数据)也可以绑定到从文件读取的、包含在其他控件的或存储在阵列中的数据结果。将窗体绑定到数据后就可以将窗体上的控件绑定到特定的数据元素。最传统的数据绑定包括将文本框控件(TextBox)的Text属性绑定到数据源的列还可以绑定Image控件的图形、控件的背景或窗体上任意控件的其他任意属性。
Windows窗体可以进行两种类型的数据绑定简单数据绑定允许将控件绑定到单个数据元素复杂数据绑定允许将多个数据元素绑定到一个控件。
(二)数据与控件的绑定
在VB.NET中要向控件绑定一个数据源就必须为该控件设置DataBinding属性。该属性可以访问ControlBindingsCollection类该类对每一个控件的绑定进行管理并且具有很多属性和方法。
Add方法为控件创建一个绑定并将它加到ControlBindingsCollection中。Add方法有3个参数语法如下
Object.DataBindings.Add(propertyname,datasource,datamember)
其中Object表示窗体上的有效控件Propertyname参数表示被绑定控件的属性Datasource参数表示被绑定的数据源可以是任何包含数据的有效对象如DataSet,DataView或者DataTable等Datamember参数代表被绑定给控件的数据源中的数据字段。
1.绑定前的准备工作
(1)创建一个名为db1的Access数据库数据表Student的结构如图所示
并在表中增加以下几条记录。如图所示。
(2)创建和配置数据集
创建项目就可以创建和配置窗体所基于的数据集了。数据集是内存中包含表、关系和约束的缓存其中的每个表均为列和行的集合。数据集能够识别其原始状态和当前状态因此可以跟踪发生的变化。数据集中的数据被视为可更新数据。步骤如下
新建一个名为myDataTest的vb.net项目将表单的Name属性改为“frmtest”Text属性设为“数据绑定举例”。
在表单中增加一个OleDbDataAdapter控件。这时会自动弹出“数据适配器配置向导”对话框。点击“下一步”选择“新建连接”将弹出相应的对话框选择“Microsoft Jet 4.0 OLE DB Provider”选项点击“Next”按钮设定数据源。在这里设置好你的数据源后点击“OK”按钮。
在打开的对话框中选择你的数据连接设置完毕后点击“下一步”按钮创建SQL查询语句。在SQL生成器输入中输入以下语句并点击“完成”。此时就完成与数据源的连接工作。
SELECT StuID, StuName, StuSex, StuBorn, StuCore FROM student
在窗体的组件栏中将显示名为OleDbConnection1的OleDbConnection对象和名为OleDbDataAdapter1的OleDbDataAdapter对象。其中OleDbConnection1对象包含有关如何访问选定数据库的信息。OleDbDataAdapter1对象包含一个查询它定义了要访问的数据库中的表和列。
(3)生成数据集类
点击“数据→生成数据集”菜单命令此时将出现“生成数据库”对话框。在“新建”框中myDataSet作为要创建的新数据集的名称。确保选中“将此数据集添加到设计器”选项。点击 “确定”按钮。这样即可生成数据集。
完成上述步骤在窗体的组件栏上将显示一个新的控件myDataSet1。此控件是myDataSet.xsd文件的一个引用该文件也被添加到“解决方案资源管理器” 窗口中。
到此准备工作结束。我们就可以将数据集绑定给控件来显示数据集中所包含的数据了。
2.绑定到DataGrid控件
(1)在窗体中增加一个DataGrid控件调整其大小与窗体相符。并对应以下设置修改其相关属性
DataSource属性为myDataSet1Datamember属性为student。
完成上述步骤即将数据集绑定到数据网格控件中了。只需再完成一个步骤就可以看到数据网格控件中显示的数据了。
(2)虽然数据网格控件已被绑定到数据集上但加载窗体时并不会自动填充数据集。加载窗体时请使用窗体的Load事件过程在数据网格控件中填充数据。代码如下
Private Sub frmtest_Load( ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
加载数据网格控件
MyDataSet1.Clear()
OleDbDataAdapter1.Fill(mydataset1,″student″)
End Sub
在Load事件过程中首先需要清除数据集然后用先前创建的OleDbDataAdapter1对象的Fill方法填充数据集。需要将表名传递给第二个参数因为数据网格控件将使用第二个参数检索以前在DataMember属性中指定的正确DataMember (student)。
(3)现在我们可以来看看我们的成果了试运行一下程序。
在“解决方案资源管理器”窗口中右击项目名称从快捷菜单中选择“属性”命令在打开的对话框中点击“启动对象”组合框并从列表中选择“frmtest”选项。然后点击“确定”按钮。最后按下F5键即可运行此项目。
3.绑定到TextBox控件
在上面我们介绍的实例窗体frmtest上删除DataGrid控件并清除frmtest_Load中的代码。按照图所示设计程序界面。
上图中各控件相关属性是(图)
(其余的控件我们将在下面的内容中用到。)
界面创建完成以后我们就可以把数据集绑定到每个TextBox控件上了。步骤如下
(1)选择要绑定的TextBox控件。按下F4键查看其“属性” 窗口。点击展开“DataBindings”属性在“DataBindings” 中选择Text属性。
(2)打开组合框并将各个文本框绑定到相应的字段。如需要将“TxtStuID”文本框绑定到StuID字段请点击myDataSet1上的“”号再点击 student上的“”号然后选择StuID字段。
(3)按照上述方法把其他几个文本框绑定到相应的字段上。
需要说明的是虽然已绑定各个字段但还必须编写代码才能在首次加载窗体时用数据填充窗体。代码如下
Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyDataSet1.Clear()
OleDbDataAdapter1.Fill(MyDataSet1, ″student″)
End Sub
按下F5键试运行一下程序。仔细观察一下运行结果我们就会发现程序在实现时自动用数据集中的第一条记录来填充各件控件。
(三)用代码实现数据绑定
上面我们着重探讨了控件与数集据绑定的向导模式。这种模式虽然实现方法简单但是却不灵活可移植性较差。为此我们为大家介绍如何用代码来实现数据绑定。用代码实现数据绑定的优点在于灵活自由代码移植方便。
为了便于更好的理解我们仍然选用“TextBox”控件作为实例来介绍。
1.绑定到TextBox控件
(1)界面设计
新建一个项目按照图的方法设置程序界面再增加一个Button控件将其“Text“属性设为“TextBox数据绑定”。
(2)代码实现
指定程序中引用的名称空间在代码窗中输入
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System
Imports System.Data.OleDb
Imports System.Data
首先定义全局变量myDataSet及GetConnected()方法代码如下
Public Class Form1
Inherits Form
Private WithEvents Button1 As Button
Private TextBox1 As TextBox
……(省略部分自动生成代码) Private myDataSet As DataSet
Private components As System.ComponentModel.Container
Public Sub New()
MyBase.New()
GetConnected() 这个过程是用于建立连接打开数据库
InitializeComponent()
End Sub
清除在程序中使用过的资源
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
……(省略部分自动生成代码)
End Sub 为GetConnected()方法增加代码用来打开数据表返回数据集。
Public Sub GetConnected()
创建一个 OleDbConnection
Dim ConnectionString As String ″ Provider Microsoft.Jet.OLEDB.4.0; Data Source e:\My Documents\db1.mdb″
Dim myConn As OleDbConnection New OleDbConnection()
myConn.ConnectionString ConnectionString
Dim strCom As String ″ SELECT * FROM student ″
创建一个 DataSet
myDataSet New DataSet()
myConn.Open()
用 OleDbDataAdapter 得到一个数据集
Dim myCommand As OleDbDataAdapter New OleDbDataAdapter(strCom, myConn)
把Dataset绑定student数据表
myCommand.Fill(myDataSet, ″student″)
关闭此OleDbConnection
myConn.Close()
End Sub
初始化窗体中的组件
Private Sub InitializeComponent()
……(省略部分自动生成代码)
End Sub
将各个文本框控件绑定到数据库的各个字段。
Private Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
TxtStuID.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuID″))
TxtStuName.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuName″))
TxtStuSex.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuSex″))
TxtStuBorn.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuBorn″))
TxtStuCore.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuCore″))
End Sub
End Class
Module Module1
Sub Main()
Application.Run(New Form1())
End SubEnd Module
编译后运行程序看看是不是与上面介绍的实例运行结果相同。
在上面的代码中我们新建了一个GetConnected()过程用于建立连接打开数据库。在用代码实现数据绑定或者对数据库进行任何操作前就必须要先建立连接打开数据库程序运行结束后再关闭数据连接。
在Button1_Click过程中我们把“TextBox”控件绑定到数据集myDataSet中“student”的各个字段上。
程序运行后点击“TextBox数据绑定”按纽程序就会用myDataSet中“student”中的数据来自动填充文本框。
2.绑定到Label控件
有了上面的内容做基础再来讨论如何把数据集绑定到Label控件上就显得很简单了。把数据绑定到Label控件的方法与绑定到TextBox控件的方法大同小异。此处不再详细讲解只给出代码实现绑定到Label控件的核心部分代码。
Private Sub Button1_Click (ByVal sender As Object , _
ByVal e As System.EventArgs ) Handles Button1.Click
把student表的StuName字段绑定到Label1的Text属性上。
Label1.DataBindings.Add ( New Binding ( ″Text″ , Me.myDataSet , ″student.StuName″ ) )
End Sub
3.绑定到ComboBox控件
上面介绍的是对组件的简单数据绑定对组件的复杂数据绑定和它有所区别也有所相同具体如下
(1)要对ComboBox组件实现数据绑定首先也是要打开数据表得到数据集。这和上面TextBox组件的代码大致一样在此略过。
(2)实现数据绑定
设定了ComboBox组件的三个属性就可以实现数据绑定了这三个属性是“DataSource”、“DisplayMember”、“ValueMember”。其中DataSource表示指定的数据集DisplayMember表示ComboBox组件显示的字段值ValueMember表示ComboBox组件选择后的值。这三个属性的具体使用方法如下
ComboBox1.DataSource Me.myDataSet
ComboBox1.DisplayMember ″studnet.StuName″
ComboBox1.ValueMember ″ studnet.StuName ″
下面我们就来看看把数据集绑定到ComboBox控件的核心代码
Private Sub Button1_Click ( ByVal sender As Object , _
ByVal e As System.EventArgs ) Handles Button1.Click
ComboBox1.DataSource Me.myDataSet
ComboBox1.DisplayMember ″student.StuName″
ComboBox1.ValueMember ″ student.StuName ″
End Sub
注意对ComboBox控件进行数据绑定的方法同样适用于ListBox控件因此关于LisBox控件数据绑定方法本文将不再介绍。需要者请参阅ComboBox相关内容。
三、数据库简单操作
前面介绍了ADO.NET基础以及ADO.NET与Windows窗体控件的绑定方法。但是对于数据库编程我们更想了解的还是如何增加记录删除记录更新记录等数据库记录的操作方法。这里我们将以一个具体的实例为大家介绍这些操作方法。
在图3中有btnFirst(第一个记录)btnEnd(最后一条记录)btnAdd(增加记录)btnDel(删除记录)btnEdit(修改记录)控件。
用代码形式打开数据并在frmtest_load中把数据绑定给TextBox控件。此处给出源代码
打开数据库
Public Sub OpenData()
创建一个 OleDbConnection
Dim ConnectionString As String ″ Provider Microsoft.Jet.OLEDB.4.0; Data Source e:\My Documents\db1.mdb″
Dim myConn As OleDbConnection New OleDbConnection()
myConn.ConnectionString ConnectionString
Dim strCom As String ″ SELECT * FROM student ″
创建一个 DataSet
myDataSet New DataSet()
myConn.Open()
用 OleDbDataAdapter 得到一个数据集
Dim myCommand As OleDbDataAdapter New OleDbDataAdapter(strCom, myConn)
把Dataset绑定student数据表
myCommand.Fill(myDataSet, ″student″)
关闭此OleDbConnection
myConn.Close()
End Sub
绑定数据到TextBox控件
Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtStuID.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuID″))
txtStuName.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuName″))
txtStuSex.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuSex″))
txtStuBorn.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuBorn″))
txtStuCore.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuCore″))
End Sub
完成以上步骤后我们就可以通过编程对数据库进行各作操作了。
1.实现对数据记录的浏览
在完成对窗体中的WinForm组件进行绑定后实现对数据记录的浏览操作的关键就是要找到如何定位数据记录指针的方法。而要实现这种处理就需要用到.NET FrameWork SDK中的名称空间System.Windows.Froms中的BindingManagerBase类。
BindingManagerBase是一个抽象的类主要用于管理同一数据表所有绑定对象。BindingManagerBase类中定义了二个属性“position”和“Count”第一个属性是定义当前数据指针而第二个属性主要是得到当前数据集有多少记录数目。在已经进行完数据绑定后通过这两个属性配合使用实现对数据记录的浏览。
(1)向上翻阅一条记录
双击“上一条”按钮在代码窗中输入以下代码
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious_.Click
Me.BindingContext(myDataSet, ″student″).Position - 1
End Sub
(2)向下翻阅一条记录
双击“下一条”按钮在代码窗中输入以下代码
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnNext.Click
Me.BindingContext(myDataSet, ″student″).Position 1
End Sub
(3)翻到最后一条记录
双击“最后一条记录”按钮在代码窗中输入以下代码
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
Me.BindingContext(myDataSet, ″student″).Position Me.BindingContext(myDataSet, ″student″).Count - 1
End Sub
(4)翻阅到第一条记录
双击“第一条记录”按钮在代码窗中输入以下代码
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
Me.BindingContext(myDataSet, ″student″).Position 0
End Sub
说明为了代码书写方便我们可以先定义一个BindingManagerBase对象myBind如myBind Me.BindingContext (myDataSet, ″student″ )于是以上各句代码均可以简写成
向上翻阅一条记录myBind.Position myBind.Position - 1
向下翻阅一条记录myBind.Position myBind.Position 1
翻阅到最后一条记录myBind.PositionmyBind.count - 1
翻阅到第一条记录myBind.Position 0
2.删除数据记录
双击“删除记录”按钮在代码窗中输入以下代码
Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
Dim ConnectionString As String ″ Provider Microsoft.Jet.OLEDB.4.0; Data Source e:\My Documents\db1.mdb″
Dim myConn As OleDbConnection New OleDbConnection()
myConn.ConnectionString ConnectionString
myConn.Open() Dim strDele As String ″DELETE From student WHERE StuID ″ txtStuID.Text ″ ″ Dim myCommand As OleDbCommand New OleDbCommand(strDele, myConn)
myCommand.ExecuteNonQuery() myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).Delete()
myDataSet.Tables(″student″).AcceptChanges()
10.myConn.Close()
End Sub
前面四行代码我们已经非常熟悉目的是建立与数据据的连接并打开数据库。第6行代码我们建立一个SQL查询用来查询数据表中StuID字段值等于TxtStuID.Text输入值的所有记录。并在第7行代码中将查询结果建立一个新的OleDbCommand对象用来指定要删除的记录。第8行代码是从数据库中删除指定的记录第9行代码是从myDataSet中删除记录。前者是物理上删除记录如果去掉第8行代码运行程序你就会发现记录只是在当前操作中被删除了在数据库中依然存在。
其中第6行代码中定义的SQL查询条件读者可以根据需要自行指定。需要说明的是由于我们在创建数据表时指定StuID字段的类型为Text类型因此在书写SQL语名时要在“”号前加上单引号具体格式请参照第6行代码。如果StuID字段类型为数字型那么第6行正确写法应该为
Dim strDele As String ″DELETE From student WHERE StuID ″ txtStuID.Text
3.修改数据记录
修改数据的方法有很多本文中我们将以采用SQL语言来修改数据记录为例详细介绍一下如何修改数据记录。下面我们先看看程序代码
Dim ConnectionString As String ″ Provider Microsoft.Jet.OLEDB.4.0; Data Source e:\My Documents\db1.mdb″
Dim myConn As OleDbConnection New OleDbConnection()
myConn.ConnectionString ConnectionString
myConn.Open() 以上代码用来连接数据源
myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).BeginEdit()
利用SQL语句创建数据更新集合 Dim StrUpdate As String ″Update student SET StuName″ txtStuName.Text ″,StuSex″ txtStuSex.Text ″,StuBorn″ txtStuBorn.Text ″,StuCore″ txtStuCore.Text ″ WHERE StuID″ txtStuID.Text ″″ 利用SQL结果创建新的OleDbCommand对象
Dim myCommand As OleDbCommand New OleDbCommand(StrUpdate, myConn)
myCommand.ExecuteNonQuery()
myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).EndEdit()
myDataSet.Tables(″student″).AcceptChanges()
myConn.Close()
MsgBox(″数据修改完成″)
上述代码中我们采用SQL语言中的Update语名来更新记录对各个TextBox中的值修改后更新到数据库。其中重要语句就是SQL语句的编写。如果你有不明白的地方请参阅SQL相关资料。代码中我们同时还利用了BeginEdit()与EndEdit()方法任何从数据的修改都必须在这两个方法之间进行。前者是数据修改的入口后者则是完成将数据写入数据库的工作。
4.增加数据记录
增加数据记录与修改数据在实现方法上有很多相同之处。在下面的实例中我们利用SQL的Insert语句在指定位置插入一条记录把更新到数据库。如果你想在数据表最后增加一条记录只需要将数据记录指针指向数据表末尾就行了。
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim ConnectionString As String ″ Provider Microsoft.Jet.OLEDB.4.0; Data Source e:\My Documents\db1.mdb″
Dim myConn As OleDbConnection New OleDbConnection()
myConn.ConnectionString ConnectionString
myConn.Open()
Dim StrAdd As String ″insert into student (Stuid,StuName,StuSex,StuBorn,StuCore) values(″ txtStuID.Text ″,″ txtStuName.Text ″,″ txtStuSex.Text ″,″ txtStuBorn.Text ″,″ txtStuCore.Text ″)″
Debug.Write(StrAdd)
Dim myCommand As OleDbCommand New OleDbCommand(StrAdd, myConn)
myCommand.ExecuteNonQuery()
myConn.Close()
myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).BeginEdit()
myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).EndEdit()
myDataSet.Tables(″student″).AcceptChanges()
MsgBox(″数据增加完成″) End Sub
有了前面几种基本操作方法的代码分析后这段代码相信不难理解。大家需要关注的还是SQL语句是如何实现数据记录增加的。这种方法具有一定的通行性。
完成上述设计后我们来看看整个程序的运行结果。按下F5键运行程序即可。本文中所有代码均在Windows XPVB.NET环境下调试通过。
