- 博客(6)
- 资源 (1)
- 收藏
- 关注
原创 [SQL Server] 连接其他服务器上的数据库 AddLinkedServer
if exists(select 1 from master..sysservers where srvname=CNT_DQL_2) exec sp_dropserver CNT_DQL_2, droplogins go EXEC sp_addlinkedserver CNT_DQL_2, , SQLOLEDB, 192.168.2.5 --DRIVER={SQL
2008-07-10 15:19:00
398
原创 [SQL Server] 连接其他服务器上的数据库 AddLinkedServer
if exists(select 1 from master..sysservers where srvname=CNT_DQL_2) exec sp_dropserver CNT_DQL_2, droploginsgoEXEC sp_addlinkedserver CNT_DQL_2, ,
2008-07-10 15:19:00
401
原创 [VBA] 按任意一列做降序排序
Public Const STRPIVOTKEYWORKING_START = "A1"ThisWorkbook.Worksheets.CalculateColumns(Range(STRPIVOTKEYWORKING_START).Column).Select Selection.Sort Key1:=Range(STRPIVOTKEYWORKING), Order1:=xlDesc
2008-06-02 01:17:00
6716
原创 [SQL SERVER] 修改加了约束/索引的列
if exists(select 1 from sysobjects tbl with (nolock), syscolumns col with (nolock) where tbl.xtype = U and tbl.id = col.id and col.name = code_key and length begin declare @name varchar(256)
2008-05-28 14:55:00
789
原创 [VBA] 列转列序数
column A = intColumn 1Public Function func_coltonum(ByVal strColumn As String) As LongOn Error GoTo lb_cannot_resolve func_coltonum = Range(strColumn & "1").Column Exit Functionlb_cannot_resolv
2008-05-24 01:07:00
520
原创 [VBA] 列的序数转列
intColumn 1 = column APublic Function func_NumToCol(ByVal lngColumn As Long) As StringOn Error GoTo lb_cannot_resolve Dim strAddress As String strAddress = Range("A1").Offset(0, lngColumn - 1).
2008-05-23 00:22:00
418
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人