易截截图软件、单文件、免安装、纯绿色、仅160KB

vb和sql连接 日期函数转换问题

那位指点一下 我有一个程序是VB和sql做的,sql有一个字段叫做维护时间 类型是datetime 我想用DateDiff函数做日期比较 但是只能比较维护时间的第一行日期 我想让只要比较所有维护时间里的数值! (我问了问,有人说是数据类型不匹配,我改成了m = DateDiff("d", rs("维护时间"), Now) 改成 m = DateDiff("d", rs("sql"), Now) 也报错 希望高人指点 代码如下:Dim m As Integer
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

  conn.ConnectionString = "Driver={sql server};server=niy;uid=;pwd=;database=sb"
conn.ConnectionTimeout = 30
conn.Open
sql = "select 维护时间 from 维护管理"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
m = DateDiff("d", rs("维护时间"), Now)
If m = 0 Then
Text1.Text = m
Print
End If
End Sub
報的什麼錯啊,也不貼出來,叫人怎麼回答

没报错,就是实现功能错了,想实现查看所有维护时间字段里的数!但它只查第一个数!

sql = "select DateDiff('d', rs!维护时间, Now) from 维护管理"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic

rs.Open sql, conn, adOpenKeyset, adLockPessimistic 报错 附近有错误!


能在详细点吗??下边怎么输出啊,我把select 维护时间 from 维护管理 where Datediff(d, 维护时间, GetDate())=0 到查询分析器里只返回字段名 可我字段里有2010-4-13 啊

VB code



Code highlighting produced by Actipro CodeH


相关问答:

vb - VB / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb读取xml - VB / 基础类

现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

求一个SQL语句 - MS-SQL Server / 基础类

字段1,字段2.....字段N,Status,ParentID
1,Name1....test1,1,99
1,Name1....test1,3,99
1,Name2....test2,1,101
1,Name2....test2,3,101
1,Name3....test3,2,101
1,Name1....test1,4,101
想要的结果是:
1,Na ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号