VBS实现连接数据库

前天在客户那里发现一个这样的问题：数据库(sql server 2008)和程序(asp)都是从另一个机子拷贝过来，但发现系统却登录不上，提示用户密码错误。刚开始用户一直认为是数据库的或程序配置问题，但查找了半天也没有发现数据库有什么问题，由于好久没有写过asp程序代码了，一时也没有想到是代码有问题。因为代码是从另一个机子上完全复制过来的应该不会有问题的。没有办法打开了代码调试发现了是在打开数据记录记时出现了错误------“不支持些属性和方法”，问题找到了。

 

附：贴上RecordSet的使用说明

应用函数

RecordSet.BOF            判断指标是否超过最前面

RecordSet.EOF 判断指标是否超过最后面

RecordSet.MoveFirst       将数据录指针移至第一笔

RecordSet.MoveLast       将数据录指针移至最后一笔

RecordSet.MoveNext       将数据指针往后移一笔

RecordSet.MovePrevious       将数据指针往前移一笔

RecordSet.Fields.Count       传回Recordset中的字段数

RecordSet(i).Name             传回Recordset中第i个字段的名称

RecordSet.RecordCount       传回Recordset中资料录的笔数

RecordSet("字段名称")       传回指定字段名称的数据内容

RecordSet(i) 传回RecordSet中的第i个字段数据

RecordSet.Fields(i).DefinedSize             传回RecordSet中的第i个字段数据域位长度

RecordSet.Fields(i).Type             传回RecordSet中的第i个字段数据域位数据型别

RecordSet.BookMark             传回设定的书签以储存现在纪录的位置。RecordSet.AbsolutePostition 将指标移至RecordSet中的某一笔数据上

RecordSet.PageSize             设定每页显示的资料笔数

RecordSet.PageCount             传回分页后的总页数

RecordSet.AbsolutePage             传回目前所在的页数

RecordSet.AddNew             新增数据至数据表中

RecordSet.Update             更新目前这笔资料

RecordSet.Delete             删除目前这笔资料

RecordSet.Find             寻找数据值

RecordSet.GetRows             可将Recordset中的数据储存至数组中

RecordSet.Sort             可将Recordset中的数据排序

 

======================================分割线==============

原来打开数据时：
Set conn = Server.Createobject("ADODB.Connection")
conn.open "DSN=mydb;UID=myuser;PWD=mypass"
set rs=server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,1,1
后改成了：
Set conn = Server.Createobject("ADODB.Connection")
conn.open "DSN=mydb;UID=myuser;PWD=mypass"
set rs=server.createobject("adodb.recordset")
sql="select * from user"
rs.open sql,conn,3,3

可以登录进系统了，当时问题解决后，由于代码不是本人写的，也就没有仔细看（当时也没有时间），究竟问题怎么产生的。下边把关于asp中的RecordSe相关属性和方法粘贴如下：

记录集对象RecordSet的方法
Rs.movenext 将记录指针从当前的位置向下移一行
Rs.moveprevious 将记录指针从当前的位置向上移一行
Rs.movefirst 将记录指针移到数据表第一行
Rs.movelast 将记录指针移到数据表最后一行
Rs.absoluteposition=N 将记录指针移到数据表第N行
Rs.absolutepage=N 将记录指针移到第N页的第一行
Rs.pagesize=N 设置每页为N条记录
Rs.pagecount 根据 pagesize 的设置返回总页数
Rs.recordcount 返回记录总数
Rs.bof 返回记录指针是否超出数据表首端，true表示是，false为否
Rs.eof 返回记录指针是否超出数据表末端，true表示是，false为否
Rs.delete 删除当前记录，但记录指针不会向下移动
Rs.addnew 添加记录到数据表末端
rs.update 更新数据表记录
--------------------------------------------------------------
Recordset对象方法
Open方法
recordset.Open Source,ActiveConnection,CursorType,LockType,Options
Source
Recordset对象可以通过Source属性来连接Command对象。Source参数可以是一个Command对象名称、一段SQL命令、一个指定的数据表名称或是一个Stored Procedure。假如省略这个参数，系统则采用Recordset对象的Source属性。

ActiveConnection
Recordset对象可以通过ActiveConnection属性来连接Connection对象。这里的ActiveConnection可以是一个Connection对象或是一串包含数据库连接信息（ConnectionString）的字符串参数。

CursorType
Recordset对象Open方法的CursorType参数表示将以什么样的游标类型启动数据，包括adOpenForwardOnly、adOpenKeyset、adOpenDynamic及adOpenStatic，分述如下：
--------------------------------------------------------------
常数 常数值 说明
--------------------------------------------------------------
adOpenForwardOnly 0 缺省值，启动一个只能向前移动的游标（Forward Only）。只读,且当前数据记录只能向下移动
adOpenKeyset 1 启动一个Keyset类型的游标。 只读,当前数据记录可自由移动
adOpenDynamic 2 启动一个Dynamic类型的游标。 可读写,当前数据记录可自由移动。

adOpenStatic 3 启动一个Static类型的游标。 可读写,当前数据记录可自由移动,可看到新增记录.
--------------------------------------------------------------
以上几个游标类型将直接影响到Recordset对象所有的属性和方法，以下列表说明他们之间的区别。
--------------------------------------------------------------
Recordset属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic
--------------------------------------------------------------
AbsolutePage 不支持 不支持 可读写 可读写
AbsolutePosition 不支持 不支持 可读写 可读写
ActiveConnection 可读写 可读写 可读写 可读写
BOF 只读 只读 只读 只读
Bookmark 不支持 不支持 可读写 可读写
CacheSize 可读写 可读写 可读写 可读写
CursorLocation 可读写 可读写 可读写 可读写
CursorType 可读写 可读写 可读写 可读写
EditMode 只读 只读 只读 只读
EOF 只读 只读 只读 只读
Filter 可读写 可读写 可读写 可读写
LockType 可读写 可读写 可读写 可读写
MarshalOptions 可读写 可读写 可读写 可读写
MaxRecords 可读写 可读写 可读写 可读写
PageCount 不支持 不支持 只读 只读
PageSize 可读写 可读写 可读写 可读写
RecordCount 不支持 不支持 只读 只读
Source 可读写 可读写 可读写 可读写
State 只读 只读 只读 只读
Status 只读 只读 只读 只读
AddNew 支持 支持 支持 支持
CancelBatch 支持 支持 支持 支持
CancelUpdate 支持 支持 支持 支持
Clone 不支持 不支持
Close 支持 支持 支持 支持
Delete 支持 支持 支持 支持
GetRows 支持 支持 支持 支持
Move 不支持 支持 支持 支持
MoveFirst 支持 支持 支持 支持
MoveLast 不支持 支持 支持 支持
MoveNext 支持 支持 支持 支持
MovePrevious 不支持 支持 支持 支持
NextRecordset 支持 支持 支持 支持
Open 支持 支持 支持 支持
Requery 支持 支持 支持 支持
Resync 不支持 不支持 支持 支持
Supports 支持 支持 支持 支持
Update 支持 支持 支持 支持
UpdateBatch 支持 支持 支持 支持
--------------------------------------------------------------
其中NextRecordset方法并不适用于Microsoft Access数据库。

LockType
Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：
-------------------------------------------------------------
常数 常数值 说明
--------------------------------------------------------------
adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法 。缺省锁定类型，记录集是只读的，不能修改记录
adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。 悲观锁定，当修改记录时，数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始，则立即锁住记录。
adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。乐观锁定 ，直到用Update方法提交更新记录时才锁定记录。
adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、删、改的操作。批量乐观锁定，允许修改多个记录，只有调用UpdateBatch方法后才锁定记录。

当不需要改动任何记录时，应该使用只读的记录集，这样提供者不用做任何检测。
对于一般的使用，乐观的锁定可能是最好的选择，因为记录只被锁定一小段时间，
数据在这段时间被更新。这减少了资源的使用。

转载于:https://www.cnblogs.com/Tsher/archive/2012/12/15/2818950.html