vb中ado操作数据库（精选10篇）
vb中ado操作数据库 第1篇
在MSDN上找了一个例子，比较详细，关于ADO，在MSDN上有详细的说明，在 VB 文档-平台SDK- 数据库 和信息服务- 关键词：Access, VBScript, ADO, Visual Basic 该范例演示运行来自 Command 对象和 Connection 对象的 Execute 方法，同时使用 Requery 方法检
在MSDN上找了一个例子，比较详细，关于ADO，在MSDN上有详细的说明，在VB文档-平台SDK-数据库和信息服务-
关键词：Aclearcase/“ target=”_blank“ >ccess, VBScript, ADO, Visual Basic
该范例演示运行来自 Command 对象和 Connection 对象的 Execute 方法。同时使用 Requery 方法检索记录集中的当前数据，并用 Clear 方法清除 Errors 集合的内容。运行该过程需要 ExecuteCommand 和 PrintOutput 过程。
Public Sub ExecuteX()
Dim strSQLChange As String
Dim strSQLRestore As String
Dim strCnn As String
Dim cnn1 As ADODB.Connection
Dim cmdChange As ADODB.Command
Dim rstTitles As ADODB.Recordset
Dim errLoop As ADODB.Error
注释： 定义两个 SQL 语句作为命令文本执行。
strSQLChange = ”UPDATE Titles SET Type = “ & _
”注释：self_help注释： WHERE Type = 注释：psychology注释：“
strSQLRestore = ”UPDATE Titles SET Type = “ & _
”注释：psychology注释： WHERE Type = 注释：self_help注释：“
注释： 打开连接。
strCnn = ”Provider=sqloledb;“ & _
”Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; “
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
注释： 创建命令对象。
Set cmdChange = New ADODB.Command
Set cmdChange.ActiveConnection = cnn1
cmdChange.CommandText = strSQLChange
注释： 打开标题表。
Set rstTitles = New ADODB.Recordset
rstTitles.Open ”titles“, cnn1, , , adCmdTable
注释： 打印原始数据报告。
Debug.Print _
”Data in Titles table before executing the query“
PrintOutput rstTitles
注释： 清除 Errors 集合的外部错误。
cnn1.Errors.Clear
注释： 调用 ExecuteCommand 子例程执行 cmdChange 命令。
ExecuteCommand cmdChange, rstTitles
注释： 打印新数据报告，
Debug.Print _
”Data in Titles table after executing the query“
PrintOutput rstTitles
注释： 使用 Connection 对象的 execute 方法执行 SQL 语句以恢复数据。
注释： 捕获错误，必要时检查 Errors 集合。
On Error GoTo Err_Execute
cnn1.Execute strSQLRestore, , adExecuteNoRecords
On Error GoTo 0
注释： 通过再查询记录集检索当前数据。
rstTitles.Requery
注释： 打印已恢复数据的报告。
Debug.Print ”Data after executing the query “ & _
”to restore the original information“
PrintOutput rstTitles
rstTitles.Close
cnn1.Close
Exit Sub
Err_Execute:
注释： 将任何由执行查询引起的错误通知用户。
If Errors.Count >0 Then
For Each errLoop In Errors
MsgBox ”Error number: “ & errLoop.Number &vbCr & _
errLoop.Description
Next errLoop
End If
Resume Next
End Sub
Public Sub ExecuteCommand(cmdTemp As ADODB.Command, _
rstTemp As ADODB.Recordset)
Dim errLoop As Error
注释： 运行指定的 Command 对象。捕获错误，必要时检查 Errors 集合。
On Error GoTo Err_Execute
cmdTemp.Execute
On Error GoTo 0
注释：通过再查询记录集检索当前数据。
rstTemp.Requery
Exit Sub
Err_Execute:
注释： 将任何由执行查询引起的错误通知用户。
If Errors.Count >0 Then
For Each errLoop In Errors
MsgBox ”Error number: “ & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End If
Resume Next
End Sub
Public Sub PrintOutput(rstTemp As ADODB.Recordset)
注释： 枚举 Recordset。
Do While Not rstTemp.EOF
Debug.Print ”“ & rstTemp!Title & _
”, " & rstTemp!Type
rstTemp.MoveNext
Loop
End Sub
原文转自：www.ltesting.net
vb中ado操作数据库 第2篇
在MSDN中，.net的数据库连接字符串都有详细的说明，我这里以代码范例的方式罗列一些，具体的每一项代表的意义可以参看MSDN.
ADO.net 中数据库连接方式(微软提供)
微软提供了以下四种数据库连接方式：
System.Data.OleDb.OleDbConnection
System.Data.SqlClient.SqlConnection
System.Data.Odbc.OdbcConnection
System.Data.OracleClient.OracleConnection
下面我们以范例的方式，来依次说明：
System.Data.SqlClient.SqlConnection
常用的一些连接字符串(C#代码)：
SqlConnection conn
= new SqlConnection( “Server=(local);Integrated Security=SSPI;database=Pubs”);
SqlConnection conn
= new SqlConnection(“server=(local)NetSDK;database=pubs;Integrated Security=SSPI”);
SqlConnection conn = new SqlConnection(
“Data Source=localhost;Integrated Security=SSPI;Initial Catalog=Northwind;”);
SqlConnection conn = new SqlConnection(
“ data source=(local);initial catalog=xr;integrated security=SSPI;
persist security info=False;workstation id=XURUI;packet size=4096; ”);
SqlConnection myConn= new
System.Data.SqlClient.SqlConnection(“Persist Security Info=False;Integrated
Security=SSPI;database=northwind;server=mySQLServer”);
SqlConnection conn = new SqlConnection(
“ uid=sa;pwd=passwords;initial catalog=pubs;data source=127.0.0.1;Connect Timeout=900”);
更多字符串连接说明请看MSDN：
msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemDataSqlClientSqlConnectionClassConnectionStringTopic.asp
System.Data.OleDb.OleDbConnection
常用的一些连接字符串(C#代码)：
OleDbConnection conn = new OleDbConnection(@“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:MyWeb81�5GrocerToGo.mdb”);
OleDbConnection conn = new OleDbConnection(
@“Provider=Microsoft.Jet.OLEDB.4.0;Password=;
User ID=Admin;Data Source=grocertogo.mdb;”);
OleDbConnection conn = new OleDbConnection(
“Provider=MSDAORA; Data Source=ORACLE8i7;Persist Security Info=False;Integrated Security=yes”);
OleDbConnection conn = new OleDbConnection(
“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:inLocalAccess40.mdb”);
OleDbConnection conn = new OleDbConnection(
“Provider=SQLOLEDB;Data Source=MySQLServer;Integrated Security=SSPI”);
更多字符串连接说明请看MSDN：
msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemDataOleDbOleDbConnectionClassConnectionStringTopic.asp?frame=true
System.Data.OracleClient.OracleConnection
常用的一些连接字符串(C#代码)：
OracleConnection myConn = new System.Data.OracleClient.OracleConnection(
“Data Source=Oracle8i;Integrated Security=yes”);
更多字符串连接说明请看MSDN：
msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemDataOracleClientOracleConnectionClassConnectionStringTopic.asp?frame=true
System.Data.Odbc.OdbcConnection
常用的一些连接字符串(C#代码)：
OdbcConnection conn = new OdbcConnection(
“Driver={SQL Server};Server=MyServer;Trusted_Connection=yes;Database=Northwind;”);
OdbcConnection conn = new OdbcConnection(
“Driver={Microsoft ODBC for Oracle};Server=ORACLE8i7;
Persist Security Info=False;Trusted_Connection=yes”);
OdbcConnection conn = new OdbcConnection(
“Driver={Microsoft Access Driver (*.mdb)};DBQ=c:in wind.mdb”);
OdbcConnection conn = new OdbcConnection(
“Driver={Microsoft Excel Driver (*.xls)};DBQ=c:inook1.xls”);
OdbcConnection conn = new OdbcConnection(
“Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=c:in”);
OdbcConnection conn = new OdbcConnection(“DSN=dsnname”);
更多字符串连接说明请看MSDN：
msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemDataOdbcOdbcConnectionClassConnectionStringTopic.asp?frame=true
其他厂商提供的数据库连接：
DB2Connection myConn = new IBM.Data.DB2.DB2Connection(
“DATABASE = SAMPLE;UID=; PWD=
;”);
DB2Connection myConn = new IBM.Data.DB2.DB2Connection(“DATABASE = SAMPLE”);
BdpConnection myConn = new Borland.Data.Provider.BdpConnection(“assembly=Borl
and.Data.Mssql,Version=1.1.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;ve
ndorclient=sqloledb.dll;osauthentication=False;database=;usernam
e=;hostname=;password=
;provider=MSSQL”);
BdpConnection myConn = new Borland.Data.Provider.BdpConnection(“assembly=Borl
and.Data.Db2,Version=1.1.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;ve
ndorclient=db2cli.dll;database=;username=;
password=
;provider=DB2”);
Connection Pooling
在SQL Server、OLE DB和.NET框架结构中的Data Provider中，都提供了隐式的连接池连接支持，
ADO.net中数据库连接方式数据库教程
，
你可以在ConnectionString中指定不同的参数值控制连接池的行为。比如下面的例子使OLE DB的连接池无效并自动地进行事务处理：
Provider=SQLOLEDB;OLE DB Services=-4;Data Source=localhost;Integrated Security=SSPI;
在SQL Server.NET Data Provider中提供了以下参数设置控制连接池的行为：Connection Lifttime、Connection Reset、Enlist、Max Pool Size、Min Pool Size和Pooling。
更多数据库连接信息，以及非ADO.net的连接字符串可以参看：
www.connectionstrings.com/
VB中ADO访问数据库技术探讨 第3篇
关键词：数据库访问,ADO,对象模型
0 引言
Visual Basic是一种可视化的、事件驱动运行机制的Windows应用程序开发工具, 在数据库开发方面具有强大的功能。目前在Visual Basic中开发数据库程序主要有DAO、RDO、A-DO3种数据库开发技术。其中最流行的是ADO。它是建立在基于低层数据访问接口OLE DB (Objects Link and Embedding Data Base, 对象连接与嵌入数据库) 技术上的数据对象。
ADO设计为一种极简单的格式, 通过ODBC的方法同数据库接口连接。用户可以使用任何一种ODBC数据源, 即不仅适合于SQL Server、Oracle、Access等数据库, 也适合于Excel表格、文本文件、图形文件和无格式的数据文件。
1 ADO对象模型及功能
ADO按照访问和更新数据源的顺序定义了一个模型, 在这个对象模型中包含了7个对象, 它们的具体功能是:
(1) Connection对象。Connection对象用于建立与数据库的连接, 通过连接可从应用程序访问数据源。它保存诸如指针类型、连接字符串、查询超时、连接超时和缺省数据库这样的连接信息。
(2) Error对象。包含数据提供程序出错时的扩展信息。
(3) Property对象。包含某个ADO对象的提供程序定义的特征。
(4) Command对象。包含关于某个命令, 例如查询字符串、参数定义等信息。在建立Connection后, 可以发出命令操作数据源。一般情况下Command对象可以在数据库中添加、删除或更新数据, 或者在表中进行数据查询。Command对象在定义查询参数或执行一个有输出参数的存储过程时非常有用。
(5) Parameter对象。包含参数化的Command对象的某单个参数的信息。该Command对象有一个包含其所有Parameter对象Parameters集合。
(6) Recordset对象。用来存储数据操作返回的记录集。Recordset对象只代表一个记录集, 这个记录集是一个连接的数据库中的表, 或者是Command对象的执行结果返回的记录集。在ADO对象模型中, 在行中检查和修改数据是最主要的方法, 所有对数据的操作几乎都是在Recordset对象中完成的。Record对象用于指定行、移动行、添加、更改、删除记录。
(7) Field对象。包含记录集中数据的某单个列的信息。掌握其中的Command、Connection、Recordset对象就可以实现基本的数据库操作。
2 使用ADO访问数据库的两种方式
在VB中, 使用ADO访问数据库主要有两种方式, 一种是非编程访问方式, 使用ADO Data控件方式, 通过对控件的绑定来访问数据库中数据, 另一种是ADO对象模型编程访问方式, 通过定义对象和编写代码来实现对数据的访问。
(1) 使用非编程访问方式ADO Data控件访问数据库。 (1) 在工具箱中添加ADO Data控件, 操作为:选择工程菜单中的部件选项, 再选择“Microsoft ADO Data Control”; (2) 在窗体上把新出现在工具栏的ADO Data控件拖入; (3) 设置相关属性。
(2) 使用编程访问方式ADO对象模型访问数据库 (可以插入代码) 。 (1) 引用ADO对象库。操作为:“工程”菜单下选择引用选项, 再选择“Microsoft Activex Data Object 2.6 Library; (2) 为了能够在程序中使用ADO对象, 首先需要声明该对象, 然后才能连接数据库进行操作。
下面是在VB中利用ADO模型进行数据库连接输出报表的一个实例程序。
3 ADO两种访问方式比较
使用ADO Data控件在连接数据库时, 不需要创建连接对象和记录集对象, 直接设置相关属性就可以了, 简化了编程, 但在功能上有所限制, 对数据库的连接在程序运行时难以改变, 在访问大型数据库时效率比较低。如果通过对象模型编程方式连接数据库时, 则对数据库的操作非常灵活, 效率上也会大大提高。
4 结束语
ADO是DAO/RDO的后继产物, 作为最新的数据库访问模式, 微软已经明确表示今后把重点放在ADO上, 已经成为了当前数据库开发的主流。它具有功能强、通用性好、效率高、占空间少等特点。通过对ADO Data控件属性设置和利用ADO对象模型编程来访问数据库的两种方式都体现了这些特点, 我们在实际开发中, 对数据库的操作更适合采用对象模型编程方式, 以便更灵活地对数据库进行操作。
参考文献
[1]肖必武.Visual basic程序设计[M].北京:中国铁道出版社, 2007.
vb中ado操作数据库 第4篇
关键词VB计算机基础 操作教学 批阅软件
运用VB优化了计算机基础教学,实际教学中的效果良好。本文对此进行了研究。
一、界面设计与文件结构
界面设计:按照软件结构图设计好界面。文件结构:设计好每一套试题,并建立好相应的目录。题目少可以用文本文件来存储。题目多可以用Access数据库来存储。这样只要给数据库设置个密码就可以保证题库的安全性了。开发工具采用VB,一是因为VB适合快速开发,相对于VC等开发软件更易于上手,而且开发的效率高、周期短。二是因为Word、Excel等office软件里的宏都是VBA,而VBA是VB的一个子集,两者可以很好地结合,并且利用宏可以帮助快速有效地写出阅卷程序。
二、选题
设计好界面和题目后就可以编写各功能模块的代码了。当学生选择某一套试卷后,就要执行选题操作。对文件和文件夹进行操作需要使用FSO(File System Object)对象模型,FSO的功能非常强大,它能创建、改变、移动、删除文件/文件夹;能检测文件、文件夹是否存在,文件、文件夹的路径;能获取文件、文件夹的信息,如:名称、创建日期等。要使用FSO,首先必须在工程中引用Microsoft Scripting Runtime。采用与题库中各库表对应的试卷表———理论试卷表、操作系统试卷表、文档处理表等。
下面以抽取单选题为例说明其组卷过程如下:
(1)考试要求库。
(2)取出单选题题量。
(3)从单选题库中筛选符合要求(范围)的题目。
(4)判断题数<题量,若是则显示错误信息,退出。
(5)抽题数=0。
(6)判断抽题数<=题量,否则进入下一大题抽取。
(7)产生在1———题数范围内的随机整数。
(8)判断该题是否抽过,若是则返回(7),重新产生。
(9)抽取该题入理论题库。
(10)抽题数增加1,返回。
(11)抽取下一大题。选题主要使用了FSO复制文件和复制文件夹这两个方法,及CopyFile和CopyFolder。部分代码如下:Public Ex(5)As String'定义一个字符串数组用于存放试卷名Public fso As New FileSystemObject'定义一个fso对象Private Sub Form_Load()'窗体显示时初始化Ex()数组中的值Ex(1)="试卷一"Ex(2)="试卷二"Ex(3)="试卷三"Ex(4)="试卷四"Ex(5)="试卷五"End Sub因为每一个选题按钮的功能都是类似的,惟一不同的就是所抽取的试题名称不一样,所以可以将选题按钮做成按钮控件数组,以提高程序开发效率,也便于以后的源程序维护。这样,将试题的文件名用数组变量来表示,就可以用一段程序来实现所有按钮的选题功能。Private Sub Button1_Click(Index As Integer)'当点击某一套的按钮后执行选题操作fso.CreateFolder“(c:考生文件夹”)'在c盘下建立考生文件夹,路径和目录名可自已设定。fso.CopyFile App.Path&“xxjshkExcel”&Ex(in-dex)&“.xls”,“C:考生文件夹”&Ex(index)&“.xls”'复制Excel试题文件fso.CopyFolder App.Path&"xxjshkWebDo",“C:考生文件夹WebDo”'复制网页试题文件夹End Sub上述主要以复制Excel试题为例,复制其它试题方法类似。判断文件或文件夹是否存在通常使用fso的FileExists()和FolderExists()方法。
三、阅卷功能的实现
学生做完练习题后,需要点击“阅卷”按钮来反馈成绩。计算机教学中常见的操作试题类型有:Windows操作题、Word操作题、Excel操作题、PowerPoint操作题、Internet操作题等。下面介绍了Windows操作题操作题的阅卷原理。
没有编写过练习软件的老师可能会觉得很难,怎么知道学生有没有对文件执行新建、复制、剪切等操作呢?其实根本没必要去知道,不可能去写大量的代码来截取捕捉鼠标和键盘事件,看学生有没有执行这些操作,这样有些小题大做了。其实Windows操作题的阅卷非常简单,原理如下:新建、删除、重命名、复制、剪切、创建快捷方式就是判断该文件或文件夹是否存在。
判断文件夹是否存在:fso.FolderExists
判断文件是否存在:fso.FileExists
例如:If fso.FolderExists("C:单元二WinWorkFlowerBmp")=True Then score=score+5If fso.FileExists("C:单元一WinWorkNoipa.pas")=True Then score=score+5设置墙纸、屏保主要就是读取注册表中相关的键值。VB读取注册表:可以使用API函数RegOpenKeyEx、RegQueryValueEx、RegCloseKey来对注册表进行打开、查询等操作,并通过读取相对应的键值来判断墙纸、屏保的设置。
四、结语
运用VB优化了计算机基础教学,可以将教师从繁琐的教学环节中解放出来,节省了大量的人力、物力,使教师有更多的时间与精力放在题目的科学性建设中和教学内容、教学方法的钻研中。
参考文献:
[1]李雅琴.信息技术的应用、发展与创新人才的培养[A].中国教育技术协会2004年年会论文集[C].2004.
vb中ado操作数据库 第5篇
数据的内存中表示形式
在 ADO 中，数据的内存中表示形式为记录集。在 ADO.NET 中，它为数据集。它们之间有重要的差异。
表的个数
记录集看起来像单个表。如果记录集将包含来自多个数据库表的数据，则它必须使用 JOIN 查询，将来自各个数据库表的数据组合到单个结果表中。
相反，数据集是一个或多个表的集合。数据集内的表称为数据表；明确地说，它们是 DataTable 对象。如果数据集包含来自多个数据库表的数据，它通常将包含多个 DataTable 对象。即，每个 DataTable 对象通常对应于单个数据库表或视图。这样，数据集可以模仿基础数据库的结构。
数据集通常还包含关系。数据集内的关系类似于数据库中的外键关系，即它使多个表中的行彼此关联。例如，如果数据集包含一个有关投资者的表和另一个有关每个投资者的股票购买情况的表，则数据集可能还包含一个关系来连接投资者表的各个行和购买表的对应行。
由于数据集可以保存多个独立的表并维护有关表之间关系的信息，因此它可以保存比记录集丰富得多的数据结构，包括自关联的表和具有多对多关系的表。
数据导航和游标
在 ADO 中，您使用 ADO MoveNext 方法顺序扫描记录集的行。在 ADO.NET 中，行表示为集合，因此您可以像依次通过任何集合那样依次通过表，或通过序号索引或主键索引访问特定行。DataRelation 对象维护有关主记录和详细资料记录的信息，并提供方法使您可以获取与正在操作的记录相关的记录。例如，从 Investor 表的“Nate Sun”的行开始，可以定位到 Purchase 表中描述其购买情况的那组行。
“游标”是数据库元素，它控制记录导航、更新数据的能力和其他用户对数据库所做更改的可见性。ADO.NET 不具有固有的游标对象，而是包含提供传统游标功能的数据类。例如，在 ADO.NET DataReader 对象中提供只进、只读游标的功能。有关游标功能的更多信息，请参见数据访问技术。
将打开连接的时间降至最低
在 ADO.NET 中，打开连接的时间仅足够执行数据库操作，例如“选择”(Select) 或“更新”(Update)，
您可以将行读入数据集中，然后在不保持与数据源的连接的情况下使用它们。在 ADO 中，记录集可以提供不连接的访问，但 ADO 主要是为连接的访问设计的。
ADO 和 ADO.NET 中的不连接处理之间存在一个显著差异。在 ADO 中，通过调用 OLE DB 提供程序来与数据库通信。但在 ADO.NET 中，您通过数据适配器（OleDbDataAdapter、SqlDataAdapter、OdbcDataAdapter 或OracleDataAdapter 对象）与数据库通信，这将调用 OLE DB 提供程序或基础数据源提供的 API。ADO 和 ADO.NET 之间的主要区别在于：在 ADO.NET 中，数据适配器允许您控制将对数据集所做的更改传输到数据库的方式，方法是实现性能优化、执行数据验证检查或添加其他任何额外处理。
注意 数据适配器、数据连接、数据命令和数据读取器是组成 .NET Framework 数据提供程序的组件。Microsoft 和第三方供应商可能会提供其它提供程序，这些提供程序也可集成到 Visual Studio 中。有关不同 .NET 数据提供程序的信息，请参见 .NET 数据提供程序。
在应用程序间共享数据
在应用程序间传输 ADO.NET 数据集比传输 ADO 不连接的记录集要容易得多。若要将 ADO 不连接的记录集从一个组件传输到另一个组件，请使用 COM 封送。若要在 ADO.NET 中传输数据，请使用数据集，它可以传输 XML 流。
相对于 COM 封送，XML 文件的传输提供以下便利之处：
更丰富的数据类型
COM 封送提供一组有限的数据类型（由 COM 标准定义的那些类型）。由于 ADO.NET 中的数据集传输基于 XML 格式，所以对数据类型没有限制。因此，共享数据集的组件可以使用这些组件一般会使用的任何丰富的数据类型集。
性能
传输大型 ADO 记录集或大型 ADO.NET 数据集会使用网络资源；随着数据量的增长，施加于网络的压力也在增加。ADO 和 ADO.NET 都使您可以最大限度地降低所传输的数据。但 ADO.NET 还提供另一个性能优势：ADO.NET 不需要数据类型转换。而需要 COM 封送来在组件间传输记录集的 ADO，则需要将 ADO 数据类型转换为 COM 数据类型。
穿透防火墙
防火墙可以影响试图传输不连接的 ADO 记录集的两个组件。请记住，防火墙通常配置为允许 HTML 文本通过，但防止系统级请求（如 COM 封送）通过。
因为组件使用 XML 交换 ADO.NET 数据库，所以防火墙可以允许数据集通过。
vb中ado操作数据库 第6篇
在VB的应用开发中, 访问数据库的要领可归纳为两种。一种是ADO的数据源对表中的数据直接使用, 另一种是SQL语句对数据库中的数据间接使用, 对表中的数据进行检索和统计。ADO是Visual Basic 5.0使用的数据访问技能, 中文含意是Active X数据工具 (Active X Data Object) , 它是一种面向工具的接口。
1 开发原型
我们为盘算机产物经销商开发一个进销存的情况。用MS Access数据库创建的数据库名叫ware.mdb。在这个数据库中, 创建表1, 表2, 表3, 表4。
2 ADO的使用要领
ADO2.0存在于Visual Basic 6.0的两个独立的库中。第一个称为ADODB, 在这个库中包罗了全部的ADO工具。在References对话框中这个库称为Microsoft Active X Data Objects Recordset 2.1 Library这个库只包罗对Recordsets的支持。下面介绍一下Recordset工具的使用要领。在visual basic中加入如下代码:
这样就可以对商品明细表追加纪录:
获取表中的纪录数:
移动纪录指针
my Recordset.Move First'移动到表的第一条纪录
my Recordset.Move Last'移动到表的最末一条纪录
my Recordset.Move Previous'移动到表的上一条纪录
my Recordset.Move Next'移动到表的下一条纪录
删除当前纪录
关闭纪录集, 开释纪录集变量
3 SQL的使用
上面所用的要领, 只适用于对单个表的简略使用。要是对表的数据作庞大访问或数据统计, 用上述要领就非常不方便。平常情况下我们用SQL语言和Connection工具实现SQL语句中最常用的是Select语句。该语句用来从数据库表中检索数据完成其他一些功能。为了使用这条语句你必须知道你要检索的字段名称, 直接用星号来检索全部字段。下面是Select语句的基本语法:
其中:
ALL界说每一行都将返回, 包罗重复纪录。
DISTINCT界说只返回不重复的纪录。
select_list列出要检索的表的列名。
table_name列出要检索的表名
search_criteria列出要检索的表的列名
join_criteria列出一个表中用来和另一个表的某个列毗连的列名
aggregate_free_expression是一个不包罗聚集的表达式。
Field_list列出了数据排序的序次
ASC升序排序
DESC降序排序。
下面举例说明。
盼望检索商品名细表中的信息可使用如下语句:
SELECT*FROM waredetial
关键字ORDER BY要求列名以确定按哪一列排序。这里选定按ware ID排序, 要是想选择多列, 使用下面的语句
SELECT ware ID, ware Name FROM wareDetial ORDER BY ware ID
用WHERE子句来限定选择领域。要是想选择ware Detial中ware Name列值为"cisco6000"的行。可用下面的代码实现:SELECT*FROM ware Detial WHERE ware Name="cis-co6000"ORDER BY ware ID
除了SELECT语句, SQL语句还有IN-SERT UPDATE DELETE等, 在此不再作具体介绍。
先创建一个与数据库的毗连
若要统计发生某种商品的总进货数以及总出货数可用以下代码:
结束语
这里所枚举的仅仅是ADO和SQL的用法的一小部, 现实的应用中对ADO的使用、ADO控件=DATAGRID控件等体现数据也很方便。
参考文献
[1]Rob Thayer.Visual Basic 6揭秘[M].北京:电子产业出版社.[1]Rob Thayer.Visual Basic 6揭秘[M].北京:电子产业出版社.
[2]蒋斌.Visual Basic 6.0步伐计划[M].北京:电子产业出版社.[2]蒋斌.Visual Basic 6.0步伐计划[M].北京:电子产业出版社.
vb中ado操作数据库 第7篇
vb中ado操作数据库 第8篇
1 Visual Basic数据库访问技术
使用VB6.0可以创建将每个步骤封装在数据访问系统中的部件。从数据源开始, Microsoft可视化数据工具提供了在SQL和Oracle系统中查看并操作表、视图、存储过程和数据库结构描述的功能[1]。数据源是数据提供程序和数据使用者之间的桥梁, 可以通过ADO (Microsoft Active X Data Objects) 创建数据源。ADO是VB在任何数据源中访问数据的主要方法。
开发基于VB的数据库应用, 可以通过数据访问对象DAO (Data Access Object) 、远程数据对象RDO (Remote Data Object) 和Ac⁃tive X数据对象ADO (Active X Data Objects) 等三种数据访问接口。数据访问接口是一个对象模型, 它代表了访问数据的各个方面。使用VB, 可以在任何应用程序中通过编程控制连接、语句生成器和供使用的返回数据[1]。
对于这三种数据接口, 每一种方法都代表着数据访问技术发展的不同阶段以及逐步完善的过程。ADO技术是最新的接口技术, 比RDO和ADO更加的简单、灵活, 通过较少的对象, 实现了更多的属性、方法及事件的融合。在简化编程的同时, 实现了更高效率的数据访问。
2 ADO数据访问技术
ADO Data控件时VB6.0提供的一个Active X控件, 使用ADO Data控件可以快速建立数据绑定的控件和数据提供者之间的连接[3]。
2.1 VB环境下ADO Data控件的添加
利用ADO Data控件可以实现本地数据库或远程数据的连接;可以打开用户指定的数据库表, 定义基于SQL语言的查询、增删数据库表中的记录集合;还可以传递字段数值给数据绑定的控件, 也可以在控件中显示或修改数值。
要使用ADO Data控件, 需要现在VB下的“工程”菜单上选择“部件”选项, 然后在“部件”对话框中选择“Microsoft ADO Data Control 6.0 (OLEDB) ”选项, 单击确定按钮后, 即可在VB的控件工具箱内使用ADO Data控件。通过该控件就可以直接访问记录集, 移动记录指针, 实现对数据库的操作, 不再需要程序代码的编写。
2.2 ADO Data控件的主要属性
2.2.1 Connection String属性
连接属性用来建立到数据源的连接信息。由于VB的ADO对象模型可以连接不同类型的数据库, 所以在使用ADO Data控件时也可通过这个属性设置要连接的数据库。可以通过三种连接资源选项建立与数据源的连接, 即使用Data Link文件、使用ODBC数据资源名称和使用连接字符串三个选项完成数据链接。
2.2.2 Record Source属性
记录源属性用于设置要连接的表或者SQL查询语句。命令类型选择默认, 在命令文本 (SQL) 中输入SQL语句。如:select*from oper
2.2.3 Command Type属性
用来指定Record Source属性的取值类型。可以直接在属性窗口的Command Source属性的下拉列表中选择需要的类型, 有以下4个不同的取值:
ad Cmd Unknow默认值, 表示命令文本中的命令类型未知。
ad Cmd Table表示将命令类型作为其列全部由内部生成的SQL查询返回的表格的名称进行计算。
ad Cmd Text表示将命令文本作为命令或存储过程调用的文本化定义进行计算。
ad Cmd Store Proc表示将命令文本作为存储过程名进行计算。
3 数据源的创建
3.1 创建SQL Server数据库
在SQL Server 2005中设计一个仓库信息管理数据库, 数据库命名为WMS, 其中设计包含如下数据表:Client (客户表) 、Store⁃house (仓库信息表) 、Oper (用户表) 、Pro Type (产品类目表) 、Product (产品信息表) 、Store In (入库操作信息表) 、Take Out (出库操作信息表) 、Pro In Store (库存产品信息表) 。
3.2 创建数据源
第一步打开控制面板中的管理工具, 双击数据源 (ODBC) , 显示ODBC数据源管理器, 选择“系统DSN”选项卡, 如图1所示。
从系统数据源列表中选择“WMS”选项 (这是在SQL Server中建立的数据库的名称) , 单击“配置”按钮, 出现如图2所示的界面。
第二步从驱动程序列表中选择“SQL Server”选项, 单击“完成”按钮, 按照界面提示, 保持数据源名称为“WMS”, 其他选择默认选项完成数据源的创建。直至ODBC Microsoft SQL Server安装界面的出现, 表示成功配置了新的数据源, 如图3所示。
第三步单击“测试数据源”按钮, 出现如图4所示的SQL数据源测试界面, 界面信息显示命名为WMS的数据源测试成功, 这样在应用程序中就可以使用这个数据源了。
4 VB环境下利用ADO Data控件访问数据库
4.1 数据库表设计
打开SQL Server 2005, 在仓库信息管理数据库WMS中添加oper表。该表用来存放本系统用户的信息。基本数据包括用户名、密码和用户级别三项, 用户级别分为“一般操作员”和“系统管理员”两类。oper表结构如图5所示。
4.2 系统实现
4.2.1 新建工程
打开VB编辑器, 点击新建工程, 工程命名为Warehouse.vbp。首先在工程中添加公共模块Moudule1.Bas, 其中包含一些被本工程中一些窗体所调用的全局变量和过程;然后在工程中添加各个窗体, 系统结构如图4.2所示。
公共模块Moudule1.Bas代码如下:
4.2.2 登录窗口设计
pass窗体用来接受用户的用户名及口令输入, 并判断用户的合法性。如果是合法用户, 系统会自动释放该窗体并启动main窗体;否则释放窗体而不启动main窗体。该窗体运行结果如图6所示。
4.2.3 ADO Data控件在设置系统用户界面的使用
在工程中添加一个设置系统用户窗体setuser.frm, 这个窗体用来添加、删除和修改使用本系统的用户, 设计界面如图7所示, 其中包含一个ADO Data控件adodc1、一个Data Grid控件Data Grid1和四个命令按钮。
其中ADO Data控件adodc1的属性设置应该是:Caption=“adodc1”;Connection String=“DSN=WMS”;User Name=“sa”;Pass⁃word=“”;Record Source=“select*from oper”;Visible=“False”。
Data Grid控件Data Grid1的属性设置如下:Caption=“Data Grid1”;Data Source=“adodc1”。在Data Grid1窗体上单击鼠标右键, 选择“检索字段”选项, 这样就设立好了Data Grid1控件的数据源为adodc1, 从而建立了控件与数据表的数据绑定, 以显示oper表中的一系列行和列表示的记录集对象的记录和字段。通过Data Grid控件可以直接对记录集进行访问, 移动记录指针, 不需要编写代码即可实现对数据库的操作[3]。
窗体中四个命令按钮的作用:“添加”按钮用来添加新的系统用户;“修改”按钮用于修改当前用户的信息;“删除”按钮用于删除当前用户;“返回”按钮用于返回系统。
设置系统用户 (setuser) 窗体运行界面如图8所示, oper表中有两条记录。
如果用户选择“添加”按钮, 运行界面如图9所示。用户可以在“用户名”和“口令”处分别填入新建用户的信息, 并在用户级别下拉列表中进行选择“一般操作员”或“系统管理员”。然后单击“确定”按钮, 显示添加结果。如图9所示, 用户名为“SWF”、密码为“0101”、用户级别为“一般管理员”的新系统用户信息已成功添加到本系统中。
5 结束语
ADO的优势在于前端和数据源之间使用层数最少和轻量、高性能的数据访问接口, 并可通过ADO Data控件访问各种数据库。因此, ADO是如今使用最广泛、应用最成功的数据访问技术。不仅在C/S (客户端/服务器) 架构的数据库应用程序中得到认可, 在日益风靡的B/S (浏览器/服务器) 架构的Internet交互式站点建设中, 也深受开发者的青睐[4]。
笔者通过利用VB和SQL Server 2005成功开发了一个仓库信息管理系统, 实现了完全面向对象的可视化编程, 其方法简便、直观、快捷。并通过本文介绍了ADO数据访问技术, 详细讲述了ADO Data控件在VB的使用, 实现了简单快速建立控件的数据绑定及数据库的访问。
摘要：随着数据库开发技术的广泛应用, 利用Visual Basic进行C/S应用程序开发是目前较为典型的做法。该文通过一个仓库信息管理系统的设计和开发, 详细介绍了在VB环境下, 利用ADO接口技术实现与SQL Server 2005数据库连接及访问的过程。
关键词：VB,数据库访问,ADO技术
参考文献
[1]李晓黎, 张巍.Visual Basic+SQL Server数据库应用系统开发与实例[M].北京:人民邮电出版社, 2003:63-121.
[2]李哲, 许树勤, 李占青.数据库的选择及ADO技术的应用[J].机械工程与自动化, 2004 (3) .
[3]李春葆, 张植民.Visual Basic数据库系统设计与开发[M].北京:清华大学出版社, 2003.
vb中ado操作数据库 第9篇
关键词：Server,Connection, RecordSet
ADO三大对象的关系
在ADO中, 3个主体对象connection,command和recordset可实现数据源的连接,数据的操作等应用.之间的关系是密切不可分的,应用connection对象与数据库服务器之间的连接,应用command对象向数据库发出数据查询信息,应用recordset对象从数据库中取得所需的记录集.由此可见,command对象必须信赖于connection对象,而recordset对象必须信赖于connection对象和command对象,connection对象必须信赖于数据库服务器和连接状况.实现数据库存操作方法多样，下面根据本人的教学经验总结如下一些好的编程方法供大家参考。
方法一、仅使用Connection对象实现数据库操作编程；
步骤：
1.创建一个connection对象;
set con=server.createobject("adodb.connection")
2.设置con对象的连接数据库字符串信息属性(connectionstring);
con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=数据库路径"
3.使用open方法打开连接好的数据库；
con.open
4.定义好要执行的查询命令,检索命令或更新命令（插入，删除，修改）,如果是查询, 检索命令语句则直接向下写到第7步结束；如果是更新命令语句则直接跳到第8，9步执行；
5．使用execute方法执行查询命令，得到数据集对象rs；
set rs=con.execute(“查询命令”)
6. 按要求输出查询到的数据集rs到WEB页面；
response.write
7．使用close方法关闭对象，并释放rs,con对象内存空间；
rs.close set rs=nothing
con.close set con=nothing
8. 使用execute方法执行更新命令；
con.execute("更新命令")
9．使用close方法关闭对象，并释放con对象内存空间；
con.close set con=nothing
举例1：应用方法一将数据表（book）中的数据信息取出，显示在界面中。Book表见附表1：
程序清单：
<% '建立数据源的链接
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+server.mappath("date.mdb")
set conn=server.createobject("ADODB.CONNECTION")'创建conn对象
con.connectionstring= StrSQL '指定数据链接
conn.open '打开数据库
sql="select * from book "'创建查询语句
set rs=conn.execute(sql)'执行查询语句
if not rs.eof then'判断是否存在记录,并输出rs
do while not rs.eof
%>
<% rs.movenext
loop
else response.write "没有记录!"
end if
%>
范例结果显示,见附表2：
方法二、RecordSet对象实现数据库操作编程过程；
步骤：
1.创建一个connection对象;
set con=server.createobject("adodb.connection")
2.设置con对象的连接数据库字符串信息属性(connectionstring);
con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=数据库存路径"
3.使用con对象的open方法打开连接好的数据库；
con.open
4.创建一个recordset对象
set rs=server.createobject("adodb.recordset")
rs.activeconnection=con'連接数据库属性
rs.source="sql语句或存储过程或表名"'执行命令属性
rs.cursortype='游标属性
rs.locktype='锁定属性
5.使用rs对象的open方法取出数据到内存
rs.open
6．操作数据库；比如查询或更新（插入，删除，修改）操作；
rs.addnew, rs.delete, rs.update等操作;
7.使用close方法关闭对象，并释放rs,con对象内存空间；
rs.close set rs=nothing
con.close set con=nothing
举例2：应用方法二添加数据表（book）中的一条数据信息。Book表见附表1：
程序清单：
<%'建立数据源的链接
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+server.mappath("date.mdb")
set conn=server.createobject("ADODB.CONNECTION")
con.connectionstring= StrSQL
conn.open
sql="select * from book "'建立记录集对象
set rs=server.createobject("adodb.recordset")
rs.activeconnection=con'指定记录集连接数据库属性
rs.source=sql'执行命令属性
rs.cursortype=3'游标属性可前后移动
rs.locktype=3'锁定属性可读写
rs.open
rs.addnew'添加记录
rs("Name")="ASP程序员手册"
rs("Pice")=48
rs("Author")="李达"
rs("Cbsh")="人民邮电出版社"
rs("Nrjj")="学习ASP应用手册"
rs.update'更新到数据库
response.write "添加记录成功!"
%>
范例结果显示,见附表2：
结束语
本文主要针对读者要求具有ASP基础,了解ADO对象中常用的属性、方法。为了便于读者在较短时间内快速掌握ADO编程技巧，结合自己多年教学工作的实践经验，得出以上算法供大家掌握。使书写程序变得简单化了，层次化,条理清晰,步骤详尽易记忆。可以使读者直观，迅速掌握ADO数据操作对象实现程序开发。
附表1：应用范例用的数据库结构(book数据表结构)
字段值类型说明
ID自动编号主键
Name文本书名
Pice货币价格
Author文本作者
Cbsh文本出版社
Nrjj备注内容简介
附表2： (data数据库book表中数据记录)
IDNamePiceAuthorCbshNrjj
1ASP动态网站开发案例指导张喜平电子工业出版社55元网页程序开发教程
2ASP动态网站开发教程陈建伟清华大学出版社28元网页程序开发教程
3ASP程序员手册李达人民邮电48元学习ASP应用手册
参考文献：
[1].张喜平.夏跃伟.刘亚姝.ASP动态网站开发案例指导.电子工业出版社.2009.5
[2].赵增敏.朱粹丹.赵朱曦.ASP动态网页设计.电子工业出版社.2008.1
vb中ado操作数据库 第10篇
在VB的应用程序开发中,访问数据库的方法可归纳为两种。一种是通过DAO或ADO的数据源,对表中的数据进行直接操作;另一种是通过标准的SQL语句结合Connection对象,对数据库中的数据进行操作,对表中的数据进行检索和统计。DAO是Visua Basic 5.0使用的数据访问技术,它在用于访问MDB文件格式的数据库时有较高的效率,但访问如Oracle或SQL Server这样的非MDB文件格式的数据库时,因它基于Access/Jet数据库引擎,访问速度会大大降低,所以Visual Basic 6.0推出了ADO技术。
ADO中文含意是Active X数据对象(Active X Data Object),它是一种面向对象的接口。ADO访问数据库是通过访问OLE DB使用程序和OLE DB供给程序来进行的,它在封装OLE DB的程序中使用了大量的COM接口,是一种高层的访问技术,它在继承OLE DB的同时,大大简化了OLE DB的操作。此外,ADO技术可以以Active X控件的形式出现,被广泛应用于Microsoft Active X页、Visual C++和Visual Basic的编程。
SQL是管理关系数据库系统的标准语言。每一种关系数据库如Access、SQL Server、Oracle等都有它自己特有的SQL语言,但它们都支持像select、insert、update、delete、create、drop等标准语句来完成几乎所有的对数据库的操作。本文将就ADO和SQL的用法进行一些探讨。
2 使用方法
2.1 开发原型
我们将开发一个库房设备进销存的程序。用MS Access数据库,创建的数据库名叫ware.mdb.在这个数据库中,建立了四张表:表1,表2,表3,表4。
2.2 ADO的使用方法.
ADO2.0存在于Visual Basic 6.0的两个独立的库中第一个称为ADODB,在References对话框中的名字是Microsoft Active X Data Objects 2.0 Library,在这个库中包含了所有的ADO对象。对于那些并不需要太多加强的ADO资源工程,应该使用ADOR库。在References对话框中这个库称为Microsoft Active X Data Objects Recordset 2.1 Library,这个库只包含对Recordsets的支持。Visual BASIC6.0通过ADO控件和Recordset对象两种方法来使用ADO.下面介绍一下Recordset对象的使用方法。在VB中加入如下代码:
2.3 SQL的使用
上面所用的方法,只适合于对单个表的简单操作。如果是对表的数据作复杂查询,或数据统计,用上述方法就非常不方便。一般情况下我们用SQL语言结合Connection对象实现。
SQL语句中最常用的是Select语句。该语句用来从数据库表中检索数据或者完成其他一些功能。为了使用这条语句你必须知道你要检索的字段名称,或者直接用星号来检索所有字段。下面是Select语句的基本语法:
3 结束语
本文所列举的仅仅是ADO和SQL的用法的一小部分,实际的应用中对ADO的操作有时用ADO控件结合DATAGRID控件等显示数据也很方便。
参考文献
[1]苏颖,张跃华.Visual Basic数据库开发应用技术[M].北京:中国铁道出版社,2006.
[2]曹祖圣,蔡文龙,林义证.Visual Basic2005完全开发指南[M].北京:科学出版社,2007.
[3]Kraft R.Microsoft SQL Server7.0使用详解[M].北京:机械工业出版社,1999.
