初学ADO献上小作《电话簿管理系统》

dp1981dp · 发表于 2011-5-18 21:24

谢谢了！！！太强大了！

Qinqinjiang · 发表于 2011-5-19 01:28

谢楼主的分享！

ljx63426 · 发表于 2011-5-22 11:58

非常感激楼主，看了你的帖子学了不少东西，楼主诲人不倦精神更是难能可贵。

zhangshitou · 发表于 2011-6-11 23:12

跟楼主请教个问题，能在这个程序里加个发送有邮件的功能么
加个控件，功能是将当前内容发送至指定的邮箱，
请问能实现么

shayulei · 发表于 2011-6-15 16:30

怎么让excel用ado连access的，我下了你的数据库版，研究了一翻，没找到ADO的设置？

zhaogang1960 · 发表于 2011-6-15 16:37

原帖由 shayulei 于 2011-6-15 16:30 发表
怎么让excel用ado连access的，我下了你的数据库版，研究了一翻，没找到ADO的设置？

在窗体代码区:
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As ADODB.Connection '声明模块级变量，启动窗体后不必重复连接数据库
Dim rs As ADODB.Recordset
……………………
Private Sub UserForm_Initialize()
Dim SQL$, i&, j&, arr, a
a = Array(55.5, 67.5, 81, 72.78, 67.5, 83.28) 'ListView1列宽
Set cnn = New ADODB.Connection
cnn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & ThisWorkbook.Path & "\电话号码.mdb"
SQL = "select * from 数据库 "
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
……………………

zhangshitou · 发表于 2011-6-26 11:39

zhaogang老师给看看这个加了个发送邮件的程序，发送时有问题呢，看看能解决么，调用outlook的

zhaogang1960 · 发表于 2011-6-26 14:43

原帖由 zhangshitou 于 2011-6-26 11:39 发表
zhaogang老师给看看这个加了个发送邮件的程序，发送时有问题呢，看看能解决么，调用outlook的

我不会设置outlook，有现成的代码，就是收不到邮件，实在抱歉
这是找到的用Outlook发送邮件：

用Outlook发送邮件.rar (11.02 KB, 下载次数: 63)

zhangshitou · 发表于 2011-6-27 21:22

原帖由 zhaogang1960 于 2011-6-26 14:43 发表

我不会设置outlook，有现成的代码，就是收不到邮件，实在抱歉
这是找到的用Outlook发送邮件：
946663

我根据您发的附件修改了下程序，加入了个发送邮件的功能，可以使用了，
但是还是不太完善，比如
邮件内容为空时，最好有个提示
怎么增加个添加附件的功能
怎么将文本框的内容最为附件发送出去
等等，请高手看看能不能完善下

zhaogang1960 · 发表于 2011-6-27 21:38

原帖由 zhangshitou 于 2011-6-27 21:22 发表

我根据您发的附件修改了下程序，加入了个发送邮件的功能，可以使用了，
但是还是不太完善，比如
邮件内容为空时，最好有个提示
怎么增加个添加附件的功能
怎么将文本框的内容最为附件发送出去
等等，请高手看 ...

1——11文本框如果有一个有内容就应该可以发送？
顺便问一句：换上163邮箱地址为什么收不到呢？是不是outlook设置的正确？

带邮件功能.rar (48.57 KB, 下载次数: 73)

		自动登录	找回密码
密码			免费注册

[分享] 初学ADO献上小作《电话簿管理系统》