Excel VBA.doc

DimconnAsNewADODB.Connection’创建一个Connection实例，在这里使用New等于将Dim和Set合并为一段代码执行
DimrsAsADODB.Recordset’创建一个Recordset实例，不使用New是因为，经常需要重复使用Set，因此没必要在这里使用
DimCnStrAsString,SqlAsString’创建两个字符串变量分别存放两个集合的SQL语句代码段
1、装载数据库(不属于Recordset集合)
=============
DimFileNamw$,DbIp$,DbName$,DbUser$,DbPw$
’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码
FileName=App.Path&"\’数据库名’"
DbIp="数据库地址"
DbName="数据库名"
DbUser="数据操作员用户名"
DbPw="操作员密码"
’以上变量根据数据库类型的不同而不同，有可能只需要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&";UserID="&DbUser&";DataSource="&FileName&";PersistSecurityInfo=True"
’其中:
’PASSWORD:密码
’UserID:用户号
’DataSource:数据库名
’PersistSecurityInfo:
’Provider:

’3)连接VF的DBF库:
’----------------
CnStr="PROVIDER=MSDASQL.1;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
’也可以使用这段简易代码CnStr="Provider=SQLOLEDB;DataSource="&DbIp&";DATABASE="&DbName&";UID="&DbUser&";pwd="&DbPw
Conn.Opencnstr’使用Connection集合的Open方法与数据库建立连接

2、Recordset集合的常用方法
==========================
’1)打开一个表
’------------
Sql="select*from表名"’SQL查询语句
Setrs=NewADODB.Recordset’新建一个实例
rs.OpenSql,conn’使用Open方法打开数据库中的一个表
’注意，这种打开方式只能使用rs.MoveNext（即，向后移动行坐标）而不能像其他方向，并且不能修改数据内容
’’rs.OpenSql,conn，1’虽然只加了个“1”，但这种方法可以向任何方向移动行坐标。
’
’以下参数代表了这个可选值的含义
’0=adOpenForwardOnly（默认值）打开仅向前类型游标。
’1=adOpenKeyset打开键集类型游标。
’2=adOpenDynamic打开动态类型游标。
’3=adOpenStatic打开静态类型游标。
’
’虽然使用以上方法可以可以实现行坐标（游标）的任意移动，但是仍然无法写入数据。因此需要进一步的对Open方法进行完善
’rs.OpenSql,conn,1,3’后面的3是确定读写权限的

’以下参数代表了这个可选值的含义
’1=adLockReadOnly（默认值）只读—不能改变数据。
’2=adLockPessimistic保守式锁定（逐个）—在编辑时立即锁定数据源的记录。
’3=adLockOptimistic开放式