Dim datBirthday as Date '出生日期
Dim strSql as String 'SQL语句
Dim rs as ADODB.Recordset '结果集对象DatBirthday=# 10/1/1980 #
StrSql = "SELECT NAME FROM TABGROUP_2001" _
&" WHERE BIRTHDAY= TO_DATE('"&Cstr(DatBirthday) &"','yyyy-mm-dd')
rs.open strSql
SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS') "Right Now"
From Dual
Dim strSql as String 'SQL语句
Dim rs as ADODB.Recordset '结果集对象DatBirthday=# 10/1/1980 #
StrSql = "SELECT NAME FROM TABGROUP_2001" _
&" WHERE BIRTHDAY= TO_DATE('"&Cstr(DatBirthday) &"','yyyy-mm-dd')
rs.open strSql
SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH24:MI:SS') "Right Now"
From Dual
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货