-
vba删除mysql表_如何在EXCEL中删除数据库记录
2021-02-11 14:10:16可以添加一个删除按钮,当选中某一条记录的时候,单击删除按钮可以调用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
-
datagrid设置单元格边框_Excel办公实操,智能添加报表边框,办公中的你必会技能...
2021-01-04 02:39:17智能添加报表边框如图所示为某企业的入库登记表。为了使报表更加美观,要求当入库行记录或备注列信息增加时,单元格边框自动扩展至新增的数据区域,可以通过条件格式配合公式实现,方法如下。单击【工作表全选按钮】...智能添加报表边框
如图所示为某企业的入库登记表。为了使报表更加美观,要求当入库行记录或备注列信息增加时,单元格边框自动扩展至新增的数据区域,可以通过条件格式配合公式实现,方法如下。
单击【工作表全选按钮】选定入库登记表的所有单元格区域。
在【开始】选项卡中依次单击【条件格式】→【新建规则】命令,如图所示。
在弹出的【新建格式规则】对话框中单击【使用公式确定要设置格式的单元格】按钮,
在 【 为 符 合 此 公 诗 的 值 摄 置 歌 诗 】 文 本 框 中 输 如"=($A1<>"")*(A$1<>"")"如图所示。
单击【格式】按钮。
在弹出的【设置单元格格式】对话框中单击【边框】选项卡,选择【颜色】为"蓝色",选择一种线条样式,选择【外边框】,单击【确定】按钮,如图 所示。
返回【新建格式规则】对话框后,单击【确定】按钮,如图 所示。
设置完成后,当入库登记表行记录或列标题增加时,单元格边框自动扩展,如图所示。
公式解析:
全选工作表后当前活动单元格为A1,用"($A1<>"")"实现报表行记录增加时边框自动扩展,用"(A$1<>"")"实现报表列字段增加时边框自动扩展,"=($A1<>"")*(A$1<>"")"灵活运用混合引用实现当前单元格所在行的 A 列单元格及所在列的第一行同时不为空时显示边框,从而实现了智能添加报表边框。
就分析到这里吧,你学会了吗,如还想学习其他的知识点可以点击如:Excel视频教程可以学习更多的办公技能
-
Excel新增工具集
2011-12-20 09:30:27一张员工工资表 (学生成绩表)是由同一工作表中的同一单行或多行的表头下共存的若干条记录组成,要把单人的工资 (成绩)发给本人,用本软件可轻松地将每条记录分离,并在每一条记录的上方添加一个表头,以明确各项目的... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2401015获取在Excel主窗口中一个窗口所能占有的最大高度和宽度 01016获取当前打印机名称 01017获取MicrosoftExcel剩余内存 01018获取MicrosoftExcel的总内存 01019获取计算机被Excel占用的内存 01020改变Excel窗口大小... -
中文版Excel.2007高级VBA编程宝典 1/2
2012-04-06 16:00:1610.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:05budget.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.2007文秘与行政实战应用宝典.pdf
2013-01-31 09:53:51深入揭示隐藏于高效办公背后的原理概念,并配合大量典型的应用实例,帮助读者全面掌握Excel在文秘与行政管理工作中的应用技术。 本教程以解决实际工作中的常见问题为目标,不仅分专题详解Excel的应用,还设计了经验... -
从零开始学可视化数据分析师就业课程(Excel、 MySQL、Power BI、Tableau、python、R)
2018-09-17 13:51:13任务26: 切片器、日程表的添加 任务27: 多表创建透视表 任务28: 动态透视表 任务29: 关联透视表 第4章: Excel高级分析之规划求解问题 任务30: Excel高级之规划求解完成药品原料配比最优方案 任务31: ... -
书 名:程序开发范例宝典>>【中卷】(分三卷上传完本书案例)
2010-04-05 21:59:37实例056 在RichTextBox控件中添加超链接文字 65 实例057 在RichTextBox控件中显示RTF格式的文件 66 实例058 为RichTextBox控件添加自定义滚动条 68 实例059 在RichTextBox控件中实现关键字描红 69 实例060 ... -
Visual C++范例大全 400+的实例源码
2010-04-01 21:30:54实例107——在对话框中添加工具栏 实例108——在状态栏上实时显示当前时间 实例109——在状态栏上显示BMP位图 实例110——在状态栏上添加组合框控件 实例111——在状态栏上显示进度条 实例112——为对话框窗口... -
AutoCAD VBA二次开发教程.PDF
2015-07-01 12:31:25第13章将注意力集中在Excel、Word和AutoCAD的数据交换,以及在VBA使用WindowsAPI实现特殊效果。VBA和Excel的数据交换似乎一直是一个热点问题,本章提供了Excel表格向AutoCAD的转换、使用Excel数据绘图、转换AutoCAD... -
C#开发实战1200例(第2卷.完整版)(清华出版.王小科.王军).part2
2016-06-17 07:56:52实例244 使用存储过程向表中添加数据 实例245 使用存储过程删除表中的数据 6.24 having语句应用 实例246 利用having子句过滤分组数据 实例247 having子句应用在多表查询中 第7章 sql高级应用 7.1 sql中的流程控制... -
ASP.NET开发实战1200例(第2卷).(清华出版.房大伟.吕双).part1
2016-06-12 09:54:23实例249 用IN查询表中的记录信息 7.18 交叉表查询 实例250 利用trasform分析图书销售数据(Access) 实例251 利用trasform动态分析数据 实例252 静态交叉表(SQL Server) 487 实例253 动态交叉表(SQL Server... -
C#程序开发范例宝典电子书从1-471例后面的暂时没有
2008-10-16 21:15:36实例054 将数据表中的字段添加到ComboBox控件 59 实例055 带查询功能的ComboBox控件 61 2.4 RichTextBox控件应用 63 实例056 利用RichTextBox控件实现文档管理功能 63 实例057 利用RichTextBox控件实现文字... -
BitWare 用modem发传真打电话的软件
2010-04-28 08:40:34如果要修改“接收管理器”要应答的电话,则打开“接收管理器”,拉下其“设置”菜单,选择“接收设置”命令,在“应答方式”下拉表中,选择要“接收管理器”应答的电话类型。 加载“接收管理器” 1、 打开 ... -
【最新版】navicat150_premium_en.dmg navicat-premium: 15.0.14【亲测可用】最好的MySQL数据库开发工具
2020-04-22 01:32:07使用我们的内置编辑器添加,修改和删除记录,您可以在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 在... -
Access+2000中文版高级编程
2012-02-05 09:20:2514.2.2 在运行阶段向ImageList控件中添加图像 441 14.3 用ListView控件仿效Windows 95的资源管理器 443 14.3.1 查看ListView控件的不同视图 443 14.3.2 查看ListView控件的主要属性组 444 14.3.3 人工设置... -
Access 2000数据库系统设计(PDF)---001
2006-02-23 15:31:041145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式 生成器 1185.6 向Personnel Actions表添加记录 1195.7 ... -
Access 2000数据库系统设计(PDF)---031
2006-02-23 15:31:041145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式生成器 1185.6 向Personnel Actions表添加记录 1195.7 ... -
Access 2000数据库系统设计(PDF)---016
2006-02-23 15:31:041145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式生成器 1185.6 向Personnel Actions表添加记录 1195.7 ... -
Access 2000数据库系统设计(PDF)---011
2006-02-23 15:31:041145.3 向表中添加记录 1145.4 选择、追加、替换和删除表记录 1155.5 验证数据输入 1165.5.1 添加字段级有效性规则 1165.5.2 添加表级有效性规则和使用表达式生成器 1185.6 向Personnel Actions表添加记录 1195.7 ... -
Java Web开发实战1200例(第2卷)(完整版).(清华出版.卢瀚.王春斌).part1
2016-06-13 20:03:04实例003 CSS在XML中添加背景图 实例004 CSS制作XML表格 实例005 XML中的提取节点字符串值 实例006 在XML内部定义DTD 实例007 在XML外部引用DTD 实例008 验证XML是否符合DTD的定义 实例009 在DTD中声明元素 实例010 ... -
PHP开发实战1200例(第1卷).(清华出版.潘凯华.刘中华).part1
2016-06-14 01:25:19实例126 向数组中添加元素 156 实例127 将数组中指定索引位置的元素替换 157 实例128 获取数组中最后一个元素 158 实例129 去除数组中的重复元素 158 实例130 字符串与数组的转换 159 实例131 对数组元素进行随机... -
PHP开发实战1200例(第1卷).(清华出版.潘凯华.刘中华).part2
2016-06-14 01:27:23实例126 向数组中添加元素 156 实例127 将数组中指定索引位置的元素替换 157 实例128 获取数组中最后一个元素 158 实例129 去除数组中的重复元素 158 实例130 字符串与数组的转换 159 实例131 对数组元素进行随机... -
企业人事管理系统
2012-05-17 11:20:09(7)通过“工资管理”/“工资导出”/“导出Excel”命令,可将工资信息导出到Excel表中。 (8)通过“人事信息统计”菜单中的功能模块,可以报表的形式统计当前员工的年龄、文化程度、工资信息等。