注册 登录
编程论坛 VB6论坛

[原创]最简单的通讯录示例(最简单Access数据库连接示例)

西山居士 发布于 2007-07-06 23:17, 8326 次点击
*/ --------------------------------------------------------------------------------------
*/ 出自: 编程中国 https://www.bc-cn.net
*/ 作者: 西山居士
*/ 时间: 2007-7-6 编程论坛首发
*/ 声明: 尊重作者劳动,转载请保留本段文字
*/ --------------------------------------------------------------------------------------


一、本程序代码非常简单,只用了几行代码完成。
二、为了使代码最简单易懂,没有做任何美化。
三、有人问vb连接Access2000的问题,此数据库是Access2003,示例说明连接Access2000及以上数据库是没问题的。
四、第一期竞赛题目即是通讯录,但似乎好多人对数据库有敬畏感和神密感,通过本示例你会觉得数据库原来是如此的简单。
只有本站会员才能查看附件,请 登录

35 回复
#2
缘吇弹2007-07-06 23:36
西山兄,加精吧.别不好意思了!~
#3
hai992007-07-07 00:32
斑竹最好再给个美化的,谢谢!
#4
卡卡希比2007-07-07 02:19
谢谢,对于我,太重要了!!!
西山如果有空的话,多出一点像这样的
这版加精,一下加下去。呵呵!!!
#5
西山居士2007-07-07 09:44
以下是引用缘吇弹在2007-7-6 23:36:33的发言:
西山兄,加精吧.别不好意思了!~

很简单的个示例,给初学者参考的,加精就不必了。

#6
西山居士2007-07-07 09:46
以下是引用hai99在2007-7-7 0:32:17的发言:
斑竹最好再给个美化的,谢谢!

要真正实用化,光美化是不够的,还需要增加很多功能。你自己可以参考此代码做些美化,锻炼一下自己不更好?

#7
西山居士2007-07-07 09:50
以下是引用卡卡希比在2007-7-7 2:19:23的发言:
谢谢,对于我,太重要了!!!
西山如果有空的话,多出一点像这样的
这版加精,一下加下去。呵呵!!!

比这完整的代码论坛里有很多,我这只是为了使初学者更容易入门而写,太简单了,不必加精。如果有时间了再写些较完整的。

#8
水手20062007-07-07 10:33

支持西山。多些这样的版主就好。

#9
缘吇弹2007-07-07 11:09

西山我真是服了你了

#10
zhulei19782007-07-13 15:41
我打开该工程时提示:
只有本站会员才能查看附件,请 登录

请问是什么意思。
#11
zrgong2007-07-13 22:41
这个是你机器上安装了Visual SourceSafe才跳的,进行原码控制的,非常实用,特别是团队开发中,sourcesafe可建立一个数据库文件对你的源代码进行增量备份,一旦你以后发现现在的代码状态不如以前某个状态时,可以将代码回滚到以前状态,在回滚前你可以对代码进行对比。个人嘛可以直接点no忽略了。如果想不提示只需要找菜单项:Add-ins\Add in Manager,找到souce code control 项,去掉Load on behavoir 内所有选项即可。

[此贴子已经被作者于2007-7-13 22:41:53编辑过]


#12
zhulei19782007-07-14 14:24
谢谢楼上
#13
lochness252007-07-15 21:20
回复:(西山居士)[原创]最简单的通讯录示例(最简单...

打不开你的那个压缩文件~!~总是提示加载错误~!~

#14
西山居士2007-07-15 21:48
以下是引用lochness25在2007-7-15 21:20:09的发言:

打不开你的那个压缩文件~!~总是提示加载错误~!~

你装个WinRAR,不知道你是用什么解压?

#15
tgb2007-07-20 16:58
学习一下!
#16
boyfing2007-09-10 16:43

那查询功能代码怎么写?

#17
西山居士2007-09-10 23:22
以下是引用boyfing在2007-9-10 16:43:55的发言:

那查询功能代码怎么写?

If Option1.Value = True Then

If Val(Text1.Text) <> girl Then Text1.Text = Str$(boy)

If Val(Text1.Text) = girl Then

Adodc1.RecordSource = "SELECT * FROM XSDJ WHERE 性别=0"
Adodc1.Refresh
Text1.Text = "女生"

Else

If Val(Text1.Text) = boy Then

Adodc1.RecordSource = "SELECT * FROM XSDJ WHERE 性别=-1"
Adodc1.Refresh
Text1.Text = "男生"

End If

End If

End If

声明:
Private Const boy = -1
Private Const girl = 0

#18
boyfing2007-09-12 08:46
如果是DATA控件呢
#19
knight12122007-09-13 11:00
选NO就可以了
#20
bluefox79022008-03-14 16:11
我是初学的,先学习一下.
#21
JXAWGY2008-03-19 14:02
有vb连接SQL的例子吗?
#22
a4145565932008-03-28 22:16
有点简单些!但下了,还是说声谢谢
#23
missliuyan2008-04-06 17:45
感谢
太好了,谢谢!
#24
wf2719190522008-04-06 20:57
没看明白怎么连接数据库的
  郁闷啊
#25
zougonghua2008-04-07 11:07
现在用adodc控件来连接ACCESS多吗?
#26
borly2009-06-26 09:43
总想好好学习数据库,谢谢了。
#27
River73122009-11-14 16:21
学习一下
#28
yuanyuan1232009-12-01 20:20
???????????
#29
frank_tao782010-01-11 19:57
用户名和密码是多少?谢谢!
#30
kaichii2010-04-20 12:05
感謝分享 學習中
#31
tengyu2010-04-23 11:02
支持西山。多些这样的版主就好。
#32
quanquanwang2011-12-05 16:14
只有本站会员才能查看附件,请 登录
不知道楼主还在此论坛不?本人初学VB+ACCESS,在树上找了个例子练习,但是貌似连接数据库有问题,老调试不出来,求指教。附带程序和数据库。
#33
yisoooo2012-02-01 12:31
回复 10楼 zhulei1978
支持西山。多些这样的版主就好
#34
tw_love_code2012-07-08 11:44
回复 10楼 zhulei1978
你不会翻译啊?
#35
yywd42012-08-10 21:33
下载学习,真心说声谢谢了。
#36
lujinchun2012-08-31 18:42
谢谢分享,学习哦
1