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

caicaikan · 发表于 2011-4-18 22:40

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

wly1567 · 发表于 2011-4-18 22:46

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

zhaogang1960 · 发表于 2011-4-18 22:55

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

代码关系比较乱，好多字段数据库中没有
还有原来定的两个字段不能修改的做法不太好，请参考121楼后面的所有字段都相同才认为是同一条记录

管理.rar (37.54 KB, 下载次数: 128)

caicaikan · 发表于 2011-4-18 23:00

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

zhaogang1960 · 发表于 2011-4-18 23:25

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

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

wly1567 · 发表于 2011-4-18 23:39

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

zhangshitou · 发表于 2011-4-19 23:28

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

zhaogang1960 · 发表于 2011-4-19 23:38

原帖由 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 · 发表于 2011-5-7 15:24

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

dp1981dp · 发表于 2011-5-18 21:21

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

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

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

回复 130楼 zhaogang1960 的帖子

回复 133楼 zhaogang1960 的帖子

回复 1楼 zhaogang1960 的帖子