VBS：SQL记录查询、更新、删除.docVIP

VBS：SQL记录查询、更新、删除 Technology 2010-01-20 15:27:04 阅读2 评论0 字号：大中小 Set conn = createobject(ADODB.Connection)? conn.OpenProvider=OraOLEDB.Oracle.1;Password=sx;Persist Security Info=True;User ID=pipfgys_sx_user;Data Source=pip132? Set res = createobject(ADODB.Recordset)? res.Openselect? *? from aa ,conn,2,2遍历查询结果Do While Not res.EOF?iUser_pwd=?For i=0 To res. Fields.Count - 1?? iUser_pwd = iUser_pwd+CStr(res(i))+,?Next??? print? iUser_pwd? res.movenextlOOP更新语句sqlstr=update aa set a1=1 where a1=100Conn.Execute(sqlstr)删除语句sqlstr=delete aa where a1=1Conn.Execute(sqlstr)?res.close?res.Openselect? *? from aa ,conn,2,2遍历查询结果Do While Not res.EOF?iUser_pwd=?For i=0 To res. Fields.Count - 1?? iUser_pwd = iUser_pwd+CStr(res(i))+,?Next??? print? iUser_pwd? res.movenextlOOP? res.close??????? 关闭记录集? Set res=nothing??????? 释放对象? conn.close??????? 关闭连接? Set conn=nothing??????? 释放对象 ? ============================================================== RecordSet对象的详细用法 RecordSet对象（代表来自基本表或命令执行结果的记录的全集。）为了更精确地跟踪数据，要用RecordSet组件创建包含数据的游标，游标就是储存在内存中的数据： rs = Server.CreateObject(ADODB.RecordSet) rs.Open(sqlStr,conn,1,A) ? RS.OPEN SQL,CONN,A,B A: ADOPENFORWARDONLY(=0)只读,且当前数据记录只能向下移动 ADOPENKEYSET(=1)只读,当前数据记录可自由移动 ADOPENDYNAMIC(=2)可读写,当前数据记录可自由移动 ADOPENSTATIC(=3)可读写,当前数据记录可自由移动,可看到新增记录 B: ADLOCKREADONLY(=1)缺省锁定类型，记录集是只读的，不能修改记录 ADLOCKPESSIMISTIC(=2)悲观锁定，当修改记录时，数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始，则立即锁住记录。 ADLOCKOPTIMISTIC(=3)乐观锁定 ，直到用Update方法提交更新记录时才锁定记录。 ADLOCKBATCHOPTIMISTIC(=4)批量乐观锁定，允许修改多个记录，只有调用UpdateBatch方法后才锁定记录。 当不需要改动任何记录时，应该使用只读的记录集，这样提供者不用做任何检测。对于一般的使用，乐观的锁定可能是最好的选择，因为记录只被锁定一小段时间，数据在这段时间被更新。这减少了资源的使用。 在RecordSet组件中，常用的属性和方法有： rs.Fields.Count：RecordSet对象字段数。 rs(i).Name：第i个字段的名称，i为0至rs.Fields.Count-1 rs(i)：第i个字段的数据，i为0至rs.Fields.Count-1 rs(字段名)：指定字段的数据。 rs.RecordCount：数据记录总数。 rs.EOF：是否最后一条记录。 rs.MoveFirst：指向第一条记录。 rs.MoveLast：指向最后一条记录。 rs.MovePrev：指向上一条记录。 rs.MoveNext：指向下一条记录。 rs.GetRows：将数据放入数组中。 rs.Properties.Count：ADO的ResultSet或Connection的属性个数。 r