VB数据库连接recordset open的语法2009-04-13 13:51ADO常用方法
下面是我所掌握的使用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 source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw
'2)连接Oracle数据库:
'-------------------
CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data Source=" & 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 FoxPro 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 & ";UID=" & 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 '返回列数
'*************************** *********************************
游标类型选项
Const adOpenForwardOnly = 0
前向游标，为缺省游标，提供最快的运行性能。用它打开recordset，从对至尾顺序取得所有结果。它不支持向后滚动，只允许在结果间单向移动。
Const adOpenKeyset = 1
静态游标，反映第一次打开游标时表中数据的状态，游标无法查明底层表中的数据行是否更新过、删除过或添加了新的数据。不过与只能前移的洲标不同，静态游标可以在结果间前后滚动。
Const adOpenDynamic = 2
键盘驱动的游标，可以查询表中底层数据行的某些变化，但不是全部。它特别是可以准确反映数据是否更新过。但它不能查明其它用户是否曾删除过数据行（删除掉的数据行在recordset中会留下空洞）。键盘驱动的游标支持在结果间前后滚动。
Const adOpenStatic = 3
动态游标，是最丰富的游标类型。游标打开时可以查询其他用户对表的任何改动，而且支持滚动。
加锁类型选项
Const adLockReadOnly = 1
缺省的上锁类型，只读方式上锁允许多个用户同时读取同样的数据，但不能改变数据。
Const adLockPessimistic = 2
以悲观上锁方式打开数据对象。该方式假定在你编辑记录时会有其它用户访问数据。此时一旦你开始编辑记录，其它用户就不能访问该数据。
Const adLockOptimistic = 3
以乐观上锁方式打开数据对象。该方式假定在你编辑记录时不会有其它用户访问数据。在完成改变之前，其它用户不能访问该记录。
Const adLockBatchOptimistic = 4
执行多行批处理更新时使用这种类型
最后，打开一个记录集时，你可以指定一个Options参数。Options参数标明用来打开记录集的命令字符串的类型。告诉ADO被执行的字符串内容的有关信息有助于高效地执行该命令字符串。
你可以使用下面的常量作为Options参数：
adCMDTable。被执
行的字符串包含一个表的名字。
adCMDText。被执行的字符串包含一个命令文本。
adCMDStoredProc。被执行的字符串包含一个存储过程名。
adCMDUnknown。不指定字符串的内容。（这是缺省值。）
在rs.open后面的参数设定。一般建议:
rs.open sql,conn,0,1 顺序遍历，不需要定位跳转，不需要添加删除更新操作，速度最快
rs.open sql,conn,1,3 遍历，可以进行更新操作，但不能进行定位跳转
rs.open sql,conn,2,3 可以进行所有操作，可以跳转
'************************ ******************************
CursorType:游标类型，定义如下
0(adOpenForwardOnly): 只能在Recordset的记录中向前移动，但速度最快。
1(adOpenKeyset):可以在Recordset中任意移动，其他用户所做的记录修改可见，但其他用户添加的记录不可见，删除的记录字段值不能被使用。
2(adOpenDynamic):可以在Recordset中任意移动，其他用户增、删、改的记录都可见，但速度最慢。
3(adOpenStatic):可以在Recordset中任意移动，其他用户增、删、改的记录都不可见。
LockType:并发控制
0(adLockReadOnly):recordset的记录为只读
1(adLockPessimistic):只要保持Recordset为打开,别人就无法编辑该记录集中的记录.
2(adLockOptimistic):当update recordset中的记录时,将记录加锁
3(adLockBatchOptimistic):以批模式时更新记录时加锁
Options:指定source传递命令的类型
1(adCmdText):SQL语句
2(adCmdTable):数据表的名字
4(adCmdStoredProc):存储过程
8(adCmdUnknown):未知类型
VB如何与ACCESS数据库连接2008-12-15 19:59方法1
建立一个模块
将工程的启动设置为 SUB MAIN
在模块里写下面代码
Public db As Database
Public rs As Recordset
Sub main()
set db=db.opendatabase("数据库路径") (建议用相对路径--就是把数据库文件和工程文件放在同一目录下--相对路径就是APP.PATH+"数据库名带后缀")
第一启动窗体(如：form1).show
end sub
以后在其他窗体中如果要调用数据库只用在窗体中写代码
set rs=openrecordset(<可以是数据库的表--如"student",也可以是查询语句--如"select* form student">)
这时数据库的内容都存在FILE集合里
比方说set rs=openrecordset("select* form student")
rs.file(0)就是SQL语句查询结果的第一列
rs.files就是整个结果
使用text1.text=rs.file(0)就可以把文本框于查询结果绑定起来
如果要对数据库进行修这时用以下代码：
db.Execute （
方法2
工程--部件--选择microsoft data bound grid control 5.0
然后在窗体中添加左边工具栏的 DATA 和DBGRID 控件
选择DBGRID 将属性DATASOURCE 设置为DATA控件的名字（如DATA1）
然后选择DATA 将属性CONNECT设置为ACCESSS 2000
设置DATABASENAME
选择数据库的存放路径
最后设置RECORDSET 为需要连接的表的名字
运行就可以看到 DATAGRID中显示了数据库的信息
方法3
Dim con as ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
或者
Dim con as new ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
con.open
不要忘了加引用数据库引擎
ADO数据访问模型初学者入门2008-12-16 10:30ADO（ActiveXDataObjects）是Microsoft提供和建议使用的新型的数据访问接口，具体实现为Automation。这样，程序员可以在各种支持Automation的开发环境下方便地访问ADO对象，如VisualBasic、VisualC++、VisualJ++及Delphi等。ADO被实现为OLEDB之上的一个薄层，这使得ADO可以有更快的访问速度，更易使用，同时更节省资源。值得注意的是，对于VisualStudio6.0的用户而言，现在提供的ADO2.0要比VisualStudio5.0时代的ADO1.5更加完整。这意味着程序员可以更为广泛地使用ADO接口，甚至在所有的基于Windows平台的数据访问中使用它。比如对RDS（前身是ADC）的支持，可以方便的构建高效的Web应用。
一、对ADO对象的主要操作
对ADO对象的主要操作，同DAO、RDO库的实现基本相同。主要包括6个方面：
1.连接到数据源。这是可选的、通常涉及ADO的Connection对象。
2.向数据源提交命令。通常涉及ADO的Command对象。在查询中可以与参数对象（Parameter）协同使用。
3.执行命令，比如一个SELECT脚本。
4.如果提交的命令有结果返回，可以通过ADO的Recordset对象对结果进行操作，数据存储在缓存中。
5.如果合适，可将缓存中被修改的数据更新到物理的存储上。
6.提供错误检测。通常涉及ADO的Error对象。
以程序员的视角来看，ADO、DAO和RDO三者的对象名称不很相同。但使用ADO对象要比DAO和RDO简单得多。最主要的一点在于，程序员不用像在使用DAO和RDO那样要从对象模型的顶层开始一步步的创建子对象。因此，ADO提供了一种更灵活的编程方式。
二、ADO中主要对象的功能
Connection对象，表示了一个到数据源的会话。使用Connection对象的成员，可以使用相应的属性打开到数据源的连接，设置游标的位置，设置默认的当前数据库，设置将使用的OLEDBProvider，直接提交SQL脚本等。值得注意的是，在提交SQL脚本的任务时，不用创建一个Command对象，就可完成查询。另外，对Connection对象的创建是同其他对象无关的。Command对象，可被用于查询数据库并返回结果在Recordset对象中。也可以进行批操作和操
纵数据库的结构，当然，这需要使用的OLEDBProvider提供相应的支持。此外，可以将一个激活的Connection对象绑定到Command对象的ActiveConnection属性，这使得多个Command对象实例可以共用一个Connection对象。
Recordset对象，用来封装查询的结果，可称为结果集。
Field对象，用来表达一行结果中各子段的类型和值。
Error对象，用来检测和判断在数据库操作中出现的错误，比如连接失败。 在ADO中，许多对象名后多了一个"s"，比如Error->Errors，Field->Fields等等。添加"s"意味着是相应对象的Collection（集合）对象，比如Errors是Error对象的Collection对象。Collection有点像数组（Array），但不同的是，Collection可以以不同类型的数据或对象作为自己的元素，而数组中的各元素通常都是相同类型的。所以，在看到一个对象名最后是"s"，通常表明这是一个Collection对象，比如Errors中的各元素是由Error对象的实例组成的。
三、简单的例子
现在，我们在经过了前面的铺垫后，终于可以进入写代码的过程了。下面是一系列在VisualBasic中编写的代码片段，其中对ADO的操纵完全用代码来实现。在开始前，请不熟悉ActiveXAutomation的读者牢记，我们正在使用的，是被实现为ActiveXAutomation的ADO组件。1.打开Connect.ion对象
打开一个到数据源的连接，即Connection对象的VB代码如下：
Dim cn As ADODB.Connection
’声明ADODB.Connection对象变量
Dim strCN As String
’声明存放连接串的字符串变量
Set cn= New Connection
’实例化Connection对象
’生成连接串（ConnectionString）
strCN="Provider=Microsoft.Jet.Oledb.3.51;
UserID=Admin;"&_
"DataSource=D:\MicrosoftVisual
Studio\VB98\Nwind.mdb;"
cn.Open strCN ’调用Connection对象的方法Open连接数据源
以上代码在访问ADO对象时，使用了前绑定（Early-bind），实现前绑定需要从VisualBasic的Project菜单下选择Reference菜单项，并选择MicrosoftActiveXDataObjects2.0Library。在程序中声明的strCN变量中，连接串属性Provider标识了OLEDBProvider为OLEDBProviderforMicrosoftJet，因为我们访问的是MicrosoftAccess数据文件，使用MicrosoftJetEngine可以获得比ODBC更好的性能。在试验以上代码时有两个地方要注意。首先，要根据系统安装的OLEDBProviderforMicrosoftJet服务选择相应版本，可能是3.51，也可能是4.0。在本例中使用的是3.51版本。如果使用4.0版本，首先需要将Provider属性改为"Microsoft.Jet.Oledb.4.0"；其次，DataSource属性标识了所要访问的数据文件的路径，要根据自己的安装情况作出适当的调整。文件Nwind.mdb通常被VisualStudio默认安装，一般放在Visual Basic的工作目录下。
除了OLEDB Provider for MicrosoftJet以外，Visual Studio6
.0还提供了以下的OLEDBProvider，如下所示。
OLEDB Provider类型 数据源类型
Microsoft OLEDB Provider for ODBC databases
Microsoft OLEDB Provider for Microsoft Index Server Microsoft(r) Index Server
Microsoft OLEDB Provider for Microsoft Active Directory Service Microsoft(r) Active Directory Service
Microsoft OLEDB Provider for SQLServer Microsoft(r) SQLServer Microsoft OLEDB Provider for Oracle
Oracle databases
这意味着使用ADO接口可以方便地访问以上的各种数据源，要做的就是选择适当的OLEDB Provider。除了使用Connection对象的Open方法以外，还可通过Recordset对象的Open方法快捷地创建到数据源的连接。这充分体现了ADO的灵活性。
2.创建Command对象
Dim cmd As https://www.doczj.com/doc/302268499.html,mand
Set cmd=New Command’实例化Command对象
3.执行查询
以Command对象为例。
Dim rs As New ADODB.Recordset
Set cmd.ActiveConnection=cn’绑定激活的Connection对象实例
https://www.doczj.com/doc/302268499.html,mandText="SELECT*from Customers"’生成SQL脚本
Set rs=cmd.Execute’执行查询
上述的代码仅仅是一种查询途径，此外，ADO的Connection对象的Execute方法和Recordset对象的Open方法也提供了查询能力。返回的结果可以被保存在一个Recordset对象实例中以便后续的数据处理和操纵。例如：
Dim rs As NewADODB.Recordset
rs.Open cmd,cn,adOpenDymanic,adLockBatchOptimistic
另外在SQL脚本的生成方式上，通常可以借助Parameters/Parameter对象来完成。
4.显示和操纵数据
查询结果由Recordset对象封装。对数据的操纵可以通过Recordset对象提供的成员（属性和方法）来完成。
rs.MoveFirst
Do While Not rs.EOF’判断EOF标记属性（Endoffile）
Debug.Print rs!CustomerID & vbTab & rs!CompanyName & _
vbTab & rs!ContactName & vbTab & rs!ContactTitle
rs.MoveNext’将游标指针移到下一条记录
Loop
上述代码将Recordset中的各行记录打印在Visual Basic的Immediate Window中。为了看到打印的结果，可以在上述代码之后，增加一条Stop语句，以便进入Debug状态。
5.更新记录
使用Recordset对象来完成Update操作。
rs.Close’关闭之前建立的结果集
’打开新的结果集，具有写操作权限
rs.Open"Customers",cn,adOpenDynamic,adLockOptimistic,adCmdTable
rs.MoveFirst’虽无必要，但可能是一个良好的习惯
rs!CompanyName="Microsoft"’对相应字段赋予新值
rs.Update’在物理存储上生效
除了Update以外，写操作还包括AddNew（添加一条新记录）和Delete（删除一条新记录）。另外，Recordset支持批处理，但这些特征需要由低层的OLEDBProvider支持。当写操作出现错误时，可根据错误描述（访问ADO的Error或VisualBasic的Err对象）来判断原因。另一个需要注意的是，当使
用Recordset对象完成写操作时，需要预先指定Recordset对象实例非只读。
6.收尾工作
在这个阶段应该显式的释放相应的资源，如果不做的话，通常VisualBasic会自动释放和回收资源。但对于一个有良好编程习惯的程序员来说，应该主动地做收尾工作，就像下面的代码一样。
rs.Close
Set rs=Nothing
Set cmd=Nothing
cn.Close
Set cn=Nothing