利用窗体增加、修改、删除及模糊查询导出数据

skennny

sheet 发表于 2012-3-5 19:15
我测试不行：

看看怎么样

ugyun

sheet 发表于 2012-3-5 19:23
哈哈！看一下自己做的效果：

您好，您这个窗体特别漂亮，能分享吗？我急需一个这样的查询窗体

qldd

谢谢楼主分享，正好想学习窗体方法

13885620776

谢谢楼主分享

rjtang

下载学习,谢谢!

周秦汉

非常简单实用的宏，适合新手学习借鉴。

flf19720321@163

好！！！！

yanny2

你好，我用了你的表格修改了一下，想做一个材料检索表格的。但是呢，关键字查询那里我不懂修改。我想数据可以对应我的查询项。能告知怎么修改么？谢谢。 材料查询.zip (29.49 KB, 下载次数: 262)

2013-8-8 17:38 上传

点击文件名下载附件

rflhjl

六郎 发表于 2012-3-4 20:57
添加数据很正常，不存问题，可能你的excel软件有问题。这个不用教，一看便会。

你好，下面这段代码中的TextBox是6个，增加了就不能修改了。
Private Sub 修改记录_Click()
    Dim rst As New ADODB.Recordset
    Dim SQL$, temp$, i&, j&, s$, ok As Boolean
    If TextBox1.Text = "" Or TextBox21.Text = "" Then Exit Sub '姓名为空则退出
    For i = 0 To rs.Fields.Count - 1 '逐个字段
        s = Me.Controls("TextBox" & i + 1).Text
        If Len(s) = 0 Then
            If i > 1 And i < rs.Fields.Count - 1 Then
                s = "0"
                ok = True
            End If
        End If
        If Not IsNumeric(s) Then s = "'" & s & "'"
        temp = temp & rs.Fields(i).Name & " = " & s & "," '更新记录字符串
    Next i
    On Error Resume Next
    SQL = "update [sheet1$] set " & Left(temp, Len(temp) - 1) & " where " & rs.Fields(0).Name & "='" & ary(0) & "' and " & rs.Fields(i - 1).Name & "='" & ary(1) & "'" '姓名和工作部门都相同的视为同一个人
    rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic '执行更新
    Set rst = Nothing
    If ok Then Sheet1.UsedRange.Replace 0, "", xlWhole '清除sheet1工作表中的"0"
    SQL = "select * from [sheet1$] "
    If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    Call 清空文本框
    MsgBox "已在sheet1中将该记录修改！", vbInformation, "修改记录"
End Sub
或者：
Private Sub 修改记录_Click()
    Dim rst As New ADODB.Recordset
    Dim SQL$, temp$, i&, j&, s$, ok As Boolean
    For i = 1 To rs.Fields.Count Step rs.Fields.Count - 1 '这里设置姓名和工作部门字段不能为空
        If Me.Controls("TextBox" & i).Text = "" Then
            MsgBox rs.Fields(i - 1).Name & "不能为空！", vbCritical
            Me.Controls("TextBox" & i).SetFocus
            Exit Sub
        End If
    Next
    For i = 0 To rs.Fields.Count - 1 '逐个字段
        s = Me.Controls("TextBox" & i + 1).Text
        If Len(s) = 0 Then
            If i > 1 And i < rs.Fields.Count - 1 Then
                s = "0"
                ok = True
            End If
        End If
        If Not IsNumeric(s) Then s = "'" & s & "'"
        temp = temp & rs.Fields(i).Name & " = " & s & "," '更新记录字符串
    Next i
    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) & "'" '姓名和工作部门都相同的视为同一个人
    rst.Open SQL, cnn, adOpenKeyset, adLockOptimistic '执行更新
    Set rst = Nothing
    If ok Then Sheet2.UsedRange.Replace 0, "", xlWhole '清除数据库工作表中的"0"
    SQL = "select * from [数据库$] "
    If 模糊查询.Text = "" Then Call 显示数据(SQL) Else 模糊查询.Text = "" '刷新ListView1数据
    Call 清空文本框
    MsgBox "已在数据库中将该记录修改！", vbInformation, "修改记录"
End Sub
都不行，我是借用不懂，能帮帮吗，关键是对代码好我不明白？

xzgdsf

能帮我改一下吗？谢谢！
http://club.excelhome.net/thread-1072689-1-1.html