vb操作access数据库的方法.doc

《vb操作access数据库的方法.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、word格式VB操作Access数据库方法使用ADODB　　首先，声明一个链接变量，并根据需要声明记录集变量。DimLocCnn1AsADODB.ConnectionDimLocRst1AsADODB.Recordset　　建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。SetLocCnn1=NewADODB.ConnectionLocCnn1.Open″Provider=Microsoft.Jet.OLEDB.4.0?UserID=Admin?″&_″DataSource=″&App.Pa

2、th&″数据库名称.mdb?″&_″Mode=ShareDenyNone?ExtendedProperties=''?PersistSecurityInfo=False?″&_″JetOLEDB?DatabasePassword='asp561rbc'?″　　这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发布程序也大为减小。由于与链接SQLServer等数据库的方法一样，因而大量的操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简单数据库时，程序的

3、移植会比较方便。　　另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速度又可减少代码。　　如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如下：SetLocRst1=NewADODB.Recordset　LocRst1.CursorType=adOpenKeysetLocRst1.LockType=adLockOptimisticLocRst1.Open″SELECT?FROM表名″?LocC

4、nn1?adCmdText   ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸....word格式准备工作========DimconnAsNew ADODB.Connection '创建一个Connection实例，在这里使用New等于将Dim和Set合并为一段代码执行DimrsAsADODB.Recordset   '创建一个Recordset实例，不使用New是因为，经常需要重复使用Set，因此没必要在这里使用DimCnStr

5、AsString,SqlAsString '创建两个字符串变量分别存放两个集合的SQL语句代码段1、装载数据库(不属于Recordset集合)=============DimFileNamw$,DbIp$,DbName$,DbUser$,DbPw$'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码FileName=App.Path&"'数据库名'"DbIp="数据库地址"DbName="数据库名"DbUser="数据操作员用户名"DbPw="操作员密码"'以上变量根据数

6、据库类型的不同而不同，有可能只需要1至两个变量'1)连接Access数据库:'-------------------CnStr="PROVIDER=microsoft.jet.oledb.3.51;persistsecurityinfo=false;datasource="&FileName&";JetOLEDB:DatabasePassword="&DbPw'2)连接Oracle数据库:'-------------------CnStr="PROVIDER=MSDAORA.1;Password="&DbPw&";U

7、serID="&DbUser&";DataSource="&FileName&";PersistSecurityInfo=True"'其中:'PASSWORD:     密码'UserID:      用户号'DataSource:  数据库名'PersistSecurityInfo:'Provider:'3)连接VF的DBF库:'----------------....word格式CnStr="PROVIDER=MSDASQL.1;PersistSecurityInfo=False;Driver={Microsof

8、tVisualFoxProDriver};UID="&DbUser&";SourceDB="&FileName&";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"'4)连接SQL的数据库'------------------CnStr="PROVIDER=MSD