VB实现动态调用含DateTime类型存储过程

新客网 XKER.COM 2006-09-15 来源：收藏本文

　　前言

　　VB对数据库的编程有多种方法，如:ODBC API编程、RDO(远程数据对象)、DAO(数据访问对象)、ADO(ActiveX 数据对象)方法编程实现方便、快捷，但灵活性稍差。由于存储过程具有实现数据封装、隐藏以及代码的预编译、减少网络负载、维护方便等优点，所以被许多RDMBS和编程工具做支持。VB中的各类数据对象均都提供对存储过程的支持。所以要灵活掌握调用存储过程这一技术是十分必要。现在将VB中实现动态调用含DateTime类型的存储过程介绍给读者,让您很快掌握和运用这个方法,解决你身边的问题。

　　一、简述SQL Server 2000 日期时间类型(含dateTime类型字段)

　　该类型是由有效的日期或时间组成；年-月-日小时:分:秒.千分之秒。其格式:

　　请见图示1

　　
　　在现阶段开发设计ERP系统项目中，尤其在创建数据库表结构时，均要考虑到DateTime字段的应用，它能记载信息发生时间段的信息，能充分反映该区间数据变化；除特殊情况下(如：网吧、游戏吧等需记录小时、分、秒)之外，一般要考虑到日期范围即:[年、月、日]。本篇文章发表于www.xker.com(小新技术网)

　　二、我们以ADO为例来说明其实现步骤

　　现在动态调用含有DateTime字段的存储过程，以帮助理解和掌握调用存储过方法：

　　1>、使用Northwind的MS SQL中的例子库(此例子SQL Server2000自带)

Create procedure "Employee Sales by Country"
　　　@Beginning_Date DateTime, @Ending_Date DateTime AS
　　　SELECT Employees.Country, Employees.LastName, Employees.FirstName,
　　　Orders.ShippedDate, Orders.OrderID, "Order Subtotals".Subtotal AS SaleAmount
　　　FROM Employees INNER JOIN
(Orders INNER JOIN "Order Subtotals" ON Orders.OrderID = "Order Subtotals".OrderID)
ON Employees.EmployeeID = Orders.EmployeeID
　　WHERE Orders.ShippedDate Between @Beginning_Date And @Ending_Date
　　GO

　　2>、在VB中生成一个新工程，工程添加一个窗体，三个Command(1,2,3)按钮，一个ListView控件，两个日期DTpicker控件，两个标签Label控件，一个文本TextBox控件。

　　请见图示2

　　3>、编程的设计思路

　　基于SQL Server数据库表结构定义DateTime类型的特点，我们采取截取有效日期部分，实现对这个含有DateTime字段的存储过程动态调用，具体步骤如下：

　　①.定义：Dim Dt10,DT20 as Variant

　　②.采集动态日期赋值于以上两个变量中

DT10 = Format(Trim(DT1.Value), "yyyy-mm-dd")
DT20 = Format(Trim(DT2.Value), "yyyy-mm-dd")

　　具备以上条件，可快捷、方便地获取动态日期区间内数据表的结果集。

　　下面就严格执行调用存储过程语法格式就可以了。请详见VB的代码。
　　4>、VB的程序代码实现动态调用的三种方法

　　①. 窗体变量的设置

Option Explicit
　　Dim CNN1 As ADODB.Connection '连接
　　Dim RS As ADODB.Recordset '结果集
　　Dim StrCnn As String '连接字符串
　　Dim DT10, DT20 As Variant '日期变量
　　Dim i As Integer '字段的计数

　　②. [基本格式]存储过程的调用

Private Sub Command1_Click() '以[基本方式]调用(1)存储过程
　On Error Resume Next
　Dim Cmd As ADODB.Command '命令
　Dim Par As ADODB.Parameter '参数
　'声明并初始化一个ADO 的Connection对象
　DT10 = Format(Trim(DT1.Value), "yyyy-mm-dd") '起始日期赋值
　DT20 = Format(Trim(DT2.Value), "yyyy-mm-dd") '截止日期赋值
　Set Cmd = New ADODB.Command '指定cmd的当前连接CNN1
　Cmd.ActiveConnection = CNN1
　 '指定该cmd 的当前活动连接
　'设置要执行的是存储过程"[Employee Sales by Country] "
　Cmd.CommandType = adCmdStoredProc '表明cmd 为存储过程
　Cmd.CommandText = "[Employee Sales by Country] " '调用存储过程名称
　Set Par = Cmd.CreateParameter("Beginning_Date", adDBDate, adParamInput, , DT10)
　Cmd.Parameters.Append Par
　Set Par= Cmd.CreateParameter("Ending_Date", adDBDate, adParamInput, , DT20)
　Cmd.Parameters.Append Par
　Set RS = Cmd.Execute()
　'在Listview控件中显示RstByQuery记录集有效行
　If DT10 < DT20 Then '调用网格的条件
　　If RS.Fields.Count > 0 Then '确认字段的列数
　　　i = RS.Fields.Count
　　　Listrec RS, LV
　　　RS.Close
　　End If
　End If
End Sub

　　③. [简捷格式]存储过程的调用

上一篇：“超级链接”在VB6下的实现方法下一篇：VB6.0实例学习--使用右键菜单的例子

【收藏】【评论】【推荐】【投稿】【打印】【关闭】