提供免费资源
20
Jul
select books from tb_book where books
regexp ‘^php’; 字符串开头
regexp ‘php$’; 字符串结尾
regexp ‘p.’; #匹配任意一个字符
regexp ‘[abc]’; #匹配abc中任意一个字符
regexp ‘[^a-z]’; #匹配除字符集外任意一个字符
regexp ‘s1|s2|s3’;#匹配任意一个字符串
regexp ‘j*a’; #匹配多个该字符a之前的字符j;j+a至少一个j
regexp ‘a{3}’; #匹配字符串连续出现3次
regexp ‘a{2,4}’; #匹配字符串最少2次,最多4次
regexp ‘^php’; 字符串开头
regexp ‘php$’; 字符串结尾
regexp ‘p.’; #匹配任意一个字符
regexp ‘[abc]’; #匹配abc中任意一个字符
regexp ‘[^a-z]’; #匹配除字符集外任意一个字符
regexp ‘s1|s2|s3’;#匹配任意一个字符串
regexp ‘j*a’; #匹配多个该字符a之前的字符j;j+a至少一个j
regexp ‘a{3}’; #匹配字符串连续出现3次
regexp ‘a{2,4}’; #匹配字符串最少2次,最多4次
23
Jun
1、检测事件是否开启(以下代码不需修改):
2、如果处于关闭状态,需开启事件:
3、创建一个存储过程:
4、创建一个事件:
5、关闭或开启执行事件
alter event event_name on completion preserver [enable | disable]
6、删除事件:
参考:https://www.j...cle/38319.htm
show variables like 'event_scheduler';
2、如果处于关闭状态,需开启事件:
set global event_scheduler = on;
3、创建一个存储过程:
delimiter //
create procedure test()
begin update project set create_time = now();
end;
create procedure test()
begin update project set create_time = now();
end;
4、创建一个事件:
create event if not exists e_test
on schedule every 30 second
on completion preserve
do call test();
on schedule every 30 second
on completion preserve
do call test();
5、关闭或开启执行事件
alter event event_name on completion preserver [enable | disable]
6、删除事件:
drop event event_name;
参考:https://www.j...cle/38319.htm
14
Jul
Office2010是不自带日历控件的,如何执行通过Office2003或Office2007编写的VB日历控件?
1、下载附件,解压后按说明执行相关操作;
2、进行VBA编辑器,附加日历控件;
3、关闭Excel文件后重新打开即可。
下载文件
1、下载附件,解压后按说明执行相关操作;
2、进行VBA编辑器,附加日历控件;
3、关闭Excel文件后重新打开即可。

25
Sep
在ACCESS中用VBA更改EXCEL单格元格的格式可用以下代码:
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色,可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%" '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色,可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%" '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub
31
May
在使用Excel VBA的时候,尤其是有设计的Form窗体并且上面有列表框等控件时,经常会碰到在某些电脑上打开出现“无法加载这个对象,因为它不适用于这台计算机”的问题。这个问题产生的主要原因是由于两台电脑上的MSCOMCTL.OCX版本不同。尤其是在高版本的Office里创建的窗体和控件,在低版本的Office或电脑上打开时就有可能出现这个问题。
或者出现:“&H80040111错误” 的提示,这些现象,基本都是因为版本不同导致的。
最终解决方案
1.取得MSCOMCTL.OCX最新版6.1.98.34(见附件)
2.到C:\WINDOWS\system32下找到文件MSCOMCTL.OCX
3.用新版本覆盖旧版本
4.点右键查看"属性"-"版本",看版本号是否更新为6.1.98.34
5.点"开始-运行" 输入:Regsvr32 MSCOMCTL.OCX
做到此步后,从新打开EXCEL,应该就可以了
win7 64位 的解决办法:
1、将MSCOMCTL.OCX最新版6.1.98.34 复制到C:\Windows\SysWOW64\目录下面
2、运行:cmd 第二步选择(以管理员身份运行)
3、在dos窗口中输入
cd c:\windows\syswow64 [回车键]
regsvr32 MSCOMCTL.OCX [回车键]
运行dos命令行(就是cmd)是一定要以管理员身份
下载文件
或者出现:“&H80040111错误” 的提示,这些现象,基本都是因为版本不同导致的。
最终解决方案
1.取得MSCOMCTL.OCX最新版6.1.98.34(见附件)
2.到C:\WINDOWS\system32下找到文件MSCOMCTL.OCX
3.用新版本覆盖旧版本
4.点右键查看"属性"-"版本",看版本号是否更新为6.1.98.34
5.点"开始-运行" 输入:Regsvr32 MSCOMCTL.OCX
做到此步后,从新打开EXCEL,应该就可以了
win7 64位 的解决办法:
1、将MSCOMCTL.OCX最新版6.1.98.34 复制到C:\Windows\SysWOW64\目录下面
2、运行:cmd 第二步选择(以管理员身份运行)
3、在dos窗口中输入
cd c:\windows\syswow64 [回车键]
regsvr32 MSCOMCTL.OCX [回车键]
运行dos命令行(就是cmd)是一定要以管理员身份
