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

weis026 · 发表于 2018-7-15 12:05

下来学习一下

hqlin65 · 发表于 2018-11-27 16:35

学习了。。。。。。

hanzhang98 · 发表于 2019-3-10 20:10

本帖最后由 hanzhang98 于 2019-3-10 21:02 编辑

感谢老师分享和赐教。想请教老师下面代码如何改为将“第二列数据赋给姓名文本框”。因为我的第一列是”序号” 不需要在文本框中显示。谢谢！

TextBox1.Text = Item '首列数据赋给姓名文本框

复制代码

再请教老师一个问题：就是不想要这样的“For i = 1 To 5 '逐列数据写入文本框”，而是想改为直接用代码指定，比如直接将“工作部门”指定在“TextBox3”文本框显示、将“职务”指定在“TextBox4”文本框显示。如果要实现这样的要求，下面代码如何改，烦劳请老师修改赐教。再次感谢。

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

复制代码

weng21509 · 发表于 2019-4-29 07:49

今天闲逛浏览，好作品把我留住许久。谢谢版主！！！

xmnhs · 发表于 2020-3-13 11:30

学习收藏了,谢谢版主！！！

xmnhs · 发表于 2020-3-13 11:34

Dim i%, j%, arr(), col%, m%
With ListView1
      col = .ColumnHeaders.Count 'ListView列数
      ReDim arr(1 To .ListItems.Count, 1 To col) '定义数组行数、列数同ListView
      For i = 1 To .ListItems.Count '逐行
         If .ListItems(i).Checked = True Then '选中
            m = m + 1
            arr(m, 1) = .ListItems(i)
            For j = 1 To col - 1
                  arr(m, j + 1) = .ListItems(i).SubItems(j)
            Next
         End If
      Next
End With
  ThisWorkbook.Sheets(3).[a65536].End(xlUp).Offset(1).Resize(m, col) = arr
如何能表头也导出？这是导到ThisWorkbook.Sheets(3)的，若直接另存iPath = ThisWorkbook.Path & "\"？谢谢！

tomsxiong · 发表于 2020-3-15 17:15

把基础学好了，再来学大师的

qinhuan66 · 发表于 2020-3-26 16:36

zhaogang1960 发表于 2015-1-31 13:30
请看附件

zhaogang1960老师，如果根目录文件夹有通讯录人员的相片如何匹配到窗口上。谢谢

电话簿管理系统(以access为数据库)新增导入excel数据功能.rar (174 KB, 下载次数: 19)

lilo198251 · 发表于 2020-4-30 10:32

大师，如何连接access数据库，更改为3条件模糊查询？

123zdl123 · 发表于 2020-5-5 10:38

感谢分享下载学习

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

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