使用VB6读取数据库资源并发送邮件(原创)
Private Sub Form_Load()
Call conndb
End Sub
Private Function conndb()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn, sql As String
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
Dim banxing, quyu, kemu, tel, nianji As String
Dim thetime As Date
db_host = "122.114.181.75"
db_user = "daishi"
db_pass = "daishi2017!"
db_data = "daishi"
strCn = "DRIVER={MySQL ODBC 5.2 Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & "UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3" & "stmt=SET NAMES gb2312"
cn.open strCn
cn.CursorLocation = adUseClient
sql = "select * from ds_diyform7 where length(g_tel)>0"
rs.open sql, cn
MsgBox rs.Fields(2) & rs.Fields(6)
While rs.EOF = False And rs.RecordCount > 0
rs.MoveFirst
banxing = Trim(rs!g_banxing)
quyu = Trim(rs!g_quyu)
tel = Trim(rs!g_tel)
nianji = Replace(Trim(rs!g_nianji), "一", "1")
nianji = Replace(Trim(rs!g_nianji), "二", "2")
nianji = Replace(Trim(rs!g_nianji), "三", "3")
nianji = Replace(Trim(rs!g_nianji), "四", "4")
nianji = Replace(Trim(rs!g_nianji), "五", "5")
nianji = Replace(Trim(rs!g_nianji), "六", "6")
nianji = Replace(Trim(rs!g_nianji), "七", "7")
nianji = Replace(Trim(rs!g_nianji), "八", "8")
nianji = Replace(Trim(rs!g_nianji), "九", "9")
thetime = Now
If Len(quyu) = 0 Then quyu = "未填写"
If Len(tel) = 0 Then tel = "未填写"
If Len(banxing) = 0 Then banxing = "未选择"
If Len(nianji) = 0 Then nianji = "未选择"
Exit Function
Dim Email As Object
NameS = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "2522237381@qq.com"
Email.To = "cdseoyaoxiaobin@qq.com"
Email.Subject = thetime & quyu & nianji
Email.Textbody = "来新资源啦 " & " 发现时间:" & thetime & " 地区:" & quyu & " 联系电话:" & tel & " 科目:" & kemu & " 年级:" & nianji
Email.Configuration.Fields.Item(NameS & "smtpusessl") = "true"
Email.Configuration.Fields.Item(NameS & "sendusing") = 2
Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com"
Email.Configuration.Fields.Item(NameS & "smtpserverport") = 465
Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS & "sendusername") = "2522237381"
Email.Configuration.Fields.Item(NameS & "sendpassword") = "cuohtxtcopljebeg"
Email.Configuration.Fields.Item(NameS & "cc") = "3046459852@qq.com"
Email.Configuration.Fields.Update
Email.Send
rs.MoveNext
Wend
End Function
使用VB6读取数据库资源并发送邮件(原创)的更多相关文章
- 编写SqlHelper使用,在将ExecuteReader方法封装进而读取数据库中的数据时会产生Additional information: 阅读器关闭时尝试调用 Read 无效问题,解决方法与解释
在自学杨中科老师的视频教学时,拓展编写SqlHelper使用,在将ExecuteReader方法封装进而读取数据库中的数据时 会产生Additional information: 阅读器关闭时尝试调用 ...
- PHP 开发 APP 接口 学习笔记与总结 - APP 接口实例 [2] 首页 APP 接口开发方案 ① 读取数据库方式
方案一:读取数据库方式 从数据库读取信息→封装→生成接口数据 应用场景: 数据时效性比较高的系统 方案二:读取缓存方式 从数据库获取信息(第一次设置缓存或缓存失效时)→封装(第一次设置缓存或缓存失效时 ...
- [置顶] VB6基本数据库应用(三):连接数据库与SQL语句的Select语句初步
同系列的第三篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9455721 连接数据库与SQL语句的Select语句初步 ”前文再续, ...
- 读取数据库数据,并将数据整合成3D饼图在jsp中显示
首先我将生成饼图的方法独立写成一个PieChar.java类,详细代码如下:(数据库需要自己建,如有需要的话) import java.io.IOException; import java.sql. ...
- jdbc读取数据库,表相关信息(含注释)
读取数据库中的所有的表名 private Set<String> getTableNameByCon(Connection con) { Set<String> set = n ...
- JS使用ActiveXObject读取数据库代码示例(只支持IE)
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/ ...
- C#使用SqlDataReader读取数据库数据时CommandBehavior.CloseConnection参数的作用
主要用在ExecuteReader(c)中,如果想要返回对象前不关闭数据库连接,须要用CommandBehavior.CloseConnection: CloseConnection解决了流读取数据模 ...
- 运用.NIT将数据存入数据库、读取数据库(运用封装)陈老师作业
我基础不好,根据所学的知识,书本的例题修改的,也不知道我理解的是否符合老师要求 运用C#将数据存入数据库.并且可以读取数据库里的数据,此项目我运用了封装.我运用了一个窗体将数据存读数据. 我首先创建了 ...
- JNI读取assets资源文件
源自:http://www.rosoo.net/a/201112/15459.html assets目录底下的文件会被打包到一个apk文件里,这些资源在安装时他们并没被解压,使用时是直接从apk中读取 ...
随机推荐
- linux指令(1)
1) date: 日期与秒的转换 (seconds since 1970-01-01 00:00:00 UTC) [root@laas:~]# date --date=2019-12-31 +%s15 ...
- SQL 基础学习(1):下载DB Browser for SQLite. 下载graphviz(为了使用Rails ERD的前提)出现❌,已debug.
SQL is a standard language for storing, manipulating and retrieving data in databases. 关系型数据库:RDBMS( ...
- Matlab:正则Euler分裂
函数文件1: function b=F(x0,h,u,tau) b(,)=x0()-u(); b(,)=x0()-u()+*h*1e8*cos(tau)*x0(); 函数文件2: function g ...
- Vue+Element+Select获取选中的对象
案例演示:获取select当前选中的所有内容 <el-select v-model="value8" filterable placeholder=&qu ...
- PAT 1124 Raffle for Weibo Followers
1124 Raffle for Weibo Followers (20 分) John got a full mark on PAT. He was so happy that he decide ...
- linux 常用指令
w 指令可以看到目前接入到服务器的用户(终端)history xx 可以查看本用户(本终端)最后执行的xx条指令last 指令可以查看登录的日志grep "str" filName ...
- IE10打印预览无反应
1. 建议您打开IE后,按Alt键,选择”工具“-”兼容性视图设置“,将网站添加到兼容性视图列表中,看情况如何.2.internet选项-高级-启用保护模式 勾去掉 看看行不行3.按下“Windows ...
- Git - 生成 ssh key for Mac
终端: cd ~/ .ssh 生成 SSH KEY ssh-keygen -t rsa -C 你的油箱 前往以下目录找到生成好的 SSH KEY /Users/wzz/.ssh/id_rsa.pub
- 获取上一页面url
console.log(window.location.host); #js获取当前域名 console.log(window.location.href); #js获取当前url console.l ...
- A context-aware personalized travel recommendation system based on geotagged social media data mining
文章简介:利用社交网站Flickr上照片的geotag信息将这些照片聚类发现城市里的旅游景点,通过各照片的拍照时间得到用户访问某景点时的时间上下文和天气上下文(利用时间和public API of W ...