Foxtable(狐表) → 用户栏目 → 专家坐堂 → 邮件发送


  共有5296人关注过本帖树形打印复制链接

主题：邮件发送
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		邮件发送  发帖心情 Post By：2019/1/23 10:26:00 [显示全部帖子]

老师好，用帮助文件里的邮件发送程序，为什么不稳定，今天早晨可以发送，现在就不行。为什么程序不稳定。（我关闭了360杀毒和卫士仍然不能发送邮件），请问该怎么解决？

 

Dim m As New MailSender
m.Host = "smtp.163.com"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From ="feng@163.com"
m.To = "zong@sina.com.cn"
m.Title = "订单上报"
m.Content = "订单上报"
m.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.SendAsync()
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/1/23 10:41:00 [显示全部帖子]

用m.Send后，使用新浪的邮箱没有报错，但用网易的免费邮箱提示下面错误，请问怎么办

 

事务失败。 服务器响应为: DT:SPM 163 smtp1,C9GowAAH5Peq00dcdEtXAQ--.241S2 1548211115,please see http://mail.163.com/help/help_spam_16.htm?ip=122.97.179.133&hostid=smtp1&time=1548211115

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/28 10:28:00 [显示全部帖子]

请问老师，程序在附件。
我的问题是：程序是通的，但是结果不对。操作步骤：combox选择ON02，单击button，产生B1和B2两个柱状图，但是的数据显示从23-24，数据应该是24，为何显示从23-24？combox选择ON02，单击button,产生BC和BE两个柱状图，但是的数据显示从12-24，仍然与数据表不符合，请问如何改代码。谢谢指导？




 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目zzt.zip
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/28 12:58:00 [显示全部帖子]

老师好，按照你的修改，结果不对。还是按照我的显示，只是我的显示结果与数据表对不上。比如B1的2019-01-03日的数据是24，不是23-24，而我的的程序结果是23-24，这是不对的，请问如何改代码？

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/28 12:59:00 [显示全部帖子]

显示的结果y周的最小值都应该是0

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/28 15:26:00 [显示全部帖子]

老师好，谢谢指导。我的问题是：图形肯定是Bar，不是其他类型。第二：我的程序输出的图形Y轴最小值不是0，应该是0才对。你看如何改代码？

 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/29 8:32:00 [显示全部帖子]

请问老师，我想导出项目里的所有数据表到数据库里，使用CompactToAccess("c:\data\test.mdb", "")可以一次性全都导出
但是我要导入数据表，只能用下面的语句，这只能导入一个数据表（数据表很多的时候该方法很麻烦），怎样用简短的代码导入全部数据表，代码这么写？谢谢。



Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.mdb" '指定数据文件
ip.SourceTableName = "订单" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Import()
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/29 11:40:00 [显示全部帖子]

请问老师，下面代码执行，提示提示没有名为d:\data.mdb的数据源？我d盘有data.mdb，这是为什么？这么改代码。谢谢

Dim lst As List(Of String) 
lst = Connections("d:\data.mdb").GetTableNames
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/29 13:10:00 [显示全部帖子]

老师，看不明白帮助，下面代码不通，请问怎么改？谢谢


Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Geodata.mdb;Persist Security Info=False")
Dim cn As Connection = Connections("test")
Dim lst As List(Of String)
lst = Connections("d:\Geodata.mdb").GetTableNames
 回到顶部
帅哥哟，离线，有人找我吗？
cglsg5076
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1020 积分：6658 威望：0 精华：0 注册：2015/2/25 23:14:00 		  发帖心情 Post By：2019/3/29 17:00:00 [显示全部帖子]

请问老师，我想遍历所有窗体里的table，并设置这些窗体里的table的字体大小，请问如何写代码？谢谢

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 6 次数据查询