- 博客(17)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 SQL 用分割符分割数据插入数据库
Begin--returns @temp table(tbMID varchar(100)) declare @temp table(tbMID int) declare @i int declare @j int declare @splitsign varchar(10) declare @ConID int declare @S
2014-12-31 16:30:37
530
原创 win7 Visual Studio 2008 安装程序时出现“ 加载安装组件时遇到问题。取消安装。”处理方法
win7 Visual Studio 2008 安装程序时出现“ 加载安装组件时遇到问题。取消安装。”处理方法 vs2008试用期到期，卸载、重新安装都会出现“ 加载安装组件时遇到问题。取消安装。”无法进入下一步。 1、进入控件面板——程序——程序和功能——“查看已安装的更新”。2、将vs2008所以更新全部卸载。3、用“卸载/更新”，就可以卸载vs200
2013-09-20 19:08:55
1723
1
原创 SQL查找非数字记录
SQL查找非数字记录，碰到字符数字转换数字进行计算，经常出错，用此SQL查找出出错记录。 SELECT MortarVolume,PATINDEX('%[^0-9]%', MortarVolume),* FROM dbo.GroutListData where PATINDEX('%[^0-9]%', MortarVolume)>0 or PATINDEX('%.%', Mort
2013-04-10 11:34:49
1278
原创 VBA数据类型转换函数 VBA时间函数 vba字符串函数
VBA数据类型转换函数 VBA时间函数 vba字符串函数 CBool(expression) 转换为Boolean型CByte(expression) 转换为Byte型CCur(expression) 转换为Currency型CDate(expression) 转换为Date型CDbl(expression) 转
2012-07-08 18:48:35
7440
原创 SQL 主表全部显示，判断子表是否有记录，如有TRUE否则FALSE
SELECT --a.YnUse,(select case when (SELECT isnull(b.FID,0) FROM dbo.tbUserPermission b WHERE a.MID = b.MenuID AND a.FID = b.MID AND a.FunID = b.FunID-- and b.UID = 44 and a.MID=904 )>0 then
2012-07-03 10:32:51
926
原创 SQL 避免插入时如表为空时值为NULL出错
SQL 插入时如表为空时值为NULL SELECT (max(FID),0)+1 FROM tbUserPermission会报错，加个判断ISNULL(*,0)即可避免出错。 SELECT ISNULL(max(FID),0)+1 FROM tbUserPermission 用select方法插入记录（一条语句：求得主键最大值，同时判断表中是否存在此记录，
2012-07-01 12:01:58
1574
原创 vb打开EXCEL(vb 路径 Excel路径）
Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookPrivate Const FileName = "\vb打开EXCEL.xls"Private Sub CommandButton1_Click()Call UserForm_InitializeEnd Sub'Private Sub Form_Load()
2012-06-25 11:12:07
1378
原创 SQL 用左补位方法进行排序(ORDER BY)
SQL 用左补位方法进行排序(ORDER BY)select right ('00000'+YmMonth,5) as YmMonth ,* from dbo.tblVisaYM order by right ('00000'+YmMonth,5) desc左补位，如碰到数码长度不同是无法正确排序，用转换进行排序。如下：order by CONVERT(decimal(12, 2
2012-06-11 09:10:53
925
原创 MSFlexGrid 能进行编辑实例
' MSFlexGrid 能进行编辑实例 Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 'ENTER key With MSFlexGrid1 .HighLight = flexHighl
2012-06-01 21:04:19
492
原创 用GetOpenFilename直接打开Excel工作表，导入VSFlexGrid 控件实例
'Const APPNAME = "VSFlexGrid8 用GetOpenFilename打开Excel工作表，直接存入VSFlexGrid 控件 "Option ExplicitDim sheet%Dim sFileName As String '从FileName中提取的文件名Private Sub UserForm_Initialize() fg.Al
2012-06-01 19:21:20
1766
原创 SQL 用DISTINCT 筛选、删除重复数据
SQL 用DISTINCT 筛选、删除重复数据 drop table #temp_11 SELECT DISTINCT DevName as a ,DevModel as b,StockPrice as c,min(FID) as fid,min(DevTypeID) as DevTypeID,min(DevTypeName) as DevTypeNameinto #te
2012-05-29 09:40:19
839
原创 Excel 用CONCATENATE 函数输入"（双引号）
Excel 用CONCATENATE 函数输入"（双引号）用CONCATENATE 得到下列文本，VSFlexGrid1.TextMatrix(0,2) ="合同类型"公式中录入： =CONCATENATE("VSFlexGrid1.TextMatrix(0,",A5,") =""",B5,"""")说明：前面是三个"
2012-05-24 14:28:51
12928
原创 Excel 工具栏中没了“常用”和“格式” 代码恢复（清理工具栏）
Excel 工具栏中没了“常用”和“格式” 代码恢复（清理工具栏） Excel工具栏中没了“常用”和“格式”，自定义中也看不见（运行了带菜单的XLS表格）。把Excel恢复安装不行，卸后重新安装后还是一样，只好用代码恢复了。【方法】 '1、“按ALT+F11”，进入VBA编程； '2、然后单击鼠标右键——插入模块； '3、往模块里面添加代码
2012-05-21 15:22:01
2515
转载 VBA 读写文件及处理文本文件
VBA 读写文件及处理文本文件 1、Open 语句语法：Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]其中access、lock、reclength为可选参数，一般不用。mode 指定打开文件的方式。有5种：Input：以输入方式打开，即读取方式。Output：
2012-05-21 11:40:12
3110
原创 VSFlexGrid1 8.0 Help 实例：Outline Demo 改 VBA
' VSFlexGrid1 8.0 Help 实例：Outline Demo 改 VBA' 在EXCEL VBA 运行源码Private Sub UserForm_Initialize()'With Me.MSFlexGrid1With VSFlexGrid1'.Editable = True'.RowHeightMin = 360 .Cols = 3
2012-05-17 19:58:57
568
原创 Ext_MessageBox
Ext.MessageBox关键字: ext.messagebox Ext.MessageBox 一、提示框(Ext.MessageBox.alert 或 Ext.Msg.alert) alert( String title, String msg, [Function fn], [Object scope] ) : title:标题 msg:显示内容 fn:回调函...
2011-03-29 21:34:17
90
原创 Extjs_读书笔记
enableDD: false, //是否支持拖拽效果 containerScroll: true, //是否支持滚动条 rootVisible: false, //是否显示跟节点Ext.Panel: title: '测试标题', //标题 floating: true, //浮动...
2011-03-29 21:22:55
82
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人