lxljw1314-优快云博客

原创 saiku自定义schema时间维度定义问题

定义时间维度时，key的定义字段，不是列名，需要是定义好的attribute名称！！！<Dimension name='Time' table='DIM_DATE' type='TIME'key='Date'>

2017-03-21 16:45:32 1373 1

原创 Saiku初步学习

1. saiku启动乱码的问题编辑saiku.bat，把UTF-8 改成GBK 即可。2. saiku启动警告docbase找不到的问题找到文件tomcat\webapps\pentaho\META-INF\context.xml把docbase改成 docBase 即可。3.saiku添加oracle 和sqlserver 数据源，识别不了1）oracle

2017-03-21 16:38:27 2990

原创 Oracle通过dblink直接访问Sqlserver

需求：通过在oracle创建dblink的方式直接访问Sqlserver数据库操作方式：利用Oracle组件，透明网关（Transparent Gateway），建立dblink ,访问SQL SERVER1.首先在官网上先下载个透明网关。网址(11g)：http://www.oracle.com/technetwork/database/enterprise-editio

2017-03-21 16:32:02 11229

原创 Oracle大表数据导出导入

实有房屋数据和水电数据存放在不同用户下，为了BI展现，现在将所需的表统一迁移到census_bi库下面。其中水电表数据量较大，通过ssis传输效率太低。大数据表导出exp census_dc/password@census_bi file=x:\census\DC_FW_DL_CBSJ.dmp tables=(DC_FW_DL_CBSJ) direct=y buffer

2017-03-21 16:30:26 3170

原创 Oracle自增序列字段

个人学习先创建sequencecreate sequence human_bi_xq_seq increment by 1 start with 1 minvalue 1 maxvalue 9999999999999 nocache order;然后给表创建触发器create or replace trigger human_bi_xq_trigge

2017-03-21 16:26:04 838

原创医疗专用数据库Cache对接

Cache支持odbc接口，但是需要先在本地安装cache数据库安装完之后，配置系统DSN，然后ODBC测试连接通过。之后在ssis中创建支持odbc的数据源，成功连接cache数据库。ps：在ssis中，oledb数据控件不支持odbc连接，目前只有ADO.NET控件支持odbc连接。

2017-03-21 16:24:47 2472

原创 SQL中排除某一列代码字段含有字母的记录

科室代码DEPT_ID ，值是数字，但是source中过来的值有异常值“ttk”，明显不对；cube在处理到这个值的时候报错，所以在源头上排除掉科室代码为字母的记录。select * from DHC_OutPaAdmWHERE DEPT_ID NOT LIKE ('%[A-Z,a-z]%')

2017-03-21 16:18:30 8862

原创 ssis 中update then insert

当有Source Table 和 target table 的时候，通过查找控件可以进行pk查找比较，然后pk匹配的做update，不匹配的做insert.

2017-03-21 16:17:10 1038

原创 XML内嵌架构模式转换为普通数据文件

参考文档 http://www.cnblogs.com/chenxizhang/archive/2009/06/20/1507287.htmlssis使用：获取到的xml文件包含了内嵌架构，通过xml直接读取，获取不到数据，需要通过xml task 进行xslt 转换只取我们需要的部分。xslt文件通过ssis创建，会生成相应框架，多定义一个命名空间，循环路

2017-03-21 16:08:48 750

原创 sqlcmd导入sql脚本

场景：儿童医院前置机和云服务器或者本地网络通讯都很差，直接用ssis传输数据，会报错失败，只能少量数据进行传输。所以把表数据直接导出成sql脚本文件，想放到云服务器上直接导入数据，但是表数据太多，sql文件有5个G左右，ssms都打不开，txt也打不开，网上查找，发现可以用本地dos下sqlcmd命令执行sql文件。速度也不快，100条100条的导入。sqlcmd

2017-03-21 16:06:21 6016

原创在院人次周报算法

sqlserver中自动获取上周区间：上周一到上周日 WHERE tjsj BETWEEN DATEADD(dd,-DATEPART(dw,GETDATE()-8),CONVERT(VARCHAR(10),GETDATE(),120))-6 AND DATEADD(dd,-DATEPART(dw,GETDATE()-8),CONVERT(VARCHAR(10),GE

2017-03-21 16:04:24 573

原创本地ssas重启之后，无法连接无法登录的问题

SqlServer安装在服务器上的，今天重新部署了下ssas的项目，重启了一下几个相关服务，发现ssas就无法连接无法登录了，其他数据库都正常连接的，报错信息如下：无法建立连接。请确保该服务器正在运行。由于目标机器积极拒绝，无法连接。 127.0.0.1:2383 (System)很明显，as服务启动了，但是服务器没有进程在2383端口上进行监听，也怀疑过2383端口是否被别的

2014-12-13 11:16:45 1556 2

原创 Oracle中创建时间维度表并插入数据

create table TIME_DIMENSION( the_date NUMBER not null, date_name NVARCHAR2(15), the_year NUMBER, year_name NVARCHAR2(10), the_quarter VARCHAR2(10), quarter_name NVAR

2014-09-26 13:30:01 3226

原创 Kettle学习之Update then insert

ETL过程中常用处理之一 update then insert。

2014-09-05 14:56:35 1079

原创 Kettle学习之Truncate then insert

ETL中常用处理之一对目标表先删除再插入。

2014-09-05 14:50:10 2041

原创 Kettle学习之调度计划

在kettle中我们可以将开发好的转换he

2014-09-05 13:53:45 1877 1

原创 Kettle学习之错误处理

在联系

2014-09-05 13:38:18 1635

原创 Excel VBA 根据筛选条件自动汇总统计（for 铁虎）

Sub st1() Dim r&, i& Dim arr, brr Dim x, y, z, t, k Set d = CreateObject("scripting.dictionary") Set d2 = CreateObject("scripting.dictionary") Set s = CreateObject("scrip

2013-09-02 23:54:29 9055

原创 Excel VBA 根据日期汇总统计另一字段非重复值的个数

Sub lqxs()Dim Arr, i&, x, y, zDim d, k, tSet d = CreateObject("Scripting.Dictionary")Set s = CreateObject("Scripting.Dictionary")Sheet1.Activate[f:g].ClearContentsArr = [a1].CurrentRegio

2013-09-02 23:52:20 2421

原创 Excel VBA 复制固定表格到活动工作表的指定区域

Sub copygrid() '复制表格 Dim i&, t& t = ActiveSheet.[a65536].End(xlUp).Row For i = 1 To t If ActiveSheet.Range("b" & i).MergeCells = True And ActiveSheet.Range("a" & i) Sheets(6).Ra

2013-08-29 15:24:50 5749

原创 Excel VBA 删除Excel中的所有图片

Sub deletepic()Dim pic As ShapeFor Each pic In ActiveSheet.Shapespic.DeleteNextEnd Sub

2013-08-28 20:39:20 16917

原创 Excel VBA 根据sheet名称创建相应的文件夹

Sub createfolsavepic() '根据sheet名称创建相应的文件夹并保存每个sheet中的图片到对应文件夹中Set fol = CreateObject("scripting.filesystemobject")Dim ws As WorksheetPath = "C:\Lx\all\"For Each ws In WorksheetsIf fol.folder

2013-08-28 13:33:22 1791

原创 Excel VBA 将当前活动工作表中的图片保存到以工作表名称命名的文件夹内

Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内Dim sn, path As String, j%sn = ActiveSheet.namepath = "C:\Lx\all\"For j = 1 To ActiveSheet.Shapes.CountActiveSheet.Shapes(j).SelectIf ActiveShe

2013-08-28 13:30:38 5196

原创 Excel VBA 根据实际需求合并单元格

Sub merge() '根据实际需求合并单元格H = ActiveSheet.[a65536].End(xlUp).RowFor i = 1 To HIf ActiveSheet.Range("a" & i) NextEnd Sub

2013-08-28 11:17:13 1205

原创 Excel VBA 在立即窗口打印出所有shape的名称

Sub printshapesname()Z = ActiveSheet.Shapes.CountFor s = 1 To ActiveSheet.Shapes.CountDebug.Print ActiveSheet.Shapes(s).NameNextEnd Sub

2013-08-27 10:33:33 4011

原创 Excel VBA 根据合并单元格大小调整图片大小

Sub adjustpic() '根据合并单元格大小调整图片大小Dim Pic As ShapeFor Each Pic In ActiveSheet.Shapes If Pic.TopLeftCell.MergeCells = True Then Set cc = Pic.TopLeftCell.MergeArea Pic.LockAspec

2013-08-26 22:50:15 4877 2

原创 Excel VBA 调整图片高度宽度等于单元格高度宽度

'调整图片高度宽度等于单元格宽度Sub setpic()Dim Pic As Shape For Each Pic In Sheet5.Shapes Pic.LockAspectRatio = msoFalse Pic.Top = Pic.TopLeftCell.Top Pic.Left = Pic.TopLeftCell.L

2013-08-26 18:12:34 4328

原创 Excel VBA 根据图片名称插入对应图片

Sub insertpic() '根据图片名称插入对应图片Dim r As Long, i As Longr = [a65536].End(xlUp).RowFor i = 1 To r If Dir("C:\Lx\all" & "\" & Cells(i, 1) & ".jpg") With ActiveSheet.Pictures.Insert("C:

2013-08-26 18:08:42 9999 1

原创 Excel VBA 获取指定路径下的图片名称(带后缀)/(不带后缀)/跳出选择路径对话框手动选择路径

Sub getpicname() '获取指定路径下的图片名称 myDir = "C:\Lx\all" n = 1 Filename = Dir(myDir & "\*.jpg") Do While Filename Cells(n, 1) = Filename Filename = Dir n = n + 1

2013-08-26 18:07:33 4982

原创 Excel VBA 获取指定路径下的文件夹名称

Sub getfoldername() '获取指定路径下的文件夹名称Dim fs As Objectn = 1Set fs = CreateObject("Scripting.FileSystemObject")Set f = fs.getfolder("C:\Lx\all")For Each fd In f.subfoldersCells(n, 1) = fd.Name

2013-08-26 18:06:40 14618

原创 Excel VBA 多条件查询

用以下两个公式都可以实现多条件查询，同样也可以用VBA代码来实现函数公式1： '=INDEX(Sheet3!$F$2:$F$20,MATCH(B2&C2&D2&E2,Sheet3!$B$2:$B$20&Sheet3!$C$2:$C$20&Sheet3!$D$2:$D$20&Sheet3!$E$2:$E$20,0))函数公式2： '=LOOKUP(1,0/(B3&C3&D3&E3=stock

2013-08-26 15:19:12 14273

原创 Excel VBA 代替Sumproduct实现多条件求和

因为用函数公式，如果数据量大的话，会影响效率，而且会增加文件本身大小，所以想用vba代码替代。以下代码用来实现函数公式sumproduct的功能，实现多条件求和。Private Sub 多条件求和() Dim d, ar, arr, s$, t$, i& Set d = CreateObject("Scripting.Dictionary") ar = Rang

2013-08-26 15:11:57 15605

原创 Excel VBA 调整图片高度宽度等于所在单元格高度宽度

'调整图片高度宽度等于单元格高度宽度Sub setpic()Dim Pic As Shape For Each Pic In Sheet5.Shapes Pic.LockAspectRatio = msoFalse Pic.Top = Pic.TopLeftCell.Top Pic.Left = Pic.TopLeftCell

2013-08-26 14:48:37 3147

原创偶然发现的cmd命令dir

百度东西的时候偶然发现cmd命令的dir用法，批量获取图片名称：打开cmd窗口，cd到目标文件夹，例如：cd：\Lx\all 输入命令： dir *.jpg/on >list.xls 功能：将以.jpg后缀的图片文件的名称取出来放到excel里(list可以改为自己想要的excel名称) 打开excel，利用分列的功能，可以直接获得所有图片的名称。

2013-08-23 16:49:46 1230

原创博客开通

博客开通了，纪念一下吧

2013-08-19 15:11:04 474

liuxiang860927的专栏