VB使用ADODB操作数据库
Dim conn As New ADODB.Connection ’创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行
Dim rs As ADODB.Recordset ’创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用
Dim CnStr As String, Sql As String ’创建两个字符串变量分别存放两个集合的SQL语句代码段
1、装载数据库(不属于Recordset集合)
=============
Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$
’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码
FileName = App.Path & "\’数据库名’"
DbIp = "数据库地址"
DbName = "数据库名"
DbUser = "数据操作员用户名"
DbPw = "操作员密码"
’以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量
’1)连接Access数据库:
’-------------------
CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileNa me & ";Jet OLEDB:Database Password=" & DbPw
’2)连接Oracle数据库:
’-------------------
CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data S ource=" & FileName & ";Persist Security Info=True"
’其中:
’PASSWORD:密码
’User ID: 用户号
’Data Source: 数据库名
’Persist Security Info:
’Provider:
’3)连接VF的DBF库:
’----------------
CnStr = "PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPr
o Driver};UID=" & DbUser & ";SourceDB=" & FileName &
";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"
’4)连接SQL的数据库
’------------------
CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQSOFT;SERVER= " &
DbIP
’也可以使用这段简易代码 CnStr = "Provider=SQLOLEDB;Data Source=" & DbIp & ";DATABASE=" & DbName & ";U ID=" & DbUser & ";pwd=" & DbPw
Conn.Open cnstr ’使用 Connection 集合的 Open 方法与数据库建立连接
2、Recordset集合的常用方法
==========================
’1)打开一个表
’------------
Sql = "select * from 表名" ’SQL查询语句
Set rs = New ADODB.Recordset ’新建一个实例
rs.Open Sql, conn ’使用 Open 方法打开数据库中的一个表
’注意，这种打开方式只能使用 rs.MoveNext （即，向后移动行坐标）而不能像其他方向，并且不能修改数据内容
’
’rs.Open Sql, conn，1 ’虽然只加了个“1”，但这种方法可以向任何方向移动行坐标。
’
’以下参数代表了这个可选值的含义
’0 = adOpenForwardOnly （默认值）打开仅向前类型游标。
’1 = adOpenKeyset 打开键集类型游标。
’2 = adOpenDynamic 打开动态类型游标。
’3 = adOpenStatic 打开静态类型游标。
’
’虽然使用以上方法可以可以实现行坐标（游标）的任意移动，但是仍然无法写入数据。因此需要进一步的对Open 方法进行完善
’rs.Open Sql, conn, 1, 3 ’后面的3是确定读写权限的
’以下参数代表了这个可选值的含义
’1 = adLockReadOnly （默认值）只读—不能改变数据。
’2 = adLockPessimistic 保守式锁定（逐个）—在编辑时立即锁定数据源的记录。
’3 = adLockOptimistic 开放式锁定（逐个）—只在调用 Update 方法时才锁定记录。
’4 = adLockBatchOptimistic 开放式批更新—用于批更新模式（与立即更新模式相对）。
’
’2)读写数据
’----------
’增加一行记录并对新记录的内容进行修改并保存可以如下写法
rs.AddNew ’增加一行记录
rs("...")="..." ’数据读写操作
...
rs.UpDate ’保存写入资料，如果使用只读权限，则不能使用这个方法rs.Close ’这个方法用来关闭你所代开的表，如果不使用这个方法也可以，但是数据库仍然认为你在对标进行锁定，可造成数据库负担过重
2、对数据进行筛选和排序
=======================
Sql = "select * from 表名" ’SQL查询语句
’以上为打开一个表的所有内容
Sql = "select top 50 * from 表名" ’SQL查询语句
’以上为只打开前50行的记录
Sql = "select top 50 列名1,列名2,列名5 from 表名" ’SQL查询语句
’以上为只打开前50行的记录，并且只打开第1、2、5列数据
Sql = "select * from 表名 where 列名1=’" & 字段 & "’"’SQL查询语句
’以上为一个简单的筛选，表示打开的内容必须符合[列名1=’" & 字段 & "’"]的内容
’需要注意的是，数据库列的类型必须匹配，比如字符串类型需要以单引号括起
’而数字类型则不能用单引号括起
’另外SQL语句还支持通配符，例如列名1 like ’%" & 字段 & "%’" 表示包含[字段]
’在表达式中的匹配
’? _（下划线）任何单一字符
’* or % 零个或多个字符
’#任何单一数字（0 — 9）
’[charlist]任何在字符表中的单一字符
’[!charlist]任何不在字符表中的单一字符
’注：根据数据库的不同?、_和*、%的应用有所差别，比如SQL只使用% 和 _ 分别代表多个字符和单一字符
Sql = "select * from 表名 where 列名1=’" & 字段 & "’ ORDER BY 字段1 ASC" ’对查询结果进行升序排列
Sql = "select * from 表名 where 列名1=’" & 字段 & "’ ORDER BY 字段1 DESC" ’对查询结果
进行降序排列
Sql = "select * from 表名 where 列名1=’" & 字段 & "’ ORDER BY 字段1 DESC, ORDER BY 字段2 DESC" ’对查询结果进行多维降序排列（速度奇慢，不推荐使用）
3、Recordset集合的常用属性方法
==============================
rs.BOF ’是否游标在最上边
rs.EOF ’是否游标在最下边
rs.RecordCount ’记录集的行数（如果使用像前类型的游标，可能返回不准确）
rs.AddNew ’新建一行记录
rs.Update ’保存当前行被修改的记录
rs.Delete ’删除当前行
rs.Close ’关闭记录集
4、Fields集合的一些属性的解释
=============================
’以下为简写，正常情况需要rs.Fileds.。。。但是Fields属于Recordset的一个默认集合，因此可以省略
rs() ’括号内可以是列名也可以是列的序号例如：rs("姓名")、rs(3) 都是是可以的
rs(3).Name ’返回列名
rs(3).Type ’返回列的类型
rs(3).Value ’返回当前行的值
rs.Fields.Count ’返回列数
https://www.doczj.com/doc/0a14249380.html,数据库编程基础教程 罗珊 众所周知，https://www.doczj.com/doc/0a14249380.html,自身并不具备对数据库进行操作的功能，它对数据库 的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中，https://www.doczj.com/doc/0a14249380.html,又是.NET FrameWork SDK中重要的 组成部分。要了解https://www.doczj.com/doc/0a14249380.html,的数据库编程，首先要明白https://www.doczj.com/doc/0a14249380.html,的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍https://www.doczj.com/doc/0a14249380.html,数据库访问对象以及https://www.doczj.com/doc/0a14249380.html,数据库编程基本方法。 一、https://www.doczj.com/doc/0a14249380.html,数据库访问对象 (一)https://www.doczj.com/doc/0a14249380.html,简介 https://www.doczj.com/doc/0a14249380.html,是由微软Microsoft ActiveX Data Object(ADO)升级发展而来的。是在.NET中创建分布式数据共享程序的开发接口。https://www.doczj.com/doc/0a14249380.html,的数据存取API提供两种数据访问方式，分别用来识别并处理两种类型的数据源，即SQL Server7.0(及更高的版本)和可以通过OLE DB进行访问的其他数据源。为此https://www.doczj.com/doc/0a14249380.html,中包含了两个类库，System.Data.SQL库可以直接连接到SQL Server的数据，System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Access数据。 (二)https://www.doczj.com/doc/0a14249380.html,的名称空间
https://www.doczj.com/doc/0a14249380.html,是围绕System.Data基本名称空间设计，其他名称空间都是从System.Data派生而来。它们使得https://www.doczj.com/doc/0a14249380.html,不仅访问DataBase中的数据，而且可以访问支持OLE DB的数据源。 当我们讨论https://www.doczj.com/doc/0a14249380.html,时，实际讨论的是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)连接字符串： 连接字符串本身由下表中列出的参数构成。(图) 我们来看一下如何在连接字符串上使用参数来初始化一个连接对象。
C#.NET操作数据库通用类（MS SQL Server篇） 下面给出了一个C#操作MS SQL Server 数据库的通用类，通过该类可以对数据库进行任何操作，包括执行SQL语句、执行存储过程。以下是其详细实现过程，希望大家共同修改优化之。稍后将介绍如何使用它实现N层的程序设计。 配置web.config文件的链接参数
vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing
VB使用ADODB操作数据库 Dim conn As New ADODB.Connection ’创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset ’创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String ’创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$ ’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码 FileName = App.Path & "\’数据库名’" DbIp = "数据库地址" DbName = "数据库名" DbUser = "数据操作员用户名" DbPw = "操作员密码" ’以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量 ’1)连接Access数据库: ’------------------- CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileNa me & ";Jet OLEDB:Database Password=" & DbPw ’2)连接Oracle数据库: ’------------------- CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data S ource=" & FileName & ";Persist Security Info=True" ’其中: ’PASSWORD:密码 ’User ID: 用户号 ’Data Source: 数据库名 ’Persist Security Info: ’Provider: ’3)连接VF的DBF库: ’---------------- CnStr = "PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPr
VB 数据库编程之 ADO 连接数据库实例 这里先说说ADO的ACCESS数据库连接吧，两种。 1.ADO控件连接 “工程”菜单→“部件...”：Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 并将Adodc数据控件绘入窗体。 右击Adodc数据控件→属性→使用连接字符串→生成→Microsoft Jet 4.0 OLE DB Provider→数据位置→找到要连接的ACCESS数据库文件…… Adodc数据控件的RecordSource属性为“2 - adcmdTable”和你要连接的表名。 控件的引用实例如下： '组合框（Combo）控件列表用某字段数据记录填充范例 '在窗体Load事件或Combo的相关事件中写入 '循环1到记录总数 For i = 1 To Adodc1.Recordset.RecordCount '如果不在记录集结尾则 If Not Adodc1.Recordset.EOF Then '组合框增加一行：“姓名”字段的值 Combo1.AddItem Adodc1.Recordset.Fields("姓名").Value '记录指针向后一个 Adodc1.Recordset.Movenext End If Next i 2.ADO代码连接 通用声明 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cmd As New https://www.doczj.com/doc/0a14249380.html,mand Private Sub Form_Load() '实例化Connection对象 Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\personnel.mdb;" 'Recordset对象 Set rs = New ADODB.Recordset rs.Open "职工信息", cn, adOpenDynamic, adLockOptimistic
https://www.doczj.com/doc/0a14249380.html,数据库编程 1、https://www.doczj.com/doc/0a14249380.html,的相关概念。 Microsoft的新一代技术，是ADO组件的后继者。 主要目的是在.NET Framework平台存取数据。 提供一致的对象模型，可以存取和编辑各种数据源的数据，即对这些数据源，提供了一致的数据处理方式。 https://www.doczj.com/doc/0a14249380.html,保存和传递数据是使用XML格式。可实现与其他平台应用程序以XML文件进行数据交换。 2、数据访问类库的名称空间 针对不同的数据源，使用不同名称空间的数据访问类库，即数据提供程序。常用的数据源包括四种： Microsoft SQL Server数据源：使用System.Data.SqlClient名称空间。 OLEDB数据源：使用System.Data.OleDb名称空间。 ODBC数据源：使用System.Data.Odbc名称空间。 Oracle数据源：使用System.Data.OracleClient名称空间 要使用https://www.doczj.com/doc/0a14249380.html, 来访问数据库，需要将相应的名称空间导入到应用程序中，如下：System.Data是通用的名称空间，其中包含组成ADO．NET核心体系结构的所有类。 System.Data.Oledb 名称空间供https://www.doczj.com/doc/0a14249380.html, 管理提供程序访问支持OleDb的数据源时使用。 System.Data.SQLClient 名称空间供 SQL Server管理提供程序使用。该名称空间是专为 Microsoft SQL Server 而设计的，对于以前版本的 SQL Server，可以提高其性能。 如：using System.Data; using System.Data. SqlClient; System.Data.OleDb和System.Data.SqlClient名称空间的类名称相同，只是字头不同。 之所以分成两组类，主要目的是提供一组最佳化SQL Server数据库存取的类。 OleDb字头的类是使用OLEDB提供者数据源的数据库。例如Access和Oracle等数据库。 Sql字头的类只能使用在SQL Server7.0以上版本，直接和服务器端的SQL Server通信，因为不通过OLE DB和ODBC，所以可以明显提升整体的执行效率。 3、https://www.doczj.com/doc/0a14249380.html,的组成 https://www.doczj.com/doc/0a14249380.html,用于访问和处理数据的类库包含以下两个组件： .NET Framework 数据提供程序
ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2
图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4
4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6
图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面
图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面
图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1
Microsoft Visual https://www.doczj.com/doc/0a14249380.html,是Microsoft Visual Basic的更新版本，它基于.NET的框架结构，能使用户非常容易地创建Microsoft Windows操作系统和网络的应用程序。使用Visual https://www.doczj.com/doc/0a14249380.html,，可以快速地实现可视化开发网络应用程序、网络服务、Windows 应用程序和服务器端组件。另外，Visual https://www.doczj.com/doc/0a14249380.html,为Windows应用程序提供了XCOPY部署，开发人员不再需要为DLL的版本问题担忧。Visual Basic现在已经真正成为面向对象以及支持继承性的语言。窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化以及可达性支持。数据类工具内在支持XML数据，在设计时数据绑定使用断开的数据。另外，Visual https://www.doczj.com/doc/0a14249380.html,直接建立在.NET的框架结构上，因此开发人员可以充分利用所有平台特性，也可以与其他的.NET语言交互。 在这篇文章中我要跟大家讲的，是介绍Visual https://www.doczj.com/doc/0a14249380.html,的数据库编程及其相关知识。 一、先介绍https://www.doczj.com/doc/0a14249380.html,和https://www.doczj.com/doc/0a14249380.html, ADO .NET由Microsoft ActiveX Data Objects (ADO)改进而来，它提供平台互用和可收缩的数据访问功能，是Visual https://www.doczj.com/doc/0a14249380.html,进行数据库编程所使用的重要工具。https://www.doczj.com/doc/0a14249380.html, 使用了某些ADO 的对象，如Connection 和Command 对象，并且还引入了新的对象。主要的新https://www.doczj.com/doc/0a14249380.html, 对象包括DataSet、DataReader 和DataAdapter。 https://www.doczj.com/doc/0a14249380.html,是.NET框架中另外一个很有用的用于数据库开发的类库。但是，在.NET FrameWork SDK1.0版中不包含https://www.doczj.com/doc/0a14249380.html,，要使用https://www.doczj.com/doc/0a14249380.html,请到微软网站下载，具体下载地址： https://www.doczj.com/doc/0a14249380.html,/library/default.asp?url=/downloads/list /netdevframework.asp（文件名是odbc_net.msi）在默认情况下，安装路径是 “C:\Program File\https://www.doczj.com/doc/0a14249380.html,\https://www.doczj.com/doc/0a14249380.html,”。安装后的组件名为 Microsoft.Data.Odbc.dll文件。 添加ODBC .NET Data Provider的步骤： 启动Visual https://www.doczj.com/doc/0a14249380.html,开发环境，选中菜单栏的[工具]—>[数据]—>[自定义工具箱]，在弹出的[自定义工具箱]对话框中选[.Net 框架组件]单击[浏览]按钮，在“C:\Program File\https://www.doczj.com/doc/0a14249380.html,\https://www.doczj.com/doc/0a14249380.html,”目录下选择Microsoft.Data.Odbc.dll文件。接下来就在[自定义工具箱] 中选择“OdbcCommand”、“OdbcCommandBuilder”、“OdbcConnection”、“OdbcDataApdater” 后，单击[确定]。至此，完成了在Visual https://www.doczj.com/doc/0a14249380.html,中加入ODBC .NET。 二、接下来介绍数据提供者（Data Provider） https://www.doczj.com/doc/0a14249380.html,和https://www.doczj.com/doc/0a14249380.html,两者共提供了三种数据提供者，其中https://www.doczj.com/doc/0a14249380.html,提供两种（The SQL Server .NET Data Provider和The OLE DB .NET Data Provider ）
第七讲 VB访问SQL Server2000数据库的方法 一、ODBC数据源设置 1、ODBC简介 ODBC Open DatabaseConnectivity开放式数据库互连）是Mircosoft公司有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准API Application应用程序编程接口）。这些API利用SQL来完成大部分的任务。ODBC本身提供对SQL语言的支持，用户可以直接将SQL送给ODBC一个基于ODBC的应用程序对数据库操作不依赖于任何DBMS，不直接与DBMS打交道，所有数据库操作由ODBC驱动程序完成。 2、ODBC数据源的创建（建立ODBC数据源） 前台系统Windows 2000 professional系统，后台Windows 2000 Server系统。以Windows 2000 professional为例： （1）单击“开始”/设置/控制面板/管理工具/数据源ODBC,打开“ODBC数据源管理器”，选择“用户DSN or 系统DSN”，单击【添加】按钮，打开“创建用户数据源”对话框，选择“SQL Server”，单击【完成】按钮。
（2）打开“创建新的数据源到SQL Server”窗口： ○1你想用什么名称命名数据源：在名称框中输入xn。 ○2服务器：为网络中数据库服务器（默认是本地服务器Local，可选远程服务器IP）。 ○3登陆ID：xn密码：xn（取决于安装SQL时所指定的密码）。特别注意此处为确保数据库安全起见，数据库管理员可以给用户指定一个用户名及密码。这里为简便起见使用管理员用户名及密码。 ○4更改数据库为：aa（所要使用的数据库）。
VB数据库操作实例 工具/原料 VB数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一，很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。 步骤/方法 1. 1 《书库管理系统》是一个最简单的数据库操作实例，它包括浏览、添加、修改、删除功能的数据库操作，使用数据链接控件Adodc链接数据库、数据显示控件MSHFlexGrid显示数据库中的记录。 在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，我们必须点击菜单中的【工程】-【部件】，在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了。 其中Adodc控件的ConnectionString属性值是："Provider=Microsoft.Jet.OLEDB.4.0;Data Source=家庭书架.mdb;Persist Security Info=False"，它设置链接了“家庭书架.mdb”这个Access数据库，RecordSourc属性值是："select 图书登记表.ID,图书登记表.名称,图书登记表.
书号,图书登记表.作者,图书登记表.出版社,图书登记表.出借状态,出借记录.借书人,出借记录.电话,出借记录.地址,图书登记表.备注,图书登记表.出借记录from 图书登记表,出借记录where 图书登记表.ID=出借记录.zhuID ORDER BY 图书登记表.ID"，因为在“家庭书架.mdb”数据库中包含"图书登记表"和"出借记录"二个数据表，这是多表链接的典型的SQL语句。Adodc 的这二个属性值在VB的属性窗口进行编辑，你可以将上述属性值直接输入到相应的属性中，设置Visible的值为False，目的是在运行中不显示这个控件，其他属性默认值即可。 MSHFlexGrid控件的名称我们修改为MS1，它的属性设置稍稍比较麻烦：首先将它的DataSource属性在属性窗口设置为"Adodc1"； 然后在对象窗口右击控件，在下拉菜单中点击【属性】，在“通用”标签中修改行为3，修改列为11，修改固定行为0，修改固定列为0，如果数据链接没有问题，在属性的“带区”标签中可以看到列标题和列名称已经设置了，其他属性页的属性可以容许默认值，中点击【确定】即可。 另外在属性窗口设置MSHFlexGrid控件的BackColorBkg属性为&H00FFE0E0&，这个属性是控件底色的设置，然后设置BackColorFixed属性为&H00C0FFFF&，这个属性是控件数据显示标题的底色。其他默认值即可。 最后放置三个按钮，一个标签，三个Frame控件，在Frame1、Frame2、Frame3控件中分别放置9个标签（数组），8个文本框，一个下拉选择框，一个按钮，在Frame2、Frame3控件中分别放置一个标签，设置这个标签的Visible值为False，其他设置参考下图：设置和调整控件如上图后，设置数据库，在
使用ADO编程模型需添加ADO对象类库的“引用”----“Microsoft ActiveX Data Objects 2.x Library” ADO之VB数据库操作主要包括读、写、修改及删除等操作，不论是进行什么数据库操作都必须首先连接到数据库。 一、连接到数据库 1、连接到SQL数据库： 通过ADO的Connection对象可实现VB与SQL数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" '指定提供者，设置数据源 cnn.Open …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.Open "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 2、连接到ACCESS数据库： 通过ADO的Connection对象可实现VB与ACCESS数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" '指定提供者，设置数据源 cnn.Open …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文 件.MDB" …打开到数据库的连接
实验报告 课程名称：.NET程序设计实验类型：设计性 实验项目名称：数据库操作 学生姓名专业：班级：学号： 同组学生姓名：指导老师： 实验地点：实验日期：年月日 注：填写文字均采用宋体5号 一、实验目的和要求 目的：数据库操作 要求：.NET程序设计课程实验要求充分利用.NET Framework、运用一种.NET程序设计语言设计程序、在指定的开发环境中编辑和调试程序、以充分的数据运行和测试程序，在以锻炼解决实际问题的能力，培养严谨的治学态度。 二、实验内容（实验内容的具体描述） 1 访问数据库：通过设计窗体利用DataGridView控件的任务向导建立https://www.doczj.com/doc/0a14249380.html,对象，实现数据浏览。首先建立连接，它指定关于数据库的连接参数。然后创建数据集，它存储程序中要用到的一个或多个数据库表。接着创建数据适配器，它负责从数据库检索数据或更新数据。这样数据集中的数据就可以被绑定到窗体的控件上，并根据需要显示。 2 维护数据：以学生记录的添加、修改和删除为例，通过使用https://www.doczj.com/doc/0a14249380.html,中的Command类并配合SQL语句获取和更新数据库数据。充分利用对象的继承性和多态性完成所有基础数据的增加、修改和删除。 三、实验环境（所使用的平台和相关软件） Windows XP Microsoft Visual Studio 2010 关系数据库：scores.mdb
处理器 Intel(R) Core(TM)2 Duo CPU T8100 @ 2.10GHz 2.10GHz 内存(RAM) 2.0 GB 系统类型 32位操作系统 四、实验步骤（设计思想和实现步骤） 1访问数据库 ①启动visualstudio，打开“学生成绩管理系统”项目，打开“浏览”窗体 ②打开工具箱窗口，单击所有windows窗体中的splitcontainer控件，置于浏览窗体，设置其Dock属性为Fill，orientation属性为horizontal。 ③打开工具箱，单击datagridview控件，在splitcontainer控件的上部单击，将datagridview 控件命名为“dgv上区域”，设置Dock属性为fill ④同步骤三，在splitcontainer控件的下部用datagridview控件建立另一个显示区域，命名为“dgv下区域”，设置Dock属性为Fill。 ⑤在浏览窗体中单击上区域右上角的箭头，打开DataGridView任务向导，不要选中启用添加，启用编辑，启用删除三个复选框，添加项目数据源，打开数据源配置向导。
VB使用ADODB操作数据库的常用方法 ADO常用方法 下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸 准备工作 ======== Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等 于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常 需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String'创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$ '以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码 FileName = App.Path & "\'数据库名'" DbIp = "数据库地址" DbName = "数据库名" DbUser = "数据操作员用户名" DbPw = "操作员密码" '以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量 '1)连接Access数据库: '------------------- CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data so urce=" & FileName & ";Jet OLEDB:Database Password=" & DbPw '2)连接Oracle数据库:
VBNET数据库编程基础教程 众所周知，https://www.doczj.com/doc/0a14249380.html,自身并不具备对数据库进行操作的功能，它对数据库的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中，https://www.doczj.com/doc/0a14249380.html,又是.NET FrameWork SDK中重要的组成部分。要了解https://www.doczj.com/doc/0a14249380.html,的数据库编程，首先要明白https://www.doczj.com/doc/0a14249380.html,的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍https://www.doczj.com/doc/0a14249380.html,数据库访问对象以及https://www.doczj.com/doc/0a14249380.html,数据库编程基本方法。 一、https://www.doczj.com/doc/0a14249380.html,数据库访问对象 (一)https://www.doczj.com/doc/0a14249380.html,简介 https://www.doczj.com/doc/0a14249380.html,是由微软Microsoft ActiveX Data Object(ADO)升级发展而来的。是在.NET中创建分布式数据共享程序的开发接口。https://www.doczj.com/doc/0a14249380.html,的数据存取API提供两种数据访问方式，分别用来识别并处理两种类型的数据源，即SQL Server 7.0(及更高的版本)和可以通过OLE DB进行访问的其他数据源。为此ADO.NE T中包含了两个类库，System.Data.SQL库可以直接连接到SQL Server的数据，System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Acces s数据。 (二)https://www.doczj.com/doc/0a14249380.html,的名称空间 https://www.doczj.com/doc/0a14249380.html,是围绕System.Data基本名称空间设计，其他名称空间都是从Syste m.Data派生而来。它们使得https://www.doczj.com/doc/0a14249380.html,不仅访问DataBase中的数据，而且可以访问支持OLE DB的数据源。 当我们讨论https://www.doczj.com/doc/0a14249380.html,时，实际讨论的是System.Data和System.Data.OleDb 名称空间。这两个空间的所有类几乎都可以支持所有类型的数据源中的数据。这里我们讨论与后文实例有关的类。即OleDbconnection、OleDbDataAdapter、D ataSet和DataView。 上面列举的类中没有OleDb前缀的，派生自System.Data空间，有此前缀的派生自System.Data.OleDb空间。在使用中，如果要引用OleDb前缀的类，必须导入System.Data.OleDb名称空间。语法如下： Imports System.Data.OleDb 使用没有此前缀的类必须导入System.Data名称空间。语法如下： Imports System.Data
这里以链接acｃｅss数据库为例。 第一部分就是通过语句链接，第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ Dim rs Ａs New AＤＯDB、Recｏrdset Dｉm cｏnｓtｒAｓStrｉｎg 2、给这些变量赋值，方便链接数据库 coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 ３、打开数据库 ｃn、opｅｎconstr 打开表 ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn 取字符串并赋值给相应得文本 Text1、text=rs、ｆields（“效应与现象名称”) Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”） 关闭表 rｓ、cloｓe 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提
示出错得,这样得话，在窗口上建立两个文本框就够了。 但就是，在此之前还有一步一定要做， 点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所 示:
显示得结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下: Pｒｉｖａte Sｕb Form＿Load() Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ Dim cｏnstｒＡｓStｒinｇ coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿ "Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb" '空格加短下划线表示续行 cｎ、ｏpen cｏｎsｔｒ ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称") Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂)
https://www.doczj.com/doc/0a14249380.html,操作MySQL数据库方法 1.连接数据库 1)下载Connector/Net: https://www.doczj.com/doc/0a14249380.html,/downloads/connector/net/ 2)安装Connector/Net. 3)在https://www.doczj.com/doc/0a14249380.html,工程中，选择Project->Add Reference…菜单，添加MySQl.data 引用，如下图所示： 4)在需要连接数据的文件中添加一行，以打开namespace： Imports MySql.data.MySqlClient 5)创建一个数据库连接 m_strConnection ="server=127.0.0.1;uid=root;pwd=12345;database=computer; pooling=false" m_SqlConn = New MySqlConnection(m_strConnection)
2.显示数据 1)创建一个数据库适配器 Dim strQuery As String = "select * from Product" Dim daAdapter As MySqlDataAdapter = New MySqlDataAdapter(strQuery, m_SqlConn) 2)创建一个Datatable，用数据库适配器来填充datatable Dim dsTable As DataTable = New DataTable(strDataset) daAdapter.Fill(dsTable) 3)绑定datatable到DataGrid控件 dbGridShow.SetDataBinding(dsTable, "") dbGridShow.Visible = True 3.获取表中的某一行某一列 ‘获得指定行 Dim CurRow As Integer CurRow = dbGridShow.CurrentRowIndex Dim tbl As DataTable = dbGridShow.DataSource Dim Row As DataRow = tbl.DefaultView(CurRow).Row '根据当前选定的行得到Delete操作的SQL语句 Dim strDelete As String strDelete = "delete from T_Bars where name = '" + Row("name") + "'" 4.修改或删除数据 '定义操作的SQL语句 Dim strSql As String strSql = "insert into Product(maker,model,type) values('"…”) '创建SqlCommand对象 Dim myCommand As MySqlCommand = New MySqlCommand(strInsertCommand, m_SqlConn) ‘执行操作 m_SqlConn.Open() nRows = myCommand.ExecuteNonQuery()
'https://www.doczj.com/doc/0a14249380.html, 连接SQL数据库的方法(一) [采用数据集] '================================================== ' 在窗体上添加一个DataGrid控件命名为DataGrid1.在窗体加载事件Load里写入以下代码： Dim 数据库连接As New OleDb.OleDbConnection("Provider=SQLOLEDB;User ID=sa;Password=;Initial Catalog=FKapp;data Source=.") ' 这里<连接字符串>"'<连接字符串>可以自动生成(Connect Timeout=30)超时时间30秒 ' 或数据库连接.ConnectionTimeout =30 Dim 数据适配器As New OleDb.OleDbDataAdapter("select * from tab_load", 数据库连接) ' 这里是SQL语句 Dim 数据集As New DataSet '定义一个数据集 数据适配器.Fill(数据集, "tab_load") '加载数据到数据集 DataGrid1.DataSource = 数据集.Tables("tab_load") '显示出数据 MsgBox("这是数据集中第0 张表的第2行的name列的数据：" & 数据集.Tables(0).Rows(2)("name")) MsgBox("这是数据集中第0 张表的第0行第0列的数据：" & 数据集.Tables(0).Rows(0).Item(0)) MsgBox("这是数据集中tab_load表的第1行的password列的数据：" & 数据集.Tables("tab_load").Rows(1).Item("password")) 'https://www.doczj.com/doc/0a14249380.html, 连接SQL数据库的方法(二) [采用数据读取器] '===================================================== ' 在窗体上添加一个ComboBox控件命名为ComboBox1.在窗体加载事件Load里写入以下代码： '创建连接 Dim 数据库连接As New OleDb.OleDbConnection("Provider=SQLOLEDB;User ID=sa;Password=;Trusted_Connection=yes;Initial Catalog=FKapp;data Source=.") '连接打开 数据库连接.Open() '定义SQL查询语句 Dim SQL语句As OleDb.OleDbCommand = New OleDb.OleDbCommand("select * from tab_load", 数据库连接) '读取数据源行记录 Dim 数据读取器As OleDb.OleDbDataReader 数据读取器= SQL语句.ExecuteReader '发送SQL语句 Do While 数据读取器.Read '循环获得记录 https://www.doczj.com/doc/0a14249380.html,boBox1.Items.Add(Trim(数据读取器.Item("name"))) '添加数据项目到ComboBox列表中 Loop 数据库连接.Close() '关闭连接