面向对象的asp编程之五--adodb的类封装_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

面向对象的asp编程之五--adodb的类封装

作者：闵涛文章来源：闵涛的学习笔记点击数：2017 更新时间：2009/4/23 10:47:19

sp; end if

   End Sub

''''---------------------------------------------------------------
Public Sub CloseRecordSet()
         if objAdoRecordSet.State=1 then
            objAdoRecordSet.Close
         end if
End Sub

Public Sub SetConnection(objConnection)
         set objAdoConnection=objConnection
         set objAdoCommand.ActiveConnection = objAdoConnection
End Sub

Public Sub OpenRecordSet(byval sql)
           CloseRecordSet()
           objAdoCommand.CommandText=sql
           set objAdoRecordSet=objAdoCommand.Execute()
End Sub

Public Sub OpenRecordSet2(sql,conn,CursorType,LockType)
         CloseRecordSet()
         objAdoRecordSet.Open sql,conn,CursorType,LockType
End Sub

Public Sub cmdExecute(byval sql)
         objAdoCommand.CommandText=sql
         objAdoCommand.Execute()
End Sub

''''---------------------------------------------------------------
Public Function GetFieldValue(byval fieldName)
         GetFieldValue=objAdoRecordSet(fieldName).Value
End Function

Public Function GetFieldName(byval fieldOrder)
         GetFieldName=objAdoRecordSet(fieldOrder).name
End Function

Public Function SetFieldValue(fieldName,fieldValue)
         objAdoRecordSet(fieldName).Value=fieldValue
End Function

Public Function GetBinaryField(fieldName)

End Function

Public Function SetBinaryField(fieldName,fieldValue)

End Function

Public Function RsUpDate()
         objAdoRecordSet.Update
End Function

Public Function GetRecordSet()
       set GetRecordSet=objAdoRecordSet
End Function
''''---------------------------------------------------------------
Function IsEmpty()
        IsEmpty=(objAdoRecordSet.BOF and objAdoRecordSet.EOF)
End Function

Function IsEof()
       IsEof=objAdoRecordSet.EOF
End Function

Function IsBof()
       IsBof=objAdoRecordSet.BOF
End Function

''''---------------------------------------------------------------
Function MoveFirst()
       objAdoRecordSet.MoveFirst
End Function

   Function MovePrevious()
       if (not objAdoRecordSet.BOF) then
           objAdoRecordSet.MovePrevious
       end if
End Function

Function MoveNext()
      if (not objAdoRecordSet.BOF) then
          objAdoRecordSet.MoveNext
      end if
End Function

   Function MoveLast()
       objAdoRecordSet.MoveLast
End Function

End Class
''''#################################################################
Function CreateCAdoCommand()
         set CreateCAdoCommand=new CAdoCommand
End Function
Class CAdoCommand

   Public objAdoCommand

   ''''==============================================================
   Public Property Get cmdCommandType
           cmdCommandType=objAdoCommand.CommandType
   End Property

   Public Property Let cmdCommandType(ByVal cmdType)
           objAdoCommand.CommandType=cmdType
   End Property

''''===============================================================

   Private Sub Class_Initialize   '''' Setup Initialize event.

          set objAdoCommand=Server.CreateObject("ADODB.Command")
          objAdoCommand.CommandType = 1

   End Sub
   Private Sub Class_Terminate   '''' Setup Terminate event.

          set objAdoCommand=nothing

   End Sub

   Public Sub cmdExecute()

   End Sub

End Class

</Script>

上一页 [1] [2]

[Web开发]面向对象的JavaScript编程  [Web开发]使用XMLHttp和ADODB.Stream取得远程文件并保存到本…
[Web开发]ASP中利用ADODB.Stream对象将字节流转换为字符流  [Web开发]指南：从MySQL转向ADODB（2）
[Web开发]指南：从MySQL转向ADODB（1）  [Web开发]PHP技巧--通过COM使用ADODB
[Web开发]adodb Stream 详细用法  [Web开发]MMCACHE+PHP5+ADODB出现内存溢出的问题
[Web开发]smarty+adodb+部分自定义类的php开发模式  [Web开发]利用VBScript及ADODB.Steam获取部分格式图象长宽

教程录入：mintao 责任编辑：mintao

上一篇教程： asp.net环境下的cmd命令执行

下一篇教程：『转载』使用ADO.NET轻松操纵数据库

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Web开发  · 网页制作
· 平面设计  · 网站运营
· 网站推广  · 搜索优化
· 建站心得  · 站长故事
· 互联动态

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……