Excel VBA.doc

’创建一个Recordset实例,不使用New是因为,经常需要重复使用Set,StrAsString,SqlAsString’创建两个字符串变量分别存放两个集合的SQL语句代码段1、装载数据库(不属于Recordset集合)=============DimFileNamw$,DbIp$,DbName$,DbUser$,DbPw$’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码FileName=&"\’数据库名’"DbIp="数据库地址"DbName="数据库名"DbUser="数据操作员用户名"DbPw="操作员密码"’以上变量根据数据库类型的不同而不同,有可能只需要1至两个变量’1)ess数据库:’-------------------CnStr="PROVIDER=;persistsecurityinfo=false;datasource="&FileName&";JetOLEDB:DatabasePassword="&DbPw’2)连接Oracle数据库:’-------------------CnStr="PROVIDER=;Password="&DbPw&";UserID="&DbUser&";DataSource="&FileName&";PersistSecurityInfo=True"’其中:’PASSWORD:密码’UserID:用户号’DataSource:数据库名’PersistSecurityInfo:’Provider:’3)连接VF的DBF库:’----------------CnStr="PROVIDER=;PersistSecurityInfo=False;Driver={MicrosoftVisualFoxProDriver};UID="&DbUser&";SourceDB="&FileName&";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"’4)连接SQL的数据库’------------------CnStr="PROVIDER=MSDataShape;DataPROVIDER=MSDASQL;uid="&DbUser&";pwd="&DbPw&";DRIVER=SQLServer;DATABASE="&DbName&";WSID=GQSOFT;SERVER="&DbIP’Str="Provider=SQLOLEDB;DataSource="&DbIp&";DATABASE="&DbName&";UID="&DbUser&";pwd="&’使用Connection集合的Open方法与数据库建立连接2、Recordset集合的常用方法==========================’1)打开一个表’------------Sql="select*from表名"’SQL查询语句Setrs=’,conn’使用Open方法打开数据库中的一个表’注意,(即,向后移动行坐标)而不能像其他方向,并且不能修改数据内容’’,conn,1’虽然只加了个“1”,但这种方法可以向任何方向移动行坐标。’’以下参数代表了这个可选值的含义’0=adOpenForwardOnly(默认值)打开仅向前类型游标。’1=adOpenKeyset打开键集类型游标。’2=adOpenDynamic打开动态类型游标。’3=adOpenStatic打开静态类型游标。’’虽然使用以上方法可以可以实现行坐标(游标)的任意移动,但是仍然无法写入数据。因此需要进一步的对Open方法进行完善’,conn,1,3’后面的3是确定读写权限的’以下参数代表了这个可选值的含义’1=adLockReadOnly(默认值)只读—不能改变数据。’2=adLockPessimistic保守式锁定(逐个)—在编辑时立即锁定数据源的记录。’3=adLockOptimistic开放式锁定(逐个)—只在调用Update方法时才锁定记录。’4=adLockBatchOptimistic开放式批更新—用于批更新模式(与立即更新模式相对)。’’2)读写数据’----------’’增加一行记录rs("...")="..."’数据读写操作...