前言
VB对数据库的编程有多种方法，如:ODBC API编程、RDO(远程数据对象)、DAO(数据访问对象)、ADO(ActiveX 数据对象)方法编程实现方便、快捷，但灵活性稍差。由于存储过程具有实现数据封装、隐藏以及代码的预编译、减少网络负载、维护方便等优点，所以被许多RDMBS和编程工具做支持。VB中的各类数据对象均都提供对存储过程的支持。所以要灵活掌握调用存储过程这一技术是十分必要。现在将VB中实现动态调用含DateTime类型的存储过程介绍给读者,让您很快掌握和运用这个方法,解决你身边的问题。
一、 简述SQL Server 2000 日期时间类型(含dateTime类型字段)
该类型是由有效的日期或时间组成；年-月-日 小时:分:秒.千分之秒。其格式:
请见图示1
在现阶段开发设计ERP系统项目中，尤其在创建数据库表结构时，均要考虑到DateTime字段的应用，它能记载信息发生时间段的信息，能充分反映该区间数据变化；除特殊情况下(如：网吧、游戏吧等需记录小时、分、秒)之外，一般要考虑到日期范围即:[年、月、日]。
二、 我们以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的代码。
下一篇：简单的应用：VB中数据集合对象的应用 摘要：集合对象（Collection）是VB重要的特征，利用它可以对具有共同属性的对象进行操作访问。本文介绍了VB中的内部集合和自定义集合的应用，以及它与数组的异同。
关键词：Visual Basic 6.0 集合对象 应用
Visual Basic提供一种很有用的数据集合对象(Collection)，它是由相关数据所构成的有序集，它可以使编程者对一组对象进行操作。Visual Basic本身含有一些内部集合，如Forms、Controls和Printers等，它们给出了工程中所有窗体、具体窗体中的所有控件以及Windows环境中的所有打印机的信息。...[查看详情] | 
