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

steven101 · 发表于 2012-9-9 20:03

唉，这个我用不上

少如 · 发表于 2012-9-10 09:01

zhaogang1960 发表于 2012-9-9 18:47
原附件中有个约定：
ary(0) = Item '姓名存放到数组作为删除记录的姓名查询条件
ary(1) = .ListItems(I ...

谢谢老师!
我不需要任何约定, 只要能录入, 查询即可
学生不懂VBA, 请老师在我的附件中作好就行了
让您辛苦了, 学生期待中.....
再次感谢!!!

少如 · 发表于 2012-9-10 09:22

zhaogang1960 发表于 2012-9-9 18:47
原附件中有个约定：
ary(0) = Item '姓名存放到数组作为删除记录的姓名查询条件
ary(1) = .ListItems(I ...

如果必须要约定, 那就用[合同编号]与[建筑商名称]
即[数据库]表的 C 列与 L 列为约定吧.
您的这个表非常好, 学生在工作中很需要他!
请老师辛苦辛苦, 帮我作好他.
再次感谢!!!!!

zhaogang1960 · 发表于 2012-9-10 10:25

少如发表于 2012-9-10 09:22
如果必须要约定, 那就用[合同编号]与[建筑商名称]
即[数据库]表的 C 列与 L 列为约定吧.
您的这个表非 ...

原代码已经考虑了这个问题，把两个条件放在第一列和最后一列即可，否则需要修改的代码太多：

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'ListView1单击事件
Dim i&
TextBox1.Text = Item '首列数据赋给姓名文本框
ary(0) = Item '姓名存放到数组作为删除记录的姓名查询条件
With ListView1
For i = 1 To 5 '逐列数据写入文本框
Controls("TextBox" & i + 1) = .ListItems(Item.Index).SubItems(i)
Next i
ary(1) = .ListItems(Item.Index).SubItems(i - 1) '工作单位存放到数组作为删除记录的工作单位查询条件
End With
End Sub

复制代码

少如 · 发表于 2012-9-10 10:53

本帖最后由少如于 2012-9-10 10:55 编辑

zhaogang1960 发表于 2012-9-10 10:25
原代码已经考虑了这个问题，把两个条件放在第一列和最后一列即可，否则需要修改的代码太多：

谢谢版主!
我不懂VBA, 请您把天书放在我的附件中吧
谢谢了!!!!!!!

品质部人事管理系统QQ.rar (39.48 KB, 下载次数: 23)

zhaogang1960 · 发表于 2012-9-10 10:58

少如发表于 2012-9-10 10:53
谢谢版主!
我不懂VBA, 请您把天书放在我的附件中吧
谢谢了!!!!!!!

把两个条件放在第一列和最后一列，1楼代码不用修改，上面代码就是1楼附件中的

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

zhaogang1960 发表于 2012-9-10 10:58
把两个条件放在第一列和最后一列，1楼代码不用修改，上面代码就是1楼附件中的

我做了几次都没成功-------- 自已太笨了!
还得劳架老师辛苦一下, 帮作一下吧!
谢谢! 谢谢!! 谢谢!!!

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

少如发表于 2012-9-10 11:12
我做了几次都没成功-------- 自已太笨了!
还得劳架老师辛苦一下, 帮作一下吧!
谢谢! 谢谢!! 谢谢!!!

品质部人事管理系统QQ.rar (37.59 KB, 下载次数: 100)

少如 · 发表于 2012-9-10 13:32

本帖最后由少如于 2012-9-10 15:44 编辑

zhaogang1960 发表于 2012-9-10 11:30

在窗体中录入后, 点添加记录, 提示数据库已存在该记录, 检查数据库却没有此记录
唉! 真没办法---- 我太笨了!
老师试验一下, 看看是不能保存至[数据库]吗?

品质部人事管理系统QQBB.rar (36.73 KB, 下载次数: 16)

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

少如发表于 2012-9-10 13:32
在窗体中录入后, 点添加记录, 提示数据库已存在该记录, 检查数据库却没有此记录
唉! 真没办法---- 我太 ...

品质部人事管理系统QQBB.rar (32.83 KB, 下载次数: 105)

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

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