Sunday, May 8, 2011

[vb] Terbilang (also for Visual Basic Editor in EXCEL)

Syntax: Terbilang(12345)
Result: Dua Belas Ribu Tiga Ratus Empat Puluh Lima Rupiah
 
Option Explicit

Function Terbilang(InputAngka As Double) As String
  Dim I%, strMaxDigit$, arrLevel, arrAngka, TempRp$
  
  arrAngka = Array("", "Se", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", _
"Sembilan", "Sepuluh")
  arrLevel = Array("Triliun ", "Miliar ", "Juta ", "Ribu ", "")
  strMaxDigit = Right("000000000000000" & Abs(Round(InputAngka, 0)), 15)
  For I = 0 To 4
    TempRp = ""
    If Mid(strMaxDigit, 1 + (3 * I), 1) > 0 Then _
TempRp = arrAngka(Mid(strMaxDigit, 1 + (3 * I), 1)) & " Ratus "
    If Mid(strMaxDigit, 2 + (3 * I), 2) < 11 Then
      TempRp = TempRp & arrAngka(Mid(strMaxDigit, 2 + (3 * I), 2))
    ElseIf Mid(strMaxDigit, 2 + (3 * I), 2) < 20 Then
      TempRp = TempRp & arrAngka(Mid(strMaxDigit, 3 + (3 * I), 1)) & " Belas"
    Else
      TempRp = TempRp & arrAngka(Mid(strMaxDigit, 2 + (3 * I), 1)) & " Puluh " & _
               arrAngka(Mid(strMaxDigit, 3 + (3 * I), 1))
    End If
    If Right(TempRp, 1) <> "" Then TempRp = TempRp & " "
    If TempRp <> "" Then TempRp = TempRp & arrLevel(I)
    Terbilang = Terbilang & TempRp
  Next I
  
  If Terbilang <> "" Then
    Terbilang = Replace(Replace(Replace(Replace(Terbilang, _
                        "Se Ribu", "Seribu"), _
                        "Se Ratus", "Seratus"), _
                        "Se Belas", "Sebelas"), _
                        "Se ", "Satu ")
  End If
  
  If Abs(Round(InputAngka, 0)) = 0 Then Terbilang = "Nol "
  If InputAngka < 0 Then Terbilang = "Minus " & Terbilang
End Function 
 

Tuesday, December 7, 2010

[MSSQL][Library] How to handle a Delimited String similar to handle an Array() of Values

Often there is the desire to pass data to T-SQL as an array() of values, yet T-SQL does not provide an array() datatype.

The following presents one method to simulate handling an array() using T-SQL. The client application creates a single-variate array(), and then passes that array() as a VARCHAR() parameter to a SQL Stored Procedure. The Stored Procedure, in turn, passes that VARCHAR(), or string, value to a User Defined Function that parses the string into a temporary table, and provides that temporary table back to the Stored Procedure to use as though it were a real table.


This 'method' can be used to separate a List of Values into Discrete values, and then use that List of Discrete Values in most operations like a Table.
It can be used in a SELECT statement, a multi-table JOIN, and in WHERE clause criteria.


The User may Specify any character as Delimiters.

     Examples:

          '1,2,35,101'                      (Comma Delimited)
          'Act1|Act2|Act5'                (Vertical Bar Delimited)
          '12345 12432 3234 452'     (Single Space Delimited)

Note: For handling very large amounts of data in a 'simulated' Array(), or for rapid multiple calls to the User Defined Function, it may be more efficient to consider creating a CLR Function using C#/VB and Regular Expressions. For small simulated arrays(), there may be little, if any, performance difference.


USE []
GO
IF OBJECT_ID(N'udf__Split') IS NOT NULL
  DROP FUNCTION udf__Split
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
-- *****************************************************************************
-- Name         : udf__Split
-- Author       : Chandra Gunawan
-- Date         : 06-Dec-2010
-- Description  : Convert comma seperated list of item to table
-- Parameters   :
--     @pList       vchr(8000)  Delimited list of item to split
--                                format:  item1[<dlm>[item2]...]
--                                example: a,b,c
--     @pDelimiter  vchr(1)     Delimiter (dlm)
--                                example: ,
--
-- Usage Sample :
--   -------------------------------------------------
--   SELECT * FROM dbo.udf__Split('a,b,c', ',')
--   -------------------------------------------------
--
-- Maintenance Log
-- =============================================================================
-- Date        ID     Description
-- -----------------------------------------------------------------------------
-- 02-Jun-09   chg    Initial Version
-- *****************************************************************************
CREATE FUNCTION dbo.udf__Split
(
    @pList      varchar(8000),
    @pDelimiter varchar(1) = ','
)
RETURNS @pTable TABLE
(
    id   smallint IDENTITY(1,1),
    item varchar(1000)
)
BEGIN 
  DECLARE @iSpot smallint,
          @cStr  varchar(8000),
          @cSql  varchar(8000) 
    
  IF ISNULL(@pDelimiter, '') = '' SET @pDelimiter = ','

  WHILE @pList <> '' 
  BEGIN 
    SET @iSpot = CHARINDEX(@pDelimiter, @pList) 
    IF @iSpot >
    BEGIN 
      SET @cStr = LEFT(@pList, @iSpot - 1) 
      SET @pList = RIGHT(@pList, len(@pList) - @iSpot) 
    END 
    ELSE BEGIN 
      SET @cStr = @pList 
      SET @pList = '' 
    END 
    INSERT @pTable SELECT @cStr
  END 
  RETURN
END
GO
GRANT SELECT ON udf__Split TO public
GO

Usage Sample
The string values are parsed into individual 'rows' and then sorted.

Usage with the String Containing Numeric values.
(Note the use of CAST() in the ORDER BY clause to cause the Values to sort numerically.)
  

SELECT *
  FROM dbo.udf__Split('11,23,3,14', ',') AS s
  ORDER BY cast(s.[item] AS int)

id 
item 
3
3
1
11
4
14
2
23


Usage with the String Containing Character values.

SELECT *
  FROM dbo.udf__Split( 'Bob|Jane|Mary|Li|Hsiao|Lubor', '|' ) AS s
  ORDER BY s.[item]
 
id 
item 
1
Bob
5
Hsiao
2
Jane
4
Li
6
Lubor
3
Mary


To get the second entry of the list.

DECLARE @cItem varchar(100)

SELECT @cItem = item
  FROM dbo.udf__Split( 'Bob|Jane|Mary|Li|Hsiao|Lubor', '|' )
  WHERE id = 2

SELECT @cItem

(No column name)
Jane


See also:
Convert comma separated list of item into single column table (udf__ListToSingleColumn)

 

Thursday, November 25, 2010

[mysql] Selecting Random Selection Of Rows From A Database Table

The begining of this story is a PHPNuke module. The module has a block that picks a random item from a database table and displays it. The content of the table never changes. Here is how the programmer of the block does it:

He knows that there are 6899 rows because the last id in the table has a value of 6899. So with the "rand" PHP function, he picks a random number from 1 to 6899 and then queries the database table with a WHERE clause that checks if the value of the id is equal to the picked number:

srand(time());
$random = (rand(1,6899));
$res = mysql_query ("select * from my_table where id=$random");


The problem here is that because of some deleted rows (he has forgotten he deleted them) in the table, the id is not a continuous sequence from 1 to 6899 and that's why some times the picked number (as a value of the id) not exists in the table and the PHPNuke block displays an empty box.

The RAND function in MySQL is precisely there to prevent this kind of problem. Instead of picking a random id with a PHP code, let the server do it for you:

SELECT * FROM my_table ORDER BY RAND() LIMIT 1;

This query returns a random row from the table my_table, no matter how many rows there are and no matter if the id is a continuous sequence of numbers or not. With this query you are sure you get a random row every single time.

Conclusion:
Never reinvent the wheel.

Wednesday, November 24, 2010

[mssql] Selecting Random Selection Of Rows From A Database Table

I found a nice tip for selecting random rows from within a SQL Server 2000 database. Well actually, pseudorandom. Since my undergraduate thesis was on the topic of pseudorandom number generation, I might as well be precise. For some reason, my non-geek friends find it awfully funny when I mention pseudorandom numbers.

I digress. In order to select 10 records from some table at random, try this:
SELECT TOP 10 * FROM someTable ORDER By NEWID()
Now for my homework, I should find out just how random this is. There's a whole slew of statistical tests I can run to gauge the randomness of pseudorandom number generator such as the Chi-square Test, Serial Correlation Coefficient, and 2-D Random Walk Test to name a few.

IMPORTANT: Please note that this will NOT work in SQL 7 on NT4 because the NEWID() function there generates sequential results

Tuesday, November 2, 2010

[mssql] Compare the records of two tables in SQL Server

When you have two tables (or resultsets from SELECT statements) that you wish to compare, and you want to see any changes in ANY columns, as well as to see which rows exist in 1 table but not the other (in either direction) I have found that the UNION operator works quite well.

UNION allows you to compare all columns very quickly, and also handles comparing NULL values to other NULLs successfully, which a join clause or a WHERE condition doesn't normally do.  It also allows you to very quickly see which rows are missing in either table, which only a FULL OUTER JOIN will do, but of course we all know to avoid those at all costs (right?) -- a full outer join is about as “unrelational” as you can get.  (every column returned is potentially Null and must be wrapped in a COALESCE function).  Best of all, the UNION is quick and easy and short.

The basic idea is: if we GROUP the union of two tables on all columns, then if the two tables are identical all groups will result in a COUNT(*) of 2.  But for any rows that are not completely matched on any column in the GROUP BY clause, the COUNT(*) will be 1 -- and those are the ones we want.  We also need to add a column to each part of the UNION to indicate which table each row comes from, otherwise there is no way to distinguish between which row comes from which table.

So, here's an example, assuming we are comparing tables A and B, and the primary key of both tables is ID:


SELECT MIN(TableName) as TableName, KeyColumn, Column2 [, ...]
  FROM
  (SELECT '<TableName1>' as TableName, KeyColumn, Column2 [, ...]
     FROM <TableName1>
     UNION ALL
   SELECT '<TableName2>' as TableName, KeyColumn, Column2 [, ...]
     FROM <TableName2>
  ) tmp
  GROUP BY KeyColumn, Column2 [, ...]
  HAVING COUNT(*) = 1   -- Alternative: COUNT(*) <> 2
  ORDER BY KeyColumn

The above returns all rows in either table that do not completely match all columns in the other.  In addition, it returns all rows in either table that do not exist in the other table.  It handles nulls as well, since GROUP BY normally consolidates NULL  values together in the same group.  If both tables match completely, no rows are returned at all.

The MIN() aggregate function used on the TableName column is just arbitrary -- it has no effect since we are only returning groups of rows in which there has been no consolidation with the GROUP BY (note the HAVING clause).

Tuesday, September 7, 2010

[mssql] Database in Recovery Status

Q: I have a database currently showing to be in recovery.  I have not been able to find a GUI method to monitor the progress (to determine when it might complete) so is there a command line T-SQL method to monitor the recovery process?

A: If this is 2005, this might be what you need:

SELECT session_id, command, status, percent_complete, *
  FROM sys.dm_exec_requests
 
It works for other types of commands that have known progress indicators.  If not, then I really don't think it tells you.  You might also check the error log to see how long it took the previous time...

Tuesday, June 15, 2010

[mssql] How do I format money/decimal with commas?

Sometimes you want to have your money fields properly formatted with commas like this: 13,243,543.57
You can use the CONVERT function and give a value between 0 and 2 to the style and the format will be displayed based on that

Below is an example:



DECLARE @v MONEY
SELECT @v = 1322323.6666

SELECT CONVERT(VARCHAR,@v,0)    --1322323.67    
/* Rounded but no formatting */

SELECT CONVERT(VARCHAR,@v,1)    --1,322,323.67    
/* Formatted with commas */

SELECT CONVERT(VARCHAR,@v,2)    --1322323.6666 
/* No formatting */
 

If you have a decimal field it doesn't work with the convert function
The work around is to convert it to money



DECLARE @v2 DECIMAL (36,10)
SELECT @v2 = 13243543.56565656

SELECT CONVERT(VARCHAR,CONVERT(MONEY,@v2),1) --13,243,543.57
/* Formatted with commas */