2024年5月24日发(作者：)
VB操作Access数据库方法
使用ADODB
首先，声明一个链接变量，并根据需要声明记录集变量。
Dim LocCnn1 As tion
Dim LocRst1 As set
建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不
会错）。
Set LocCnn1 = New tion
″Provider=.4.0?User ID=Admin?″ & _
″Data Source=″ & & ″数据库名称.mdb?″& _
″Mode=Share Deny None?Extended Properties=''?Persist Security Info=False?″ & _
″Jet OLEDB?Database Password='asp561rbc'?″
这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发
布程序也大为减小。由于与链接SQL Server等数据库的方法一样，因而大量的
操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由
一些大型数据库裁剪出一个简单数据库时，程序的移植会比较方便。
另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。
对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速
度又可减少代码。
如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如
下：
Set LocRst1 = New set
Type = adOpenKeyset
pe = adLockOptimistic
″SELECT ? FROM 表名″? LocCnn1?adCmdText
ADO常用方法
下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者
作为参考，有不对的地方请指正。如有补充不胜荣幸
准备工作
========
Dim conn As New tion '创建一个 Connection 实例，在这里
使用New等于将Dim和Set合并为一段代码执行
Dim rs As set '创建一个 Recordset 实例，不使用New
是因为，经常需要重复使用Set，因此没必要在这里使用
Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个
集合的SQL语句代码段
1、装载数据库(不属于Recordset集合)
=============
Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$
'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数
据操作员用户名、操作员密码
FileName = & "'数据库名'"
DbIp = "数据库地址"
DbName = "数据库名"
DbUser = "数据操作员用户名"
DbPw = "操作员密码"
'以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量
'1)连接Access数据库:
'-------------------
CnStr = "PROVIDER=.3.51;persist security info =fal
se;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={Micro
发布者：admin，转转请注明出处：http://www.yc00.com/news/1716528571a2728186.html
评论列表（0条）