vb操作access數据库的方法.docxVIP

VB操作Access数据库方法 使用ADODB　　首先，声明一个链接变量，并根据需要声明记录集变量。 Dim LocCnn1 As ADODB.ConnectionDim LocRst1 As ADODB.Recordset 　　建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。 Set LocCnn1 = New ADODB.ConnectionLocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0?User ID=Admin?″ _″Data Source=″ App.Path ″\数据库名称.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 ADODB.Recordset　 LocRst1.CursorType = adOpenKeysetLocRst1.LockType = adLockOptimisticLocRst1.Open ″SELECT ? FROM 表名″? LocCnn1?adCmdText ? ? ? 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 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=DB