C# と VB.NET の質問掲示板

お世話になります。

【Visual Studio2005】
【SQLServer2005】
にてストアドプロシージャ(SP)の開発をしております。

今回はSPについての質問になります。
例えば、一つのSP内に結果セットが二つ存在する場合に画面側に返す時、
アウトプットパラメータとして、データセットを指定することはできたりするのでしょうか？
下記の例でいうと二つ結果セットが生まれますが、画面側にどのように返せばよいかが不明な状態です。

基本的なことかもしれませんが、どうかご教授お願いいたします。


例：
IF EXISTS (SELECT * FROM sysobjects WHERE id = object_id('dbo.SP10060102'))
   DROP procedure dbo.SP10060102
GO

SET QUOTED_IDENTIFIER  ON
SET ANSI_NULLS  ON
GO

CREATE PROCEDURE TEST1
/*--------------------------------------------------------------------------------
  < Explanation >
----------------------------------------------------------------------------------
    【システム名】社内システム
    【作成者】OOO
    【作成日】2008/04/09
    【処理概要】データを取得する。

    【修正履歴】

----------------------------------------------------------------------------------
  < Arguments Section >
--------------------------------------------------------------------------------*/
         @Ng                                    TypNengetsu6            -- 年月         
        ,@HjnCd                                 TypHoujinCd             -- 法人コード
        ,@pErrKbn                               TypCheck        OUTPUT  -- エラー区分 "0":存在しない "1":存在する

AS
BEGIN
/*--------------------------------------------------------------------------------
  < Valuables Section >
--------------------------------------------------------------------------------*/
    DECLARE  @error         INT
    DECLARE  @rowcount      INT
/*--------------------------------------------------------------------------------
    < Main Code Section >
--------------------------------------------------------------------------------*/
       -- 一つ目の結果セット
        SELECT         
                 H1.HjnCd                               AS      HjnCd                   -- 法人コード
                ,H2.HjnMe_Ryakushou                     AS      HjnMe_Ryakushou         -- 法人名称(略称)
                ,H1.Ng                                  AS      Ng                      -- 年月         
                ,H1.UkZgkrkDk                           AS      UkZgkrkDk               -- 売掛前月繰越高               
                ,H1.UaKei                               AS      UaKei                   -- 売上計               
                ,H1.HkeKn                               AS      HkeKn                   -- 振替金額             
                ,H1.ChouseiKn                           AS      ChouseiKn               -- 調整金額             
                ,H1.SousaiKn                            AS      SousaiKn                -- 相殺金額             
                ,H1.NkKnGkn                             AS      NkKnGkn                 -- 入金金額現金         
                ,H1.NkKnKgt                             AS      NkKnKgt                 -- 入金金額小切手               
                ,H1.NkKnGinHkm                          AS      NkKnGinHkm              -- 入金金額銀行振込     
                ,H1.NkKnYbnHke                          AS      NkKnYbnHke              -- 入金金額郵便振替     
                ,H1.NkKnUketoriTg                       AS      NkKnUketoriTg           -- 入金金額受取手形     
                ,H1.TgZgkrkDk                           AS      TgZgkrkDk               -- 手形前月繰越高               
                ,H1.UkTgtZn                             AS      UkTgtZn                 -- 売掛当月残高         
                ,H1.SakihidukeKgtTgtZn                  AS      SakihidukeKgtTgtZn      -- 先日付小切手当月残高 
                ,H1.UkZnUchiTsjHin                      AS      UkZnUchiTsjHin          -- 売掛残高内通常品     
                ,H1.UkZnUchiTkbHin                      AS      UkZnUchiTkbHin          -- 売掛残高内特別品     
                ,H1.UkZnUchiHsHin                       AS      UkZnUchiHsHin           -- 売掛残高内販促品     
                ,H1.YoshinGendoGk                       AS      YoshinGendoGk           -- 与信限度額           

        FROM    (  DchHoujinbetsuZandakaGenzai AS H1   ( NOLOCK )                       -- 法人別残高（現在残高）
            INNER JOIN
                   MstHoujin AS H2  ( NOLOCK )                                          -- 法人マスタ
                   ON H1.HjnCd = H2.HjnCd
                )
        WHERE
                ((H1.Ng   =   @Ng  ) OR ( @Ng   IS NULL))
          AND   ((H1.HjnCd   =   @HjnCd  ) OR ( @HjnCd   IS NULL))
		
		-- 二つ目の結果セット
		SELECT 
				A1.MMKC
		FROM
				KMNJKL AS A1
		WHERE
				((A1.Ng   =   @Ng  ) OR ( @Ng   IS NULL))
				
	
		
    SELECT  @error      = @@ERROR ,
            @rowcount   = @@ROWCOUNT

    IF @error <> 0      -- エラー
    BEGIN
        RAISERROR (@error,0,1)
        RETURN @error
    END

    IF @ROWCOUNT = 0
        SELECT @pErrKbn = '1'
    ELSE
        SELECT @pErrKbn = '0'

    RETURN @error

END
GO

いつも参考にさせていただいています。

現在、タブコントロールを配置して、３つのページを配置しています。
３つめのタブページにはデータグリッドを貼り付けています。

ある条件で３番目のタブを隠したいのです。
また隠されたタブの中に配置しているデータグリッドの値などは計算で使用させたいのでタブが削除されては困るのです。
非表示にしたいだけなのですが・・・

プログラムをこのようにすると隠れたのですが何かふに落ちないのです。

If 特定の条件 then
   tabMain.TabPages.RemoveAt(2) '←これで隠れた
   MsgBox(dgv3.Rows(0).Cells("単価").Value) '←確認のため表示してみた
End if

ソースを書いている途中に表示される画面では、
----------------------
RemoveAt(Index as Integer)
Index:
  削除するSystem.Windows.Forms.TabPageの0から始まるインデックス。
----------------------

と表示されます。
しかし　tabMain.TabPages.RemoveAt(2)　これを実行すると
削除されたタブの中で使用されているデータグリッドの中身を見ることができます。

RemoveAtとは削除ではなく非表示ということなのでしょうか？
なにかアドバイスよろしくお願いします。

環境：WindowsXP Home / VB2005 Pro /Frameworks2.0

れいです。
お世話になっています。

たとえば。

C言語などのオブジェクト指向をサポートしてくれない言語で、
オブジェクト指向な組み方をする場合、
構造体にXXXTypeとかXXXCodeといったフィールドを用意し、
switchで場合分けすることがよくあります。

あるクラスのフィールドをReadOnlyにしたい場合、
ReadOnly専用のクラスを作る場合と、
フラグか何かでReadOnlyに切り替わるようなクラスに変更する方法と、二つあります。

このように、「型」と「フィールド」と「場合分け」は
データとメタデータの関係で密接に関わっていて、
そのうまい切り方もセンスのひとつだと思うわけですが。

----マエフリここまで----

C#とVBのイベントの実装に関して、皆さんの実装の指針を教えてください。

イベントをどこまでどうやって分解するべきかわからない場合の
指針が欲しいと思っています。

MouseClickとFormLoadのように、
意味もパラメーターも違うのならイベントを分けべきなのはすぐにわかるのですが、
微妙な場合は困ります。
たとえば、KeyUp/KeyDownは.Netでは違うイベントですが、
OS内部では同じイベントでパラメーターが違うだけです。
これを「分ける」と決めた理由が欲しいと思います。

イベントの場合、メタデータを含めると
「イベント名」と「イベント引数の型」と「イベント引数内のフィールド」の、
3つに情報を保持できますので、パターンがいっぱいあります。
たとえば以下のようにイベントを分けることができます。


#1 イベント名を分ける場合
public class EventRaiserClass {
  public event EventHandler<AAAEventArgs> AAA;
  public event EventHandler<AAAEventArgs> BBB;
  public event EventHandler<AAAEventArgs> CCC;
  public event EventHandler<AAAEventArgs> DDD;
}
public class AAAEventArgs : EventArgs {};

#2 イベント引数内のプロパティで分ける場合
public class EventRaiserClass {
  public event EventHandler<AAAEventArgs> AAA;
}
public class AAAEventArgs : EventArgs {
  public EventType Type;
}
public enum EventType {
  AAA, BBB, CCC, DDD
}

#3 イベント引数の型だけで分ける場合
public class EventRaiserClass {
  public event EventHandler<EventArgs> AAA;
}
public class AAAEventArgs : EventArgs {};
public class BBBEventArgs : EventArgs {};
public class CCCEventArgs : EventArgs {};
public class DDDEventArgs : EventArgs {};


もちろんこれらを組み合わせることも可能で、

#4 イベントとイベント引数の型で分ける場合
public class EventRaiserClass {
  public event EventHandler<AAAEventArgs> AAA;
  public event EventHandler<BBBEventArgs> BBB;
  public event EventHandler<CCCEventArgs> CCC;
  public event EventHandler<DDDEventArgs> DDD;
}
public class AAAEventArgs : EventArgs {};
public class BBBEventArgs : EventArgs {};
public class CCCEventArgs : EventArgs {};
public class DDDEventArgs : EventArgs {};

とか、いろいろ(2^3=8通り)作れます。

いままで本能の赴くまま作っていたのですが、
他人に説明できなくて困ります。

時と場合による、というのはわかっていますが、
その時と場合とをできるだけ分解して、
適切な実装を得るための指針を得たいと思っています。

たとえば、

・全部ひとつのイベントにまとめる
・EventArgsをできるだけ使いまわしできるように分ける
・イベントハンドラで場合わけしなくていい程度に分ける
・イベント名が長くならないように分ける

など、いろいろ考えられると思います。

みなさんは何を意識して組んでいるのか、
何を意識して組むべきだと思っているのか、
こうやったらうまくいった、という事例など、
教えてください。

はじめまして、VisualC# 2008 Exp、.NET Fream3.0を使って、自作DLLを作成し、DLLImportを使用して、プログラムを作成してましたが、
うまく、DLLを読み込んでくれないみたいなのです。
すいませんが、参考になる方法や、資料がありましたら、ご教授おねがいします。

ソリューションを用意し、二つのプロジェクトにて、ソリュージョンビルドまではやってみました。

-main.cs-(コンソールアプリ)--------------------------------------------------------------------------
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;

namespace ProgramMain
{
//    using UtilityMethods;

    class Program
    {
        [DllImport("UtilityMethods.dll")]
        public static extern long Add(long i, long j);

        [DllImport("UtilityMethods.dll")]
        public static extern long Multiply(long x, long y);

        static void Main(string[] args)
        {
            System.Console.WriteLine("Calling methods from MathLibrary.DLL:");

            if (args.Length != 2)
            {

                System.Console.WriteLine("Usage: TestCode <num1> <num2>");
                return;
            }

            long num1 = long.Parse(args[0]);
            long num2 = long.Parse(args[1]);
            long sum = Add(num1, num2);
            long product = Multiply(num1, num2);
            System.Console.WriteLine("{0} + {1} = {2}", num1, num2, sum);
            System.Console.WriteLine("{0} * {1} = {2}", num1, num2, product);

        }
    }
}
---------------------------------------------------------------------------

-Add.cs--(クラスライブラリのプロジェクトから作成)--------------------------
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace UtilityMethods
{
    public class AddClass
    {
        public static long Add(long i, long j)
        {
            return (i + j);
        }
    }
}
---------------------------------------------------------------------------

-multi.cs--(クラスライブラリのプロジェクトにファイル追加)------------------
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace UtilityMethods
{
    class MultiplyClass
    {
        public static long Multiply(long x, long y)
        {
            return (x * y);
        }
    }
}
---------------------------------------------------------------------------

■No17271 (凪瀬 さん) に返信
> まず、どういう操作をしたらどういう挙動をした、という正確な情報を集めてください。
> この際に、実験手順としてはノイズが入ることを防ぐためにも単純化することが望ましい

了解です。

午前中だけ掲示板にレスを返せる環境にありますが、作業場所ではリードオンリーで歯がゆいです；

showModalDialog session

で検索したところ、なにやら不具合っぽいのがなんとなく分かりましたが、当方の現象に関連する
ものかどうかはちょっと怪しい、気もします。

http://support.microsoft.com/kb/196383/ja
これも既に直っている（軽減という言い方かな）？らしいのですが、これが開いた先じゃなくて
開いた元のセッションが切れてしまうことに繋がるのかは文面からは読み取れませんでした。


-----------
-----------
//呼び出し側 JSP の onload に仕込む。
<script>
window.attachEvent("onload", function (oButton, oForm, callbackFunc) {

	oButton.onclick = function() {
		var arr = [];
		for (var i=0;i < oForm.elements.length;i++) {
			arr.push( oForm.elements[i].cloneNode(true));
			//select-one , radio , check はもう少し複雑ですが、ここでは省略
		}
		var params = [];
		params.param = arr;
		params.method = "POST";
		params.action = "http://同じドメイン/servlet/xxx.class";
		
		var rets = showModalDialog("dummy.html",params, "dialogWidth:400px;dialogHeight:600px;");
		
		if (!callbackFunc) {
			alert(rets);
		}
		else {
			callbackFunc(rets);
		}
		return false;
	};
}(document.getElementById("xxxButton"), document.forms[0], function(rets) {
	var s = [];
	for (var a in rets) {
		s.push( a + "=>" + rets[a]);
	}
	alert(s.join("\n"));
}));
</script>

//dummy.html の<head> 直下に以下の<base>タグを記述
<base target="_self" />

//dummy.html の onload に仕込む
<script>
window.attachEvent("onload", function() {
	var arg = dialogArguments;
	var fom = document.createElement("form");
	fom.action = arg.action;
	fom.method = arg.method;
	for (var i=0;i < arg.param.length;i++) {
		var hid = document.createElement("input");
		hid.type = "hidden";
		hid.name = arg.param[i].name;
		hid.id = arg.param[i].id;
		hid.value = arg.param[i].value;
		//select-one , radio , check はもう少し複雑ですが、ここでは省略
		fom.appendChild(hid);
	}
	document.body.appendChild(fom);
	
	setTimeout(function() { document.forms[0].submit(); }, 100);
	
});
</script>


//dummy.html でポストしたコントロールサーブレットが返す JSP の中で
<script>
var retVal = [];
retVal.result = "CANCEL";
window.returnValue = retVal;

function closeDialog() {
	retVal.result = "OK";
	retVal.NAME = document.forms[0].NAME.value;
	retVal.ADDR = document.forms[0].ADDR.value;
	
	window.returnValue = retVal;

	self.window.close();

}
</script>

お世話になります。
一度送信したと思ったのですが、反映されていなかったので、もし二重に投稿していたら大変すみません。
表題の件について質問させて下さい。

開発環境
OS：2000 Pro
VB.Net:2003
Office Access:2003

日中Office Accessでユーザーが作業している後ろで、コンソールファイルを動かします。
コンソールファイルは atコマンドでスケジュール登録しております。

コンソール部分の作業が終わると、終了メッセージボックスを上げたいのですが
以下の方法で挫折し続けています。
改良点や他の方法などのアドバイス、もしくは引導を渡して頂けると、大変ありがたいです。


Module Module1
    Declare Auto Sub MessageBoxW Lib "user32.dll" ( _
     ByVal hWnd As Long, _
     <MarshalAs(UnmanagedType.LPWStr)> ByVal lpText As String, _
     <MarshalAs(UnmanagedType.LPWStr)> ByVal lpCaption As String, _
     ByVal uType As Integer)

    Public Declare Function FindWindowA Lib "user32" (ByVal cnm As String, ByVal cap As String) As Long

    Sub Main()
        '<API　MessageBoxW>
        MessageBoxW(0, "終わりました", "タイトルです", 0) '----■方法1

        '<API　FindWinow　+　MessageBoxW>
        Dim hWnd As Long
        hWnd = FindWindowA(vbNullString, "Microsoft Access")
        MessageBoxW(hWnd, "終わりました", "タイトルです", 0)  '----■方法2

        '<Dos窓>
        Console.WriteLine("終了しました。閉じてください")'----■方法3

        '<WindowForm>
        Dim frm As frmMsg = New frmMsg
        frm.Show()  '----■方法4
        frm.ShowDialog()  '----■方法5
        frm = Nothing
    End Sub
End Module

■1 API　MessageBoxW
　結果：何も起こりませんでした。

■2 API　FindWinow　+　MessageBoxW
　結果：デバッガが立ち上がり、エラーメッセージが表示されます

「System.NullreferenceExceptionのハンドルされていない例外が　○○.exeで発生しました。
追加情報：オブジェクト参照がオブジェクト　インスタンスに設定されていません。」
となります。hWndには17桁の数字が入っていました。

すみません、APIに無知なのですが、MessageBoxWの　
ByVal hWnd As Long（オーナーウィンドウのハンドルを指定します。0 (NULL) を指定した場合、
メッセージボックスはオーナーウィンドウを持ちません）

は、この場合、
コンソールファイルはウィンドウを持たないので、そのままメッセージを出せないが、開いている画面(Access)
のWindowの番号をFindWindowで指定すると、Accessからメッセージが上がったように見える、という理解は
間違っておりますでしょうか。

■3　DOS窓
　結果：何も起こっていないように見えます。

一瞬書き込まれているのかもしれませんが、ユーザー操作で窓を閉じる事ができる方法がありましたら
どうぞご指導お願い致します。

■4　WindowFormを作成して、Show
　結果：何も起こりません。

■5　WindowFormを作成して、ShowDialog
結果：デバッガが立ち上がり、エラーメッセージが表示されます。

System.InvalidOperationException' のハンドルされていない例外がsystem.windows.forms.dllで発生しました。
追加情報：アプリケーションが UserInteractive モードで実行されていないときに、モーダル ダイアログまたは
フォームを表示することは有効な操作ではありません。サービス アプリケーションからの通知を表示するには、
ServiceNotification または DefaultDesktopOnly スタイルを指定してください。

どうぞよろしくお願い致します。
長文失礼致しました。

■No17467 (猫 さん) に返信
MasterPage.Master
+-----------+-------------------------------+
| Content-  | ContentPlaceHolder            |
| Place-    | MainView                      |
| Holder    |                               |
|           |                               |
| TreeView  |                               |
|           |                               |
|           |                               |
|           |                               |
|           |                               |
|           |                               |
|           |                               |
|           |                               |
+-----------+-------------------------------+

こーゆー画面のとき、
<style>
* {
  overflow:hidden;
  margin:0px;
  font-size:12px;
}
#LeftView {
   width:200px;
   overflow:auto;
   float:left;
}
#RightView {
   width:100%;
   overflow:auto;
   clear:none;
}
</style>

<body>
<div id="LeftView">
   <asp:ContentPlaceHolder name="TreeView" />
</div>
<div id="RightView">
   <asp:ContentPlaceHolder name="MainView" />
</div>

こーやんのかな、たぶん。CSS の BOX レイアウトが嫌なら、テーブルで囲って下さい。
左のツリーの表示領域を左右に可変させたいなら、MSDN　ライブラリの適当なページを
開くとサンプルが目の前にあります。

HTML/JavaScript(Ajax/DOM/JSON)/CSS/XML/ASPタグ/C# の勉強をやらないとダメなんじゃないの？
作業と平行して覚えるのもいいけどさ。
Webのプログラムって意外と覚えることが多いよ。

嫌々させられてる、って思うと勉強が中々捗らないから、がんばってね。
頭の中に出来上がりを想像しながらやるといいかもよ。
    

使用OS：Windows2000
開発環境･言語：MicrosoftExcel2000 , MicrosoftVisualBasic6.0

こんにちは、お世話になります。

エクセルの勤務表に、日勤時間や週勤時間等を自動記録するシステムを作成しています。
現在は週の初めの営業日と、終わりの営業日の入力を求め、
その週の勤務時間と標準勤務時間を記録する部分を作っております。

そのうちの、標準勤務時間の部分が、
小数部が切り捨てられるのか、本来の値とずれてしまいます。

マクロなしでやると、標準勤務時間は以下の式を入力しています。
=INT(0.319444444444444*営業日数*24/1)+MOD(0.319444444444444*営業日数*24,1)*60/100

それをマクロでは以下のように記録してみました。
------------------------------------------------------
Sub 週勤計算()

Dim Startday As Integer         '週始めの営業日を格納
Dim Endday As Integer           '週終わりの営業日を格納
Dim Fixedstandard As Single     '週の標準勤務時間を計算して格納

'週初めの営業日の入力を求める。
Startday = Application.InputBox("週の始まりの平日を入力してください。", "週勤務時間計算", , , , , , 1)
'週終わりの営業日の入力を求める。
Endday = Application.InputBox("週の終わりの平日を入力してください。", "週勤務時間計算", , , , , , 1)

-中略(週の勤務時間を記録)-

'記録部のセルを結合
Range(Cells(Startday + 3, "M"), Cells(Endday + 3, "M")).MergeCells = True

'週の標準勤務時間を算出してセルに入力
Fixedstandard = (Int(0.319444444444444 * (Endday - Startday + 1) * 24 / 1)) + (0.319444444444444 * (Endday - Startday + 1) * 24 Mod 1) * 60 / 100
Cells(Startday + 3, "M") = Fixedstandard

End Sub
------------------------------------------------------

MOD関数の動作が違うらしいということは理解できたのですが、
小数部を切り捨てない関数、もしくは演算子が分からず、つまづいています。

この質問を書くためにデバック作業をしながら確認をしていたら、
int関数の動きも期待通りでない気がしてきました。