kevn-CSDN博客

原创 sql分组取最大最小

--测试数据if object_id('tempdb..#t') is not nulldrop table #tcreate table #t(col1 varchar(50),col2 varchar(50),col3 numeric(18,6))insert into #t select 'HRB16','2012-06-14 04:52:55.000',

2012-07-13 12:55:35 1829

原创生成sql测试表

闲的无聊，想起以前在sql版回答问题总是要建立测试环境，而建立的过程挺慢的，需要引号逗号的。正好最近想给程序员老婆写一些有助于她工作的小程序玩玩，所以写了下面的存储过程与大家分享，应该能快一点。这个存储过程没有做什么优化，本着迅速写完能用就是了，各位自己改编优化吧create proc ctestsql(@c varchar(8000),@charlen int = 50,@num

2012-07-09 12:25:43 1369

转载查询每个表的行数

select a.name, b.rowsfrom sysobjects ainner join sysindexes b on a.id = b.idwhere a.type = 'u'and b.indid in (0, 1)order by a.name SELECT o.name AS "Table Name", i.rowcnt AS

2012-05-04 13:03:03 890

转载创建为ClickOnce清单签名的.pfx格式数字证书

打开Microsoft .NET Framework 的SDK命令提示，按以下步骤操作：1、创建一个自我签署的X.509证书（.cer）和一个.pvk私钥文件，用到makecert工具，命令如下：makecert -r -n "CN= myselfName " -b 01/01/2005 -e 01/01/2018 -sv myselfName.pvk myselfName.cer按提

2012-03-01 09:20:22 750

转载 ASP.Net TextBox控件只允许输入数字

1.1、在Asp.Net TextBox 控件的 OnKeyPress 事件中指定输入键盘码必须为数字：OnKeyPress="if(((event.keyCode>=48)&&(event.keyCode MaxLength="15"> 注意：如果不允许输入小数点去掉“event.keyCode==46”这种情况或者：onkeyup='value=value.replace(/

2011-11-15 09:37:32 967

转载 SQL不同服务器数据库之间的数据操作整理(完整版)

------------------------------------------------------------------------------------ Author : htl258(Tony)-- Date : 2010-06-25 22:

2011-08-29 13:11:15 1726

原创 vba

With Application.FileSearch .NewSearch .LookIn = dpath .Filename = "*.csv" .Execute

2011-08-16 11:01:24 468

转载递归

create table tb(id varchar(3) , pid varchar(3) , name varchar(10))insert into tb values('001' , null , '广东省')insert into tb values('002

2011-07-27 09:07:08 439

原创 sql计算表达式

create table #t(A varchar(10),b numeric(28,2)) insert into #t select '1*2*3',nullinsert into #t select '2*3*4',NULLdeclare @sql nvarchar(40

2011-07-26 10:07:33 1171

原创 vb.net 操作barcode

xlsheet.Shapes.Item("BarCodeCtrl1").OLEFormat.Object.Object.Value = “”在vb或者vba下面是不需要item的

2011-07-22 11:05:47 2107

原创部分代码

create table #t(code varchar(10),p1 varchar(20),p2 varchar(20),p3 varchar(20))insert into #t select 'aaa','dw-dh','dw*dh','dw-1'

2011-07-05 15:00:37 512

原创用代码来实现7zip解压

Private Sub CommandButton1_Click() Dim Source As String Dim Target As String Source = "d:\aa.7z" Target = "d:\aa" '此处也可以是相对路径的,例如"\aa" Shell ("C:\Program Files\7-Zip\7z

2011-07-05 14:36:39 1803