vb操作access数据库的方法

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

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

2、ExtendedProperties=''?PersistSecurityInfo=False?″&_″JetOLEDB?DatabasePassword='asp561rbc'?″　　这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发布程序也大为减小。由于与链接SQLServer等数据库的方法一样，因而大量的操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简单数据库时，程序的移植会比较方便。　　另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。对于大量插入、删除、修改等操作，只在C

3、onnection层进行即可，既可提高速度又可减少代码。　　如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如下：SetLocRst1=NewADODB.Recordset　LocRst1.CursorType=adOpenKeysetLocRst1.LockType=adLockOptimisticLocRst1.Open″SELECT?FROM表名″?LocCnn1?adCmdText   ADO常用方法下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸准备工作========DimconnA

4、sNew ADODB.Connection '创建一个Connection实例，在这里使用New等于将Dim和Set合并为一段代码执行DimrsAsADODB.Recordset   '创建一个Recordset实例，不使用New是因为，经常需要重复使用Set，因此没必要在这里使用DimCnStrAsString,SqlAsString '创建两个字符串变量分别存放两个集合的SQL语句代码段1、装载数据库(不属于Recordset集合)=============DimFileNamw$,DbIp$,DbName$,DbUser$,DbPw$'以上5个字符串变量分别表示文件路径和文

5、件名、数据库地址、数据库名、数据操作员用户名、操作员密码FileName=App.Path&"'数据库名'"DbIp="数据库地址"DbName="数据库名"DbUser="数据操作员用户名"DbPw="操作员密码"'以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量'1)连接Access数据库:'-------------------CnStr="PROVIDER=microsoft.jet.oledb.3.51;persistsecurityinfo=false;datasource="&FileName&";JetOLEDB:DatabasePassword="

6、&DbPw'2)连接Oracle数据库:'-------------------CnStr="PROVIDER=MSDAORA.1;Password="&DbPw&";UserID="&DbUser&";DataSource="&FileName&";PersistSecurityInfo=True"'其中:'PASSWORD:     密码'UserID:      用户号'DataSource:  数据库名'PersistSecurityInfo:'Provider:'3)连接VF的DBF库:'----------------CnStr="PROVIDER=MSDASQL.1

7、;PersistSecurityInfo=False;Driver={MicrosoftVisualFoxProDriver};UID="&DbUser&";SourceDB="&FileName&";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"'4)连接SQL的数据库'------------------CnStr="PROVIDER=MSDataShape;DataPROVIDER=MSDA