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

wly1567

报告楼主：如果我将数据库中工号列改为身份证号列，录入后的18位身份证号码显示为科学计数法，录入后再查询，显示的也是科学计数法，望楼主修正下！

zhaogang1960

原帖由 wly1567 于 2011-4-6 18:59 发表
报告楼主：如果我将数据库中工号列改为身份证号列，录入后的18位身份证号码显示为科学计数法，录入后再查询，显示的也是科学计数法，望楼主修正下！

这个问题好像不用修改vba代吧，设置文本格式就可以了
品质部人事管理系统.rar (36.12 KB, 下载次数: 129)

2011-4-6 20:55 上传

点击文件名下载附件

wly1567

这样好像修改其中的项目时，虽提示已修改，但实际未修改。请楼主试下。

[ 本帖最后由 wly1567 于 2011-4-6 21:50 编辑 ]

zhaogang1960

原帖由 wly1567 于 2011-4-6 21:32 发表
这样好像修改其中的项目时，虽提示已修改，但实际未修改。请楼主试下。

原来的写法太麻烦，换个方法：
Private Sub 修改记录_Click()
    Dim rst As New ADODB.Recordset
    Dim SQL$, temp$, i&, j&, s$
    For i = 2 To 3 '
        If Me.Controls("TextBox" & i).Text = "" Then
            MsgBox rs.Fields(i - 1).Name & "不能为空！", vbCritical
            Me.Controls("TextBox" & i).SetFocus
            Exit Sub
        End If
    Next
    If Me.Controls("TextBox2").Text <> ary(0) Or Me.Controls("TextBox3").Text <> ary(1) Then
        MsgBox "姓名和工号不得修改！", vbInformation
        Call 清空文本框
        Exit Sub
    End If
    Set rst = New ADODB.Recordset
    SQL = "select * from [数据库$] where 姓名='" & ary(0) & "' and 身份证号='" & ary(1) & "'"
    rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    With rst
        For i = 0 To rst.Fields.Count - 1
            .Fields(i) = Me.Controls("TextBox" & i + 1).Text
        Next i
        .Update
    End With
    Set rst = Nothing
    SQL = "select * from [数据库$] "
    If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    Call 清空文本框
    MsgBox "已在数据库中将该记录修改！", vbInformation, "修改记录"
End Sub

zhaogang1960

你的代码中把工号和身份证号混淆了，自己检查一下
附件

品质部人事管理系统.rar (37.67 KB, 下载次数: 212)

2011-4-6 22:06 上传

点击文件名下载附件

wly1567

我再搞下，谢谢楼主！

[ 本帖最后由 wly1567 于 2011-4-6 23:10 编辑 ]

zhangshitou

以access为数据库的程序中
在修改记录代码部分，姓名和工作部门相同就认为是同一条记录，那么我如何修改除非所有记录都相同才认为是同一条记录呢。谢谢，
我想看看代码部分具体怎么写，

zhaogang1960

原帖由 zhangshitou 于 2011-4-15 13:43 发表
以access为数据库的程序中
在修改记录代码部分，姓名和工作部门相同就认为是同一条记录，那么我如何修改除非所有记录都相同才认为是同一条记录呢。谢谢，
我想看看代码部分具体怎么写，

Dim n& '新加,单击ListView1行号
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 'ListView1单击事件
    Dim i&
    n = Item.Index '新加
    TextBox1.Text = Item '首列数据赋给姓名文本框
    ary(0) = Item '姓名存放到数组作为删除记录的姓名查询条件
    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
End Sub
Private Sub 修改记录_Click()
    If n = 0 Then Exit Sub '没有单击事件发生则退出
    If TextBox1.Text = "" Or TextBox6.Text = "" Then
        MsgBox "姓名和工作部门不能为空！", vbInformation, "修改记录"
        Exit Sub '姓名或工作部门为空则退出
    End If
    Dim rst As New ADODB.Recordset
    Dim temp$, i&, j&, s$
    With ListView1
        If Len(.ListItems(n)) Then s = " and " & rs.Fields(0).Name & " = '" & .ListItems(n) & "'"
        For i = 0 To rs.Fields.Count - 1 '逐个字段
            temp = temp & rs.Fields(i).Name & " = '" & Me.Controls("TextBox" & i + 1).Text & "'," '更新记录字符串
            If i > 0 Then If Len(.ListItems(n).SubItems(i)) Then s = s & " and " & rs.Fields(i).Name & " = '" & .ListItems(n).SubItems(i) & "'"
        Next i
    End With
    On Error Resume Next
'    SQL = "update 数据库 set " & Left(temp, Len(temp) - 1) & " where " & rs.Fields(0).Name & "='" & ary(0) & "' and " & rs.Fields(i - 1).Name & "='" & ary(1) & "'"  '姓名和工作部门都相同的视为同一个人
    SQL = "update 数据库 set " & Left(temp, Len(temp) - 1) & " where " & Mid(s, 6) '所有记录都相同才认为是同一条记录
    Set rst = cnn.Execute(SQL) '执行更新
    Set rst = Nothing
    SQL = "select * from 数据库 "
    If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    Call 清空文本框
    MsgBox "已在数据库中将该记录修改！", vbInformation, "修改记录"
    n = 0 '本次单击结束
End Sub

fzlhb

谢谢楼主的分享！

zhangshitou

谢谢楼主的分享！