cn.Open strSQLserver
rs.Open "selete shift.shift,shift.email,car.shift from car,shift where datediff('d',now,car.date)=8 and car.shift=shift.shift and car.confirm is null or car.confirm =''", cn
If Not rs.BOF Then
Dim strEmail As String
strEmail = rs("shift.email")
jmail.AddRecipient strEmail
End If
rs.Close
cn.Close
rs.Open "selete shift.shift,shift.email,car.shift from car,shift where datediff('d',now,car.date)=8 and car.shift=shift.shift and car.confirm is null or car.confirm =''", cn
If Not rs.BOF Then
Dim strEmail As String
strEmail = rs("shift.email")
jmail.AddRecipient strEmail
End If
rs.Close
cn.Close
解决方案 »
- VB运行时出现的错误问题!!(请高手进来看看)
- 我用TeeChart软件画线时,是不是控件不稳定导致的图像线成一条直线
- 问大家一个有关连接字符串的问题
- 当我用Inet控件下载文件的过程中,如何能获得当前已下载的文件大小?
- 一个关于子类的问题:
- MsHflexgrid的记录又变化时,游标怎么不变化,老在第一条?
- 关于activex控件无法创建对象的问题,知道的请进来啊!!!!!
- 急,请问怎样建立共享文件夹,在线等待
- 帮我看一下错在哪里?
- 大哥大姐们,再帮俺看看吧
- 急!在线等!VB中怎样把TextBox控件中的内容添加到DataList控件中?谢谢!
- 急!在线等!VB中怎样把Text控件中的内容添加到DataGrid控件中.谢谢!
---------------------------------
selete 改为select