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

zhangshitou

原帖由 zhaogang1960 于 2011-4-15 15:57 发表

Dim n& '新加,单击ListView1行号
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'ListView1单击事件
    Dim i&
    n = Item.Index '新加
    TextBox1.Text = Item '首列数据赋给姓 ...

这个是我侵犯楼主版权修改的一个程序，嘿嘿，就是关于修改部分的，目的是除非所有字段都一样才认为是同一条记录，但是修改了后还是不能搞定呢，
还有就是数据导出后如果数字太长的话显示成 科学计数型的，不能正常显示 求zhao哥给我看看吧，呵呵

zhaogang1960

原帖由 zhangshitou 于 2011-4-15 21:09 发表

这个是我侵犯楼主版权修改的一个程序，嘿嘿，就是关于修改部分的，目的是除非所有字段都一样才认为是同一条记录，但是修改了后还是不能搞定呢，
还有就是数据导出后如果数字太长的话显示成 科学计数型的，不能正常 ...

问题.rar (45.86 KB, 下载次数: 218)

2011-4-15 21:22 上传

点击文件名下载附件

吴民光

原来是老师的作品，早就下载学习了，我想改作它用，还没改成。

ou1987

谢谢楼主分享

zhangshitou

原帖由 zhaogang1960 于 2011-4-15 21:22 发表

907290

请问，具体是修改的哪段代码呢

zhaogang1960

原帖由 zhangshitou 于 2011-4-16 23:29 发表

请问，具体是修改的哪段代码呢

窗体代码区最上端
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As ADODB.Connection '声明模块级变量，启动窗体后不必重复连接数据库
Dim rs As ADODB.Recordset
Dim ary(1) As String
Dim n&'新加
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'ListView1单击事件
    Dim i&
    TextBox1.Text = Item '首列数据赋给姓名文本框
    ary(0) = Item '姓名存放到数组作为删除记录的姓名查询条件
    With ListView1
        For i = 1 To 11 '逐列数据写入文本框
            Controls("TextBox" & i + 1) = .ListItems(Item.Index).SubItems(i)
        Next i
    End With
    n = Item.Index '新加
End Sub

zhangshitou

再麻烦下zhao哥看下这个程序，还是修改记录的问题，无法修改，zhao哥受累看看
账号usr1
密码1

zhaogang1960

原帖由 zhangshitou 于 2011-4-17 16:31 发表
再麻烦下zhao哥看下这个程序，还是修改记录的问题，无法修改，zhao哥受累看看
账号usr1
密码1

变量SQL没有声明，在最顶端：
dim SQL$

wly1567

望楼主得闲时看下，谢谢！
未改动任何代码，仅仅改了一下数据库内容，运行修改记录时，出现错误提示，添加记录时，也无法添加。
ListView1 第一列日期格式和数据导出的第一列日期格式想要2011-08-08 09:09:09 格式（即yyyy-mm-dd HH：mm：ss格式），怎么设置？

zhaogang1960

原帖由 wly1567 于 2011-4-18 20:41 发表
望楼主得闲时看下，谢谢！
未改动任何代码，仅仅改了一下数据库内容，运行修改记录时，出现错误提示，添加记录时，也无法添加。
ListView1 第一列日期格式和数据导出的第一列日期格式想要2011-08-08 09:09:09 格式 ...

你选择了订单编号、品名作为定位标志：
管理.rar (33.86 KB, 下载次数: 172)

2011-4-18 21:41 上传

点击文件名下载附件