网络编程
位置:首页>> 网络编程>> Asp编程>> 运用ASP调用数据库中视图及存储过程

运用ASP调用数据库中视图及存储过程

作者:本站整理 来源:asp之家 发布时间:2008-02-03 15:33:00 

标签:数据库,存储过程,asp

在一般的MIS应用中,会有大量的报表,此时我们可以在后台数据库编写相应的视图或存储过程,用ASP通过ADO调用以完成报表工作。下面用一个例子说明相应的操作过程。

1.创建 ODBC DSN 文件

在创建数据库脚本之前,必须提供一条使ADO定位、标识和与数据库通讯的途径。数据库驱动程序使用Data Source Name (DSN) 定位和标识特定的ODBC兼容数据库,将信息从 Web 应用程序传递给数据库。

2. 调用数据库视图

访问数据库信息的第一步是和数据库源建立连接。ADO提供Connection对象,可以使用该对象建立和管理应用程序和 ODBC数据库之间的连接。 
   
 

 <% 
  Set Dataconn = Server.CreateObject("ADODB.Connection") '建立连接对象 
   Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER; 
  UID=sa;PWD=;APP=Microsoft (R) Developer Studio;WSID=APP_SERVER;Regional=Yes" 
   Set cmdTemp = Server.CreateObject("ADODB.Command") '建立命令对象 
   Set rst= Server.CreateObject("ADODB.Recordset") '建立记录集对象 
   cmdTemp.CommandText = "Customers " 
   cmdTemp.CommandType = 2 
   Set cmdTemp.ActiveConnection = DataConn 
   rst.Open cmdTemp, , 1, 3 '生成查询结果 
  %> 

此时,Customers为视图,从视图中查询数据与从基表中查询数据的方法是相同的。

3.调用数据库存储过程 
   
 

 <% 
  Set Dataconn = Server.CreateObject("ADODB.Connection") '建立连接对象 
  Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa; 
  PWD=;APP=Microsoft (R) Developer Studio;WSID=APP_SERVER;Regional=Yes" 
  Set cmdTemp = Server.CreateObject("ADODB.Command") '建立命令对象 
  Set rst = Server.CreateObject("ADODB.Recordset") '建立记录集对象 
  cmdTemp.CommandText = "dbo.pd_test" '存储过程名称 
  cmdTemp.CommandType = 4 '命令类别为4,表示为存储过程 
  Set cmdTemp.ActiveConnection = Dataconn 
  Set tmpParam = cmdTemp.CreateParameter("Return Value", 3, 4, 4) 
  cmdTemp.Parameters.Append tmpParam 
  Set tmpParam = cmdTemp.CreateParameter("@BeginDate", 135, 1, 16, riqi) 
  '创建输入参数对象 
  cmdTemp.Parameters.Append tmpParam 
  rst.Open cmdTemp, , 1, 3 '生成查询结果 
  %> 

这里调用的存储过程为pd_test,这种是ADO中提供的标准方法,但存在一个问题,就是当在存储过程中有两个以上的SELECT语句,但从逻辑上又不可能同时执行的时候,ADO会提示你存储过程中SELECT语句太多,解决方法是直接用ADO的CONNECTION对象的EXECUTE方法直接执行存储过程,如下: 
   

  <% 
  Set Dataconn = Server.CreateObject("ADODB.Connection") '建立连接对象 
  Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=; 
  APP=Microsoft (R) Developer Studio;WSID=APP_SERVER;Regional=Yes" 
  ss = "EXECUTE dbo.pd_test " & "'" & riqi1 & "'" 
  Set rs = dataconn.Execute(ss) 
  %>

有关ASP和ADO使用的详细信息,请参阅 Microsoft ActiveX Data Objects (ADO) 和Active Server Pages(ASP)的详细参考。

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com