すかぽん

SQLをVBで扱う。(1)

テーマ：Windows

2010年01月08日 22時56分

SQLをVBで扱う。

VBでDBを操作していると、動的にSQLを生成する場面がたまに出てきます。
それを、効率よく行う方法を、(半分ネタで)考えてみました。

VBでSQLを扱う場合、普通は次のような感じでしょうか。

Dim s As String = ""
s &= "Select 見積ID,顧客名,sum(見積詳細.金額) "
s &= " From 見積 Join 顧客 on 見積.顧客ID=顧客.顧客ID Join 見積詳細 on 見積.見積ID=見積詳細.見積ID "
s &= " Where 見積ID>=100 and 見積詳細.金額>=0"
s &= " Group By 見積ID,顧客名 "
s &= " Having sum(見積詳細.金額)>=100"
Debug.Print(s)

ここでのSQLは、VB的にはただの文字列です。
これではいけません。ただの文字列ではなく、意味を持たせましょう。
そのために次のようなクラスを作成しました。

Class SQL
  Dim s As String = ""

  Public Sub New()
  End Sub

  Public Sub New(ByVal s As String)
    Me.s = s
  End Sub

  Public Function [Select](ByVal ParamArray arg() As String) As SQL
    Me.s &= " Select " & String.Join(",", arg)
    Return Me
  End Function

  Public Function From(ByVal arg As String) As SQL
    Me.s &= " From " & arg
    Return Me
  End Function

  Public Shared Widening Operator CType(ByVal a As SQL) As String
    Return a.s
  End Operator
End Class

Select句とFrom句をSQLオブジェクトの関数にしたので、

Dim s As String = ""
s &= "Select * "
s &= " From 見積"
Debug.Print(s)

は

Dim q as New SQL
q.Select("*")
q.From("見積")
Debug.Print(q)

と書けます。どうです？これだけ見るとよさそうでしょ。

足りないSQL句を実装して最初の例を記述すると次のようになりました。
(SQLクラスの全ソースは次回に記載します。)

Dim q as New SQL
q.Select("見積ID", "顧客名", "sum(見積詳細.金額)")
q.From("見積")
q.Join("顧客", "見積.顧客ID=顧客.顧客ID")
q.Join("見積詳細", "見積.見積ID=見積詳細.見積ID")
q.Where("見積ID>=100 and 見積詳細.金額>=0")
q.GroupBy("見積ID", "顧客名")
q.Having("sum(見積詳細.金額)>=100")
Debug.Print(q)

行を分けずに書けばこんな感じです(うげ～)

Dim q as New SQL
q.Select("見積ID", "顧客名", "sum(見積詳細.金額)").From("見積").Join("顧客", "見積.顧客ID=顧客.顧客ID").Join("見積詳細", "見積.見積ID=見積詳細.見積ID").Where("見積ID>=100 and 見積詳細.金額>=0").GroupBy("見積ID", "顧客名").Having("sum(見積詳細.金額)>=100")
Debug.Print(q)

次回に続きます。

イイ！と思ったら拍手をお願いします↓

【勝僖梅（しょうきばい）】～紀州南高梅
高級梅干【勝喜梅】は『特Ａ級』紀州南高梅を使ったこだわりの梅干。大粒でやわらかい果肉。まろやかな旨みにご飯が最高っ！ご贈答もお得なご家庭用も。
http://www.shoki-bai.co.jp/

和歌山の良いもん・美味いもん
【ふるさと和歌山わいわい市場】
和歌山県が運営する「ふるさと和歌山わいわい市場」では、季節とりどりの旬の食材が盛りだくさん！
紀州の梅干しはもちろん、リピーター多数のしらす、和歌山生まれのしょうゆ・みそなど和歌山でならでは特産品が約３，０００商品以上♪
特別企画やプレゼントが当たるページなどお得な情報を求め、ぜひサイトをご覧ください。

http://www.wakayamaken.jp

Smarty 部品定義プラグインを作ってみた

テーマ：インターネットのお勉強

2009年12月03日 19時21分

Smartyテンプレート内でよく使うhtmlを部品として定義して、それを再利用するプラグインを作りました。

使い方はこんな感じです

{* 部品を定義します *}
{define_part name='part1'}
    {literal}
        <div class="{$class}">{$message}</div>
    {/literal}
{/define_part}

{* 部品を使用します *}
{part name='part1' class='info' message='メッセージ１'}
{part name='part1' class='error' message='メッセージ２'}

こんな感じの出力が得られます。

<div class="info">メッセージ１</div>
<div class="error">メッセージ２</div>

define_partで部品を定義し、partでそれを使用します。

定義時に変数が展開されてしまうのを防ぐため、define_part内はliteralで括っています。
partで指定された属性は、テンプレート変数に割り当てられます。

ソース(pluginsディレクトリに入れてください。)
function.part.php

<?php
function smarty_function_part($params,&$smarty) {
    require_once $smarty->_get_plugin_filepath('function', 'eval');

    $tmpl=$smarty->get_template_vars($params['name']);

    foreach($params as $k=>$v) {
        if($k=='name') continue;
        $smarty->assign($k,$v);
    }

    return smarty_function_eval(array('var'=>$tmpl) , $smarty);
}
?>

block.define_part.php

<?php
function smarty_block_define_part($params, $content, &$smarty, &$repeat) {
    if(isset($content)) {
        $smarty->assign($params['name'],$content);
    }
}
?>

#村ブロってファイル添付出来ないのかな？

イイ！と思ったら拍手をお願いします↓

明日は舞洲でカート

テーマ：車

2009年11月20日 19時14分

明日は１ヶ月ぶりに休みが取れそうです。

3連休なので舞洲のレンタルカートに遊びに行く予定です。

昔(福井に住んでいた頃)はサーキットやジムカーナ場に行って、スカイラインで走ってたのですが、
田辺に帰ってきてからはめっきり走りに行かなくなりました。

その代わりとして、最近始めたのがレンタルカートです。
高速代も安くなったので、生駒や舞洲のレンタルカートに行ってます。
カートと言ってもアドベンのゴーカートなんかとは別物で、
パワーもそれなりにあり、スピードも出るので走りがいがあります。

舞洲は規定タイムをクリアすると、よりハイパワーなカートに乗れるようになるシステムなので、
明日はそれを目標に走ってきます。
前回走った時は、規定タイムまで0.8秒ぐらいだったので、今回こそは！！！

コマンドラインからCD-R/DVD-Rの制御

テーマ：Windows

2009年10月26日 13時33分

コマンドラインからCD-R/DVD-Rの制御

Windows SDK 付属の imapi2sample を使用すると
コマンドラインから DVD-R や CD-R の書き込みが出来るようになります。
今回は、imapi2sample をビルドするのに Visual Studio 2005 を使用しました。

まず、Windows SDK をダウンロードし、インストールします。
「for Windows Vista」となっていますが、Windows XP もサポートOS に含まれています。

Windows SDK for Windows Vista
http://www.microsoft.com/downloads/details.aspx?FamilyID=7614fe22-8a64-4dfb-aa0c-db53035f40a0&DisplayLang=ja

Windows SDK のインストールが完了したら、Visual Studio に統合します。
スタートメニューに「Windows SDK と Visual Studio 2005の統合」が追加されれているので、これを実行します。

imapi2sample が Windows SDK をインストールしたディレクトリの
Samples\WinBase\imapi に有るので、これを適当なディレクトリにコピーし
Visual Studio で開きます。

そのままだと進捗の表示が化けるので、次のように変更しビルドを行います。

(unidiff形式です。)

--- consoleUtil.cpp Thu Jan 15 17:52:48 1970
+++ consoleUtil.cpp Thu Jan 15 17:52:48 1970
@@ -36,20 +36,20 @@

     // NOTE: Overflow possibility exists for large numerators.

     percent = (Numerator * 100) / Denominator;

     // each block is 2%
     // ----=----1----=----2----=----3----=----4----=----5----=----6----=----7----=----8
     // ｱ.....................

     for (i=1; i<100; i+=2) {
         if (i < percent) {
-            putchar(178);
+            putchar('#');
         } else if (i == percent) {
-            putchar(177);
+            putchar('*');
         } else {
-            putchar(176);
+            putchar('-');
         }
     }
     printf(" %d%%", percent);
}
--- Erase2Event.cpp Thu Jan 15 17:52:48 1970
+++ Erase2Event.cpp Thu Jan 15 17:52:48 1970
@@ -35,27 +35,27 @@

     // NOTE: Overflow possibility exists for large numerators.

     percent = (Numerator * 100) / Denominator;

     // each block is 2%
     // ----=----1----=----2----=----3----=----4----=----5----=----6----=----7----=----8
     // ｱ.....................

     for (i=1; i<100; i+=2) {
         if (i < percent) {
-            putchar(178);
+            putchar('#');
         } else if (i == percent) {
-            putchar(177);
+            putchar('*');
         } else {
-            putchar(176);
+            putchar('-');
         }
     }
     printf(" %d%%", percent);
}

STDMETHODIMP_(VOID) CTestErase2Event::Update(IDispatch* object, LONG elapsedTime, LONG totalTime)
{
     UNREFERENCED_PARAMETER (object);

     DeleteCurrentLine2();
     UpdatePercentageDisplay2(elapsedTime, totalTime);

imapi2sample を実行するには IMAPIv2 が必要です。
Vista 以降で有れば標準で対応しているようですが、
XP の場合は別途マイクロソフトのサイトからダウンロードする必要があります。

Windows XP 用 Image Mastering API v2.0 (IMAPIv2.0) (KB932716)
http://www.microsoft.com/downloads/details.aspx?FamilyID=B5F726F1-4ACE-455D-BAD7-ABC4DD2F147B&displaylang=ja

以上で imapi2sample の用意が出来ました。

imapi2sample.exe -eject
imapi2sample.exe -inject

でトレイの開閉が出来ます。

imapi2sample.exe -erase

で CD-RW/DVD-RW の消去が出来ます。

imapi2sample.exe -write ディレクトリ

でディレクトリを書き込むことが出来ます。