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

caicaikan

学习了，不知道楼主能不能增加一个导入功能？就是按照你的表格输入，一次性就自动导入成功，更新你的数据库？

wly1567

我添加一条记录后，再修改刚添加的记录，却提示类型不匹配，希望楼主解决。
ListView1 第一列日期格式已解决，谢谢！
导出的数据表格第一列也要2011-08-08 09:09:09 格式怎么办？

zhaogang1960

原帖由 wly1567 于 2011-4-18 22:46 发表
我添加一条记录后，再修改刚添加的记录，却提示类型不匹配，希望楼主解决。
ListView1 第一列日期格式已解决，谢谢！
导出的数据表格第一列也要2011-08-08 09:09:09 格式怎么办？

代码关系比较乱，好多字段数据库中没有
还有原来定的两个字段不能修改的做法不太好，请参考121楼后面的所有字段都相同才认为是同一条记录
管理.rar (37.54 KB, 下载次数: 128)

2011-4-18 22:55 上传

点击文件名下载附件

caicaikan

谢谢分享，提个小建议：如果能够做一个导入功能就更好了，就是能够导入excel，然后把界面稍微优化一下就更好。

zhaogang1960

原帖由 caicaikan 于 2011-4-18 23:00 发表
谢谢分享，提个小建议：如果能够做一个导入功能就更好了，就是能够导入excel，然后把界面稍微优化一下就更好。

谢谢建议，这只是一个初学ADO的习作，旨在和初学者共勉，有很多不足，不可作为样板

wly1567

有问必答，谢谢楼主帮我搞定，您辛苦了！
楼主做的这个系统通用性很强，个人只要稍作修改便可自用，非常敬佩楼主的共享精神，我会一直关注此贴。

zhangshitou

为什么我加了段隐藏excel启动界面的的代码后
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
数据导出项无法导出了呢，什么原因呢

zhaogang1960

原帖由 zhangshitou 于 2011-4-19 23:28 发表
为什么我加了段隐藏excel启动界面的的代码后
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
数据导出项无法导出了呢，什么原因呢

Private Sub 数据导出_Click()
    If rs.RecordCount = 0 Then Exit Sub '没有查询记录则退出
    Application.Visible = True'导出数据时excel可见
    Dim arr(), i&, j&
    ReDim arr(rs.Fields.Count - 1)
    On Error Resume Next
    For i = 0 To rs.Fields.Count - 1 '逐个字段
        arr(i) = rs.Fields(i).Name '取字段名
    Next i
    With Workbooks.Add(xlWBATWorksheet).ActiveSheet '新建只有一个工作表的工作簿
        .Range("A2").CopyFromRecordset rs '复制全部数据
        With .Cells(1, 1).Resize(, rs.Fields.Count) '表头区域
            .Value = arr '写表头
            .Font.Bold = True '黑体
            .EntireColumn.AutoFit
            .HorizontalAlignment = xlCenter '垂直居中
        End With
        .Range("a2:a" & [a65536].End(xlUp).Row).NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
        .Range("A2").CurrentRegion.EntireRow.AutoFit
    End With
End Sub

qjw9004

很有用的的~~谢谢!~~

dp1981dp

最近没时间！留下脚印 号寻找！
谢谢了！