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

finley26 · 发表于 2012-9-10 17:36

服务信息表.rar (31.55 KB, 下载次数: 36) 请楼主帮忙解决，好象不能用，另一个问题，如果数据库里增加列，代码要重写吗？

zhaogang1960 · 发表于 2012-9-10 17:39

finley26 发表于 2012-9-10 17:36
请楼主帮忙解决，好象不能用，另一个问题，如果数据库里增加列，代码要重写吗？

把两个条件列放在第一列和最后一列即可

少如 · 发表于 2012-9-11 07:59

本帖最后由少如于 2012-9-11 09:13 编辑

zhaogang1960 发表于 2012-9-10 16:10

老师再给看看:
打开窗体时提示编译错误,找不到工程库
然后指向Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'ListView1单击事件
这段代码.
谢谢您的多次答复!!!!!

品质部人事管理系统ABC.rar (29.2 KB, 下载次数: 26)

zhaogang1960 · 发表于 2012-9-11 11:11

少如发表于 2012-9-11 07:59
老师再给看看:
打开窗体时提示编译错误,找不到工程库
然后指向Private Sub ListView1_ItemClick(By ....

附件中没有ListView，自己画一个
下面附件是我画上去的

品质部人事管理系统ABC.rar (30.76 KB, 下载次数: 120)

少如 · 发表于 2012-9-11 12:25

zhaogang1960 发表于 2012-9-11 11:11
附件中没有ListView，自己画一个
下面附件是我画上去的

非常感谢您再三再四的帮助我,
因自已对代码一无所知,让您辛苦了!
现在打开窗体提示编译错误, 找不到工程和库
并指向Dim cnn As ADODB.Connection '声明模块级变量，启动窗体后不必重复连接数据库
这一段代码.
如果老师有时间的话, 再帮看看吧--------- 如果还不行,..........下次真的不好意思再麻烦您了
再次感谢!!!!

品质部人事管理系统CBA.rar (28.79 KB, 下载次数: 26)

zhaogang1960 · 发表于 2012-9-11 12:56

少如发表于 2012-9-11 12:25
非常感谢您再三再四的帮助我,
因自已对代码一无所知,让您辛苦了!
现在打开窗体提示编译错误, 找不到工 ...

看来你的ListView和我的不同，总是需要重画
Dim cnn As ADODB.Connection应该没有问题，因为已经引用了
Microsoft ActiveX Data Objects 2.8 Library
去掉这个引用，确定
重新引用，如下图：
捕获.JPG

少如 · 发表于 2012-9-11 16:35

zhaogang1960 发表于 2012-9-11 12:56
看来你的ListView和我的不同，总是需要重画
Dim cnn As ADODB.Connection应该没有问题，因为已经引用了
...

非常感谢! 非常感谢!!
还是不成功------ 我不懂VBA,
只能换一种方式录入了.
非常非常感谢您! 谢谢!! 谢谢!!!

finley26 · 发表于 2012-9-11 18:08

zhaogang1960 发表于 2012-9-10 17:39
把两个条件列放在第一列和最后一列即可

还是不太明白如何做法，如我上传那个[服务信息表]我该如何改呢？请楼主指点迷津，那些代码要改呢？我改了一下但运行不了。。。不知道为何？

finley26 · 发表于 2012-9-12 23:00

zhaogang1960 发表于 2012-9-11 12:56
看来你的ListView和我的不同，总是需要重画
Dim cnn As ADODB.Connection应该没有问题，因为已经引用了
...

请教版主。。。我提出的问题如何解决？

wulibin · 发表于 2012-9-21 14:24

不错的创意

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

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

评分

评分