VB使用ADODB操作数据库常用方法.docxVIP

VB使用ADODB操作数据库的常用方法 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=??DbPw2)连接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=??DbPwConn.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是确定读写权限的