Posts

Showing posts from 2016

SSIS on SQL 2014++

Image
1. Go to SQL Management Studio and Connect to Database Server 2. Expand Tree of Integration Servies Catalogs 3. Right-Click "Create Catalog" then SSISDB Catalog 4. Right-Click on SSISDB and choose "Create Folder" for example "ROCKWORTH" 5. Go to Visual Studio 2015 + SSDT 6. Create new project and choose Business Intelligence and choose Integration Services 7. Design Plan 8. Build Solution 9. Go to SQL Management Studio and Expand Tree of Integration Services and SSISDB and ROCKWORTH Folder and Projects Folder 10. Right-Click on Project Folder and choose Deploy Project... 11. Choose Project deployment file 12. Browse to Project Folder(6) and enter bin folder and enter development folder and choose file ROCKWORTH.ispac 13. Create Schedule Jobs for Run Packages.

Excel locked by another user (Solve)

ขั้นตอนการแก้ไข เปิดโปรแกรม Excel โดยที่ไม่ต้องเปิดไฟล์ ไปที่เมนู File แล้วเลือกเมนู Open  เลือกไฟล์ที่มีปัญหา เลือก Option ที่ปุ่ม Open ให้เลือกเป็น Open and Repair ไฟล์จะได้รับการแก้ไขเป็นปกติ (แต่ถ้ามีเครื่องเปิดใช้งานอยู่จริงๆ จะไม่สามารถซ่อมแซมได้นะ)

Loading Page by jQuery

Cascading Style Sheets (CSS) <style type="text/css">     .modal     {         position: fixed;         top: 0;         left: 0;         background-color: black;         z-index: 99;         opacity: 0.8;         filter: alpha(opacity=80);         -moz-opacity: 0.8;         min-height: 100%;         width: 100%;     }     .loading     {         font-family: Arial;         font-size: 10pt;         border: 5px solid #67CFF5;         width: 200px;         height: 100px;         display: none;         position: fixed;         background-color: White;         z-index: 999;     } </style> jQuery <script type="text/javascript" src="js/jquery-1.8.3.min.js"></script> Javascript <script type="text/javascript">   function ShowProgress()      {    setTimeout(function () {        var modal = $('<div />');        modal.addClass("modal");        $('body')

Funcion :: SplitString

USE [erplndb] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER FUNCTION [dbo].[fn_SplitString] ( @stringToSplit VARCHAR(MAX) ) RETURNS  @returnList TABLE ([Name] [nvarchar] (500)) AS BEGIN  DECLARE @name NVARCHAR(255)  DECLARE @pos INT  WHILE CHARINDEX(',', @stringToSplit) > 0  BEGIN   SELECT @pos  = CHARINDEX(',', @stringToSplit)     SELECT @name = SUBSTRING(@stringToSplit, 1, @pos-1)   INSERT INTO @returnList    SELECT @name   SELECT @stringToSplit = SUBSTRING(@stringToSplit, @pos+1, LEN(@stringToSplit)-@pos)  END  INSERT INTO @returnList  SELECT @stringToSplit  RETURN  /***** EXAMPLE :: SELECT * FROM dbo.fn_SplitString('91,12,65,78,56,789') ******/ END

T-SQL Recursive

Create Table CREATE TABLE [dbo].[table1]( [main] [varchar](2) NULL, [child] [varchar](2) NULL, [qty] [int] NULL ) ON [PRIMARY] Insert Data INSERT INTO table1 VALUES ('A1','B1',1) INSERT INTO table1 VALUES ('B1','C1',2) INSERT INTO table1 VALUES ('B1','C2',3) INSERT INTO table1 VALUES ('C1','D1',4) SQL Query with dt_main as ( select 1 as level, main, child, qty from table1 where main = 'first-level' union all select level + 1 as level, a. main, a.child, a.qty   from table1 a inner join dt_main main on main.child = a.main ) select * from dt_main

PIVOT Query

Create Table  CREATE TABLE [dbo].[test01]( [id] [int] NOT NULL, [group_id] [int] NULL, [name] [varchar](50) NULL, [qty] [int] NULL, [newqty] [int] NULL,  CONSTRAINT [PK_test01] PRIMARY KEY CLUSTERED ( [id] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] Insert Data INSERT INTO [dbo].[test01] VALUES (1,1,'A',13,1) INSERT INTO [dbo].[test01] VALUES (2,1,'B',22,2) INSERT INTO [dbo].[test01] VALUES (3,1,'C',14,3) INSERT INTO [dbo].[test01] VALUES (4,2,'B',35,4) INSERT INTO [dbo].[test01] VALUES (5,2,'C',20,5) id group_id name qty newqty 1 1 A 13 1 2 1 B 22 2 3 1 C 14 3 4 2 B 35 4 5 2 C 20 5 Query select * from (select group_id,name,qty from test01) src pivot ( sum(qty) for name in ([A],[B],[C]) ) piv OR DECLARE @cols  AS VARCHAR(MAX), @query AS VARCHAR(MAX) selec

Command

etol(enum) = Convert to Constrain ltoe(constrain) = Convert to Enum val(variable) = Convert to Long str$(variable) = Convert to String

Lookup Function (Show 2 DataSets on 1 Table)

Syntax =Lookup(Obj1, Obj2, Obj3, Obj4) Obj1 = Field name on main dataset for join to detail dataset Obj2 = Field name on detail dataset for join to main dataset Obj3 = Field name on detail dataset for show Obj4 = Dataset name of detail dataset Example Dataset1(emp_id, score) Dataset2(emp_id, emp_name) =Lookup(Fields!emp_id.value, Fields!emp_id.value, Fields!emp_name.value, "Dataset2")

ปัญหาการ์ดแลนขึ้น eth2.bak

ยังไม่ทราบสาเหตุที่เกิดอย่างชัดเจนนะครับ แต่มีวิธีแก้ปัญหาที่ได้ผลแล้ว ดังนี้ เข้าโปรแกรม winscp แล้วเข้าไปที่ Folder ดังต่อไปนี้ /etc/sysconfig/networking/devices/ifcfg-eth2.bak ==> ลบไฟล์ทิ้งถ้ามี /etc/sysconfig/networking/profiles/default/ifcfg-eth2.bak ==> ลบไฟล์ทิ้งถ้ามี /etc/sysconfig/network-scripts/ifcfg-eth2.bak ==> แก้ไข ifcfg-eth2.bak ให้เป็น ifcfg-eth2

Current Date on Report Script

declaration:    domain tcmcs.str50m i.curr.date footer.1:    before.layout:       i.curr.date = sprintf$("Issue %u(%02d-%02m-%04Y) %U(%02h:%02m)", utc.num(), utc.num()) Result = Issue 25-12-2016 10:00

changeToWords (English Language)

Code Function Public Shared Function changeToWords(ByVal numb As [String]) As [String]     Dim val As [String] = "", wholeNo As [String] = numb, points As [String] = "", andStr As [String] = "", pointStr As [String] = ""     Dim endStr As [String] = ""     Try         Dim decimalPlace As Integer = numb.IndexOf(".")         If decimalPlace > 0 Then             wholeNo = numb.Substring(0, decimalPlace)             points = numb.Substring(decimalPlace + 1)             If Convert.ToInt32(points) > 0 Then                 andStr = "point"                 ' just to separate whole numbers from points                 pointStr = translateCents(points)             End If         End If         val = [String].Format("{0} {1}{2} {3}", translateWholeNumber(wholeNo).Trim(), andStr, pointStr, endStr)     Catch             End Try     Return val End Function Private Shared Function translateWholeNumber(ByVal n

Install .Net Framework 3.5 for Windows 10

ใครที่ต้องการจะใช้งาน .net framework 3.5 ใน Windows 10 นั้น อาจจะทำไม่ได้ง่ายๆ เนื่องจากอาจเป็น Bug ของทาง Microsoft ที่ยังไม่ได้รับการแก้ไข ดังนั้นเราจึงต้องทำการติดตั้งด้วยตัวเองครับ วิธีการตามนี้เลยครับ ใส่แผ่น DVD ของ Windows 10 เข้าไปที่เครื่องอ่าน DVD หรือจะใช้ไฟล์ ISO Mount เอาก็ได้ครับ ตามสะดวก ผมสมมติว่า DVD คือ Drive E: นะครับ เข้าไปที่ Command Prompt โดยที่ต้อง Run as Administrator ด้วยนะครับ แล้วพิมพ์ Command นี้เข้าไปได้เลยครับ  dism.exe /online /enable-feature /featurename:NetFX3 /All /Source: E :\sources\sxs /LimitAccess  หมายเหตุ ถ้าเกิด Error เกิดขึ้นให้ดู Path ที่ DVD มันตรงมี Path นี้อยู่ไหมครับ  E :\sources\sxs