精华内容
下载资源
问答
  • 可以添加一个删除按钮,当选中某一条记录的时候,单击删除按钮可以调用ADO或者用SQL删除掉数据库中的记录,但是我现在的数据显示界面是EXCEL界面,在EXCEL中提供了删除一行的命令,但是这条命令只是删除了工作表中的...

    我的意思是如果我做一个窗体界面的话,可以添加一个删除按钮,当选中某一条记录的时候,单击删除按钮可以调用ADO或者用SQL删除掉数据库中的记录,但是我现在的数据显示界面是EXCEL界面,在EXCEL中提供了删除一行的命令,但是这条命令只是删除了工作表中的行,怎样才能自动的把数据库中对应的记录也删除掉呢?下面是我的存储数据的子函数

    Public Function 存储数据() As Boolean

    Dim myData As String, myTable As String

    Dim WB As Workbook, WS As Worksheet

    Dim i As Long, j As Long, n As Long, 列标 As Long

    Dim strSQL As String

    Dim rs As ADODB.Recordset

    存储数据 = True

    '设置保护

    ActiveSheet.Protect contents:=True

    myData = ThisWorkbook.Path & "\公交考勤.mdb"

    myTable = strWorkSheetName

    '临时添加在此处的函数调用,将来在主函数中调用此函数

    'Call 连接数据库

    '检查数据库是否存在,如果存在再继续

    If Dir(myData) = "" Then

    MsgBox "数据库不存在"

    Exit Function

    Else

    Set WB = ThisWorkbook

    Set WS = WB.Sheets(strWorkSheetName)

    '---开始向数据表中添加数据-----

    'frm保存数据.Show

    n = WS.Range("a65536").End(xlUp).Row    '  获得要保存的记录的记录数(行数)

    '添加一个函数确定要查找的卡号的列数

    For i = 1 To WS.Range("IV1").End(xlToRight).Column

    If WS.Cells(1, i).Value = Trim("卡号") Then

    列标 = i

    End If

    Next i

    For i = 2 To n

    '在状态栏显示处理的进度

    Application.StatusBar = "共计" & n - 1 & "条记录;正在处理第" & i - 1 & "条记录;还剩余" & n - i & "条记录"

    '查询记录是否存在

    strSQL = "select * from " & myTable & " where 卡号='" & WS.Cells(i, 列标).Value & "'"

    Set rs = New ADODB.Recordset

    rs.Open strSQL, CNN, adOpenKeyset, adLockOptimistic

    If rs.EOF And rs.BOF Then

    '如果不记录存在则添加

    rs.AddNew

    For j = 1 To rs.Fields.Count

    rs.Fields(j - 1) = WS.Cells(i, j).Value

    Next j

    rs.Update

    Else

    '如果记录存在则更新

    For j = 1 To rs.Fields.Count

    rs.Fields(j - 1) = WS.Cells(i, j).Value

    Next j

    rs.Update

    End If

    Application.StatusBar = False

    DoEvents

    Next i

    '应该在此处添加语句使excel的界面变成灰色的

    'frm保存数据.Hide

    MsgBox "数据保存完毕!", vbInformation

    '取消保护

    ActiveSheet.Unprotect

    rs.Close

    Set WB = Nothing

    Set WS = Nothing

    End If

    Exit_Function:

    Exit Function

    Err_Handle:

    存储数据 = False

    MsgBox Err.Number & Err.Description

    End Function

    展开全文
  • 智能添加报表边框如图所示为某企业入库登记。为了使报表更加美观,要求当入库行记录或备注列信息增加时,单元格边框自动扩展至新增数据区域,可以通过条件格式配合公式实现,方法如下。单击【工作全选按钮】...

    智能添加报表边框

    如图所示为某企业的入库登记表。为了使报表更加美观,要求当入库行记录或备注列信息增加时,单元格边框自动扩展至新增的数据区域,可以通过条件格式配合公式实现,方法如下。

    1047bf3181a35fe9b6d8552fa4aa1093.png

    单击【工作表全选按钮】选定入库登记表的所有单元格区域。

    在【开始】选项卡中依次单击【条件格式】→【新建规则】命令,如图所示。

    8d8f12e0ac50ecfa4966b982534cf125.png

    在弹出的【新建格式规则】对话框中单击【使用公式确定要设置格式的单元格】按钮,

    在 【 为 符 合 此 公 诗 的 值 摄 置 歌 诗 】 文 本 框 中 输 如"=($A1<>"")*(A$1<>"")"如图所示。

    bde98eba97e9626b0664442e9bb431ca.png

    单击【格式】按钮。

    a30309078ba2163dbf73adc5bd225f7a.png

    在弹出的【设置单元格格式】对话框中单击【边框】选项卡,选择【颜色】为"蓝色",选择一种线条样式,选择【外边框】,单击【确定】按钮,如图 所示。

    ffa6cef60ac87dc3462e963ed1e6d93a.png

    返回【新建格式规则】对话框后,单击【确定】按钮,如图 所示。

    20f2fead695df630cf2001114051fa21.png

    设置完成后,当入库登记表行记录或列标题增加时,单元格边框自动扩展,如图所示。

    e47549c28e344955d75319f2fbe2a81d.png

    公式解析:

    全选工作表后当前活动单元格为A1,用"($A1<>"")"实现报表行记录增加时边框自动扩展,用"(A$1<>"")"实现报表列字段增加时边框自动扩展,"=($A1<>"")*(A$1<>"")"灵活运用混合引用实现当前单元格所在行的 A 列单元格及所在列的第一行同时不为空时显示边框,从而实现了智能添加报表边框。

    就分析到这里吧,你学会了吗,如还想学习其他的知识点可以点击如:Excel视频教程可以学习更多的办公技能

    展开全文
  • Excel新增工具集

    2011-12-20 09:30:27
    一张员工工资表 (学生成绩表)是由同一工作表中的同一单行或多行的表头下共存的若干条记录组成,要把单人的工资 (成绩)发给本人,用本软件可轻松地将每条记录分离,并每一条记录的上方添加一个表头,以明确各项目的...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01015获取在Excel主窗口一个窗口所能占有最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel总内存 01019获取计算机被Excel占用内存 01020改变Excel窗口大小...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     10.3.2 工作表中使用函数  10.3.3 VBA过程中使用函数  10.3.4 分析自定义函数  10.4 Function过程  10.4.1 声明函数  10.4.2 函数作用域  10.4.3 执行Function过程  10.5 Function过程参数  10.6 ...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    budget.xlsx:演示工作表中使用格式一个简单多工作表预算工作簿。 Chapter 06 real estate table.xlsx:包含实际使用表格real estate列表工作簿。 Chapter 07 loan payments.xlsx:包含演示应用简单...
  • Excel 2007与VBA编程从入门到精通 10/10

    热门讨论 2012-04-01 15:47:40
     第10章 在Excel工作表中创建操作界面  第11章 创建用户窗体  第12章 自定义Excel2007功能区用户界面 第四篇 专题篇  第13章 使用VBA操作图表  第14章 创建类、记录和类集 第五篇 应用篇  第16章 应用...
  • Excel 2007与VBA编程从入门到精通 3/10

    热门讨论 2012-04-01 14:09:14
     第10章 在Excel工作表中创建操作界面  第11章 创建用户窗体  第12章 自定义Excel2007功能区用户界面 第四篇 专题篇  第13章 使用VBA操作图表  第14章 创建类、记录和类集 第五篇 应用篇  第16章 应用...
  • Excel 2007与VBA编程从入门到精通 4/10

    热门讨论 2012-04-01 14:21:28
     第10章 在Excel工作表中创建操作界面  第11章 创建用户窗体  第12章 自定义Excel2007功能区用户界面 第四篇 专题篇  第13章 使用VBA操作图表  第14章 创建类、记录和类集 第五篇 应用篇  第16章 应用...
  • 深入揭示隐藏于高效办公背后原理概念,并配合大量典型应用实例,帮助读者全面掌握Excel在文秘与行政管理工作中的应用技术。 本教程以解决实际工作中的常见问题为目标,不仅分专题详解Excel的应用,还设计了经验...
  • 任务26: 切片器、日程表的添加 任务27: 多创建透视 任务28: 动态透视 任务29: 关联透视 第4章: Excel高级分析之规划求解问题 任务30: Excel高级之规划求解完成药品原料配比最优方案 任务31: ...
  • 实例056 RichTextBox控件中添加超链接文字 65 实例057 RichTextBox控件中显示RTF格式文件 66 实例058 为RichTextBox控件添加自定义滚动条 68 实例059 RichTextBox控件中实现关键字描红 69 实例060 ...
  • 实例107——对话框中添加工具栏 实例108——状态栏上实时显示当前时间 实例109——状态栏上显示BMP位图 实例110——状态栏上添加组合框控件 实例111——状态栏上显示进度条 实例112——为对话框窗口...
  • 第13章将注意力集中在Excel、Word和AutoCAD数据交换,以及在VBA使用WindowsAPI实现特殊效果。VBA和Excel数据交换似乎一直是一个热点问题,本章提供了Excel表格向AutoCAD转换、使用Excel数据绘图、转换AutoCAD...
  • 实例244 使用存储过程向表中添加数据 实例245 使用存储过程删除表中数据 6.24 having语句应用 实例246 利用having子句过滤分组数据 实例247 having子句应用多表查询中 第7章 sql高级应用 7.1 sql中流程控制...
  • 实例249 用IN查询表中的记录信息 7.18 交叉表查询 实例250 利用trasform分析图书销售数据(Access) 实例251 利用trasform动态分析数据 实例252 静态交叉表(SQL Server) 487 实例253 动态交叉表(SQL Server...
  • 实例054 将数据表中的字段添加到ComboBox控件 59 实例055 带查询功能ComboBox控件 61 2.4 RichTextBox控件应用 63 实例056 利用RichTextBox控件实现文档管理功能 63 实例057 利用RichTextBox控件实现文字...
  • 如果要修改“接收管理器”要应答电话,则打开“接收管理器”,拉下其“设置”菜单,选择“接收设置”命令“应答方式”下拉表中,选择要“接收管理器”应答电话类型。 加载“接收管理器” 1、 打开 ...
  • 使用我们内置编辑器添加,修改和删除记录,您可以Tree View,JSON View和类似电子表格经典Grid View方便地进行编辑。Navicat为您提供有效管理数据并确保流程平稳所需工具。 Visual SQL / Query Builder将...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧129 工作表中添加ActiveX控件 12 129-1 使用Add方法 12 129-2 使用AddOLEObject方法 12 技巧130 使用spreadsheet控件 12 技巧131 使用Listview控件 12 131-1 使用Listview控件显示数据列表 12 131-2 ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧129 工作表中添加ActiveX控件 307 129-1 使用Add方法 308 129-2 使用AddOLEObject方法 310 技巧130 使用spreadsheet控件 311 技巧131 使用Listview控件 314 131-1 使用Listview控件显示数据列表 314 131-2 ...
  • 14.2.2 运行阶段向ImageList控件中添加图像 441 14.3 用ListView控件仿效Windows 95资源管理器 443 14.3.1 查看ListView控件不同视图 443 14.3.2 查看ListView控件主要属性组 444 14.3.3 人工设置...
  • 1145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式 生成器 1185.6 向Personnel Actions表添加记录 1195.7 ...
  • 1145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式生成器 1185.6 向Personnel Actions表添加记录 1195.7 ...
  • 1145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式生成器 1185.6 向Personnel Actions表添加记录 1195.7 ...
  • 1145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式生成器 1185.6 向Personnel Actions表添加记录 1195.7 ...
  • 实例003 CSSXML中添加背景图 实例004 CSS制作XML表格 实例005 XML中提取节点字符串值 实例006 XML内部定义DTD 实例007 XML外部引用DTD 实例008 验证XML是否符合DTD定义 实例009 DTD中声明元素 实例010 ...
  • 实例126 向数组中添加元素 156 实例127 将数组中指定索引位置元素替换 157 实例128 获取数组中最后一个元素 158 实例129 去除数组中重复元素 158 实例130 字符串与数组转换 159 实例131 对数组元素进行随机...
  • 实例126 向数组中添加元素 156 实例127 将数组中指定索引位置元素替换 157 实例128 获取数组中最后一个元素 158 实例129 去除数组中重复元素 158 实例130 字符串与数组转换 159 实例131 对数组元素进行随机...
  • 企业人事管理系统

    热门讨论 2012-05-17 11:20:09
    (7)通过“工资管理”/“工资导出”/“导出Excel”命令,可将工资信息导出到Excel表中。 (8)通过“人事信息统计”菜单中功能模块,可以报表形式统计当前员工年龄、文化程度、工资信息等。

空空如也

空空如也

1 2 3 4 5
收藏数 91
精华内容 36
关键字:

在excel表中添加记录的命令