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

zhaogang1960

原帖由 yxrlqy 于 2011-7-23 14:52 发表
借用楼主的代码，用来做文件登记，增加了列，里面有些空的字段，现在出现问题模糊查找找不到记录

是以本工作簿工作表为数据库吧，增加各参数：imex=1
Private Sub UserForm_Initialize()
    Dim SQL$, i&, j&, arr, a()
    With Sheet2
        arr = .Range("A2").CurrentRegion
        ReDim a(UBound(arr, 2) - 1)
        For i = 0 To UBound(a)
            a(i) = .Columns(i + 1).ColumnWidth * 6 'ListView1各列列宽
        Next
    End With
    Set cnn = New ADODB.Connection
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
    SQL = "select * from [数据库$] "
    Set rs = New ADODB.Recordset
    rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    On Error Resume Next
    With ListView1
        '设置ListView1的标题、显示类型、整行选择和网格线属性
        .ColumnHeaders.Clear
        .View = lvwReport        '   listivew的显示格式为报表格式
        .FullRowSelect = True    '   允许整行选中
        .Gridlines = True        '   显示网格线
        '为ListView1设置标题
        For i = 0 To rs.Fields.Count - 1
            If i > 0 Then
                .ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter '从第2列起居中
            Else
                .ColumnHeaders.Add , , rs.Fields(i).Name, a(i)
            End If
        Next i
    End With
    Call 显示数据(SQL) '为ListView1设置各行数据
    arr = cnn.Execute("select distinct " & rs.Fields(i - 1).Name & " from [数据库$] where " & rs.Fields(i - 1).Name & " is not null ").GetRows '不重复的工作部门，为了修改字段名后不受影响使用了rs.Fields(i - 1).Name来代替“工作部门”
    ComboBox1.List = WorksheetFunction.Transpose(arr) '不重复的工作部门赋值给组合框
    模糊查询.SetFocus
End Sub

yxrlqy

我真的没想到斑竹这么快给我回复，非常感谢，佩服老师的敬业精神，真心的向你说声谢谢。我已将老师上面的代码代替，但仍有问题，烦请老师有空的话帮我看看问题出在哪？另外我还有想法，当我在添加数据的时候，想跟ComboBox1一样，现在的窗体真的人工输入。

zhaogang1960

原帖由 yxrlqy 于 2011-7-23 23:41 发表
我真的没想到斑竹这么快给我回复，非常感谢，佩服老师的敬业精神，真心的向你说声谢谢。我已将老师上面的代码代替，但仍有问题，烦请老师有空的话帮我看看问题出在哪？另外我还有想法，当我在添加数据的时候，想跟Co ...

数据库有29列，而窗体上只有19个文本框

yxrlqy

我按照版主的方法添加了文本框，请老师帮忙看看问题出在哪里

zhaogang1960

原帖由 yxrlqy 于 2011-7-24 15:56 发表
我按照版主的方法添加了文本框，请老师帮忙看看问题出在哪里

以工作表为数据库不适合你这个方案，如果使用了参数imex=1，就不能用sql添加纪录，否则数据类型导致查询不全：
求助.rar (51.24 KB, 下载次数: 118)

2011-7-24 16:39 上传

点击文件名下载附件

song22602

老师：我模仿用你的《电话簿管理系统》的access作为数据库，做了一个台帐管理，因为数据量较大，所以想请老师指导下；
1、由于数据量大（1万多条）,你是用姓名（第一列）和部门（第6列）不能为空，我想变为第二列（编号）不能为空。（第一列为序号）。
2、模糊查找方面：能否再加上"and" "or", 如: 性别为:男 and 部门为"厂部", 又如:部门为"厂部" or  部门为"行政处".
3、在access数据库中，数据表有几，是否可以在同一窗体显示。
4、能否用的mm=20 代表数据库字段数，哪就不能修改很多地方，只修显示的宽度就可能了。
谢谢了！！
注就用老师你的附件。

[ 本帖最后由 song22602 于 2011-7-27 08:42 编辑 ]

opel-wong

非常感谢：zhaogang1960 版主的大作分享~~~~~
提几点小意见：
1、进入查询界面时， 模糊查询 与 工作部门 对应的查询框中，显示灰色字体：请输入查找关键字 与 请点击选择部门
     用鼠标单击后，则清空默认显示的数值；
    下面的显示的数据区域中为空，因为还没有查询条件哟~~~且当清空所有的查询条件后，数据区域所显示的信息也为空。
     这样的话，窗体上那个：全部显示 的按钮才会显得更有作用，您说是吗？
     
2、若这个电话薄管理系统放在公司的局域网平台上，资料的维护与更新只有指定的人才有权限修改。
     当其他人查看时，发现有错误或遗漏，如何在这个窗体上面实现尽快将信息通知到责任管理人员。
     建议：在窗体上加个按钮：信息反馈
     点击时，启动当前用户的邮箱，以默认的邮箱地址自动写好以下邮件内容，由用户决定是否发出：
    收信人：abc@123.com,def@126.com    主题：有关通讯录之信息反馈
     邮件正文：如题，详情如下表

    PS：贴不上这种表格的形式，只能抓成图片贴上来，以示说明。

3、在打开工作薄进入主界面，点击按钮 数据库 的时候，有以下几点建议：
      3.1 应显示当前工作表的：编辑栏、水平滚动条、垂直滚动条、工作表标签；
      3.2 除当前工作表外，其它工作表隐藏不显示；

4、在打开工作薄的时候，由程式判断，非指定当前系统登录用户【VBA.Environ("username")】，
      隐藏Excel界面，出现一个动态的对话框：通讯录查询系统，3秒钟后自动进入，请稍等......，然后直接调出查询窗体,退出窗体则退出查询系统.

5、以姓名与工作部门来决定判断不能为同一人，有点想法：
     

1. If temp = c.Value & Chr(9) & c.Offset(, rs.Fields.Count - 1) Then '姓名和工作部门都相同的视为同一个人

复制代码

      因为在工厂的人员，来自五湖四海，姓名绝对有重复的，即使是同一个部门，可能机率不大。
      个人建议：用工号来判断是否重复才是王道，因为工号才是唯一性的，绝对不可能会有重复的。

声明一下：由于我在工厂工作，以上只是个人想法与见解，却切合于实际之运作；说的比较多，望版主海涵哟~~~
当然，更加期待版主的进一步完善，相信很多坛友也有此想法哟~~~~~~
'

[ 本帖最后由 opel-wong 于 2011-7-28 02:52 编辑 ]

zhaogang1960

opel-wong老师好：
建议非常有创意，值得学习。
这个工作簿只是一个初级习作，起点很低，没有什么实用价值。

qczvba

很好的VBA学习示例。谢赵版主分享。

minjiwei

这个实用，谢谢啊。