想通过vb6.0来实现车辆保险日期到期提示,要求很简单但是我不会,请各位大侠帮帮我.就是通过当前日期和数据库中的日期比较,如果相同就提示出来.我这里已经有一个数据库了,就是时间比较的函数不知道怎么用,要求只比较"月日"就可以了,因为每年的这个时候都要进行车辆的保险,所以年份可以省掉了.谢谢大家了!!希望给出具体步骤,用什么语句和数据库(access)中的日期相比较呢?还有怎么才能和数据库进行连接从而进行比较？越具体越好,我是菜鸟!

select * from tb where month(日期列)=month(date) and day(日期列)=day(date)

这样可以吗?

还能在具体点嘛？主要是怎么和数据库进行连接啊，命令我不是很会。

次数限制（如３０次）如下：
 Private Sub Form_Load() Dim RemainDay As Long RemainDay = GetSetting("MyApp", "set", "times", 0) If RemainDay = 30 Then MsgBox "试用次数已满，请……" Unload Me End If MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！" RemainDay = RemainDay + 1 SaveSetting "MyApp", "set", "times", RemainDay End Sub '时间限制的（如３０天） Private Sub Form_Load() Dim RemainDay As Long RemainDay = GetSetting("MyApp", "set", "day", 0) If RemainDay = 30 Then MsgBox "试用期已过，请……" Unload Me End If MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！" if day(now)-remainday>0 then RemainDay = RemainDay + 1 SaveSetting "MyApp", "set", "times", RemainDay End Sub

上面的一堆代码是什么意思啊？我要求的其实就是查询保险到期的日期，然后显示出来就可以了。

help me

你什么都没有开始,我们也不知道从哪里开始帮你啊!

DateDiff函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

我现在已经用access建立了一个数据库，里面包含两个字段'car_num'和'date'。第一个字段是车号，类型是字符型。第二个就是保险的时间了只有月份，比如'4-08'，类型是日期型的。现在就是想用vb编写一个程序，不知道怎么和数据库进行连接，其实就是实现两个功能，一个是输入车号查到该车的保险日期，另一个就是输入月份查到当月保险到期的所有车辆。恳求各位帮忙啊，谢谢了。最好能告诉我具体的语法，我是个菜鸟，可是领导着急要，我也很无奈啊。。。

不会学么