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

環境 Excel 2007, WinXP
開発言語 VBA

こんにちは。VBAでオブジェクトの扱いを勉強しています。
標準モジュールに添付のコードを適用しています。

もっとスマートなやり方がありましたら、ご教授下さい。　よろしくお願い致します。 
また、懸念事項などもございましたら、ご指摘いただけるとありがたいです。


''' ---------------------------------------------------------------------------------------
''' <summary>
'''     Excel のコマンドバー名、コマンドバーオブジェクト内のコントロール、サブコントロール
'''     とそのコントロール ID すべてを、Excelドキュメントに出力します。
''' </summary>
''' ---------------------------------------------------------------------------------------
Sub ListCommandBarControls()

Dim rowCount As Integer
rowCount = 1

'Header Definition
  setHeader
 
     For Each cb In Application.CommandBars
           rowCount = rowCount + 1
           
           'CommandBar
           Range("A" & rowCount).Select
           ActiveCell.FormulaR1C1 = cb.Name
           
           'コマンドバーオブジェクト内のコントロールを収集
           For Each cntl In Application.CommandBars(cb.Name).Controls
                 
                 rowCount = rowCount + 1
                 
                 'Caption
                 Range("B" & rowCount).Select
                 ActiveCell.FormulaR1C1 = cntl.Caption
                 
                 'Error Capturing
                 On Error GoTo ErrHandler:
                 
                 'コマンドバーオブジェクト内のコントロール内のサブコントロールを収集
                 For Each subcntl In Application.CommandBars(cb.Name).Controls(cntl.Caption).Controls
                       rowCount = rowCount + 1
 
                   'サブコントロールのCaption
                   Range("C" & rowCount).Select
                   ActiveCell.FormulaR1C1 = subcntl.Caption
                   
                   'ID
                   Range("D" & rowCount).Select
                   ActiveCell.FormulaR1C1 = subcntl.ID
                 Next
PastError:
 
           Next
 
     Next

GoTo bypass:

'エラー処理を実施
ErrHandler:
           Range("C" & rowCount).Select
           ActiveCell.FormulaR1C1 = cntl.ID
           
Resume PastError:

bypass:

End Sub

''' ---------------------------------------------------------------------------------------
''' <summary>
'''     出力ファイルのヘッダを定義します。
''' </summary>
''' ---------------------------------------------------------------------------------------

Private Sub setHeader()

    Const CombarColWidth = 18
    Const CaptionColWidth = 21
    Const LocalCaptionColWidth = 23
    Const ControlIdColWidth = 15
    
    Const defaultColor = 35

     Columns("A:A").ColumnWidth = CombarColWidth
     Columns("B:B").ColumnWidth = CaptionColWidth
     Columns("C:C").ColumnWidth = LocalCaptionColWidth
     Columns("D:D").ColumnWidth = ControlIdColWidth
 
     Range("A1").Select
     ActiveCell.FormulaR1C1 = "Command Bar"
     ActiveCell.Interior.ColorIndex = defaultColor
     ActiveCell.Font.Bold = True
     
     Range("B1").Select
     ActiveCell.FormulaR1C1 = "Control Caption"
     ActiveCell.Interior.ColorIndex = defaultColor
     ActiveCell.Font.Bold = True
     
     Range("C1").Select
     ActiveCell.FormulaR1C1 = "Local Caption"
     ActiveCell.Interior.ColorIndex = defaultColor
     ActiveCell.Font.Bold = True
     
     Range("D1").Select
     ActiveCell.FormulaR1C1 = "Control ID"
     ActiveCell.Interior.ColorIndex = defaultColor
     ActiveCell.Font.Bold = True
 
     Rows("2:2").Select
     
     ActiveWindow.FreezePanes = True

End Sub

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            listBox1.Items.Clear();
            listBox1.Items.Add("DRIVE\tREADY?\tTYPE\tFREESPACE\tTOTALSPACE\tFORMAT");
            listBox1.Items.Add("--------------------------------------------------------------------------");

            foreach (System.IO.DriveInfo dInfo
                in System.IO.DriveInfo.GetDrives())
            {
                listBox1.Items.Add
                    (
                    dInfo.Name + "\t"
                    + dInfo.IsReady + "\t"
                    + dInfo.DriveType.ToString() + "\t"
                    + dInfo.TotalFreeSpace.ToString() + "\t"
                    + dInfo.TotalSize.ToString() + "\t"
                    + dInfo.DriveFormat.ToString()
                    );
            }
        }
    }
}
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
書籍を見ながらドライブ情報を取得する簡単なプログラム(ボタンとリストボックス各１個ずつのプロクラム)を作成したのですが，
作成したパソコンでは問題がなくうまく行くのに，
別のパソコンに，実行ファイル等もしくはソルーション一式を移して，実行すると，エラーが出ます
(なお，VisualStudio２００５で作成しました。)

これでは，アプリの意味がありません


どうしたらよいか，ご教授お願いできませんでしょうか。

どうぞ宜しくお願いいたします。

はつね様，ありがとうございました。
お聞きして良かったです。


以下のとおりで，上手くいきました。
メッセージボックスに，dInfo.Nameを引っ張ってくれば，どのドライブが準備できていないかも表示できました。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            listBox1.Items.Clear();
            listBox1.Items.Add("DRIVE\t\tREADY?\t\tTYPE\t\tFREESPACE\t\tTOTALSPACE\t\tFORMAT");
            listBox1.Items.Add("-------------------------------------------------------------------------------------------------------------------");

            foreach (System.IO.DriveInfo dInfo
                in System.IO.DriveInfo.GetDrives())
            {
                try
                {
                double ts = Math.Round((double) dInfo.TotalSize / 1000000, 2);
                double tfs = Math.Round((double)dInfo.TotalFreeSpace / 1000000, 2);
                    listBox1.Items.Add
                        (
                        dInfo.Name + "\t\t"
                        + dInfo.IsReady + "\t\t"
                        + dInfo.DriveType.ToString() + "\t\t"
                        + tfs.ToString() + "MB \t\t"
                        + ts.ToString() + "MB \t\t"
                        + dInfo.DriveFormat.ToString()
                        );
                }
                catch (Exception)
                {
                    MessageBox.Show(dInfo.Name + "ドライブの準備ができていません。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Information);
                }

            }
        }
    }
}

お世話になります。

Vs2005のASP.NETを学習しております。
現在グリッドビューコントロールに、SQLデータソースコントロールを関連付けて、Oracleデータベースよりテーブルの項目を取得しました。
グリッドビューコントロールはコントロール機能として、更新・削除・追加もコードレスで行えるような仕組みになっているのですが、
更新を行い実行したら、下記のエラーが表示されてしまいました。


'/WebSite4' アプリケーションでサーバー エラーが発生しました。
--------------------------------------------------------------------------------

ORA-12704: キャラクタ・セットが一致しません。

説明: 現在の Web 要求を実行中に、ハンドルされていない例外が発生しました。エラーに関する詳細および例外の発生場所については、スタック トレースを参照してください。 

例外の詳細: System.Data.OracleClient.OracleException: ORA-12704: キャラクタ・セットが一致しません。


ソース エラー: 

現在の Web 要求の実行中にハンドルされていない例外が生成されました。障害の原因および発生場所に関する情報については、下の例外スタック トレースを使って確認できます。  

スタック トレース: 


[OracleException (0x80131938): ORA-12704: キャラクタ・セットが一致しません。
]
   System.Data.OracleClient.OracleConnection.CheckError(OciErrorHandle errorHandle, Int32 rc) +166
   System.Data.OracleClient.OracleCommand.Execute(OciStatementHandle statementHandle, CommandBehavior behavior, Boolean needRowid, OciRowidDescriptor& rowidDescriptor, ArrayList& resultParameterOrdinals) +1719
   System.Data.OracleClient.OracleCommand.ExecuteNonQueryInternal(Boolean needRowid, OciRowidDescriptor& rowidDescriptor) +503
   System.Data.OracleClient.OracleCommand.ExecuteNonQuery() +125
   System.Web.UI.WebControls.SqlDataSourceView.ExecuteDbCommand(DbCommand command, DataSourceOperation operation) +493
   System.Web.UI.WebControls.SqlDataSourceView.ExecuteUpdate(IDictionary keys, IDictionary values, IDictionary oldValues) +915
   System.Web.UI.DataSourceView.Update(IDictionary keys, IDictionary values, IDictionary oldValues, DataSourceViewOperationCallback callback) +179
   System.Web.UI.WebControls.DetailsView.HandleUpdate(String commandArg, Boolean causesValidation) +1197
   System.Web.UI.WebControls.DetailsView.HandleEvent(EventArgs e, Boolean causesValidation, String validationGroup) +545
   System.Web.UI.WebControls.DetailsView.OnBubbleEvent(Object source, EventArgs e) +162
   System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +56
   System.Web.UI.WebControls.DetailsViewRow.OnBubbleEvent(Object source, EventArgs e) +117
   System.Web.UI.Control.RaiseBubbleEvent(Object source, EventArgs args) +56
   System.Web.UI.WebControls.LinkButton.OnCommand(CommandEventArgs e) +107
   System.Web.UI.WebControls.LinkButton.RaisePostBackEvent(String eventArgument) +175
   System.Web.UI.WebControls.LinkButton.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +31
   System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +32
   System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +244
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +3840

 


--------------------------------------------------------------------------------
バージョン情報: Microsoft .NET Framework バージョン:2.0.50727.832; ASP.NET バージョン:2.0.50727.832 


もしかしたら当たり前のことなのかもしれませんが、私には原因が掴めず困ってしまいました。
何かしらのヒントを教えて頂けたら幸いです。

どうか宜しくお願い致します。

お世話になっております
お聞きしたいのはUpdateCommandの中身なのですが

元々はこうなっていて、正しく動作していたのです。
UPDATE [user] SET [company] = @company, [name] = @name, [age] = @age WHERE [UserId] = @original_UserId"                

しかしもう１つ別のテーブルデータも更新したくなりました。
UPDATE [mailinfo] SET [Email] = @Email WHERE [UserId] = @original_UserId

別々であれば正しく動きます。
そこでストアドプロシージャを以下のようにして、

-------------------
CREATE PROCEDURE SP_userupdate

	@UpUserID   uniqueidentifier,
	@company   nvarchar(50),
	@name   nvarchar(50),
	@age   nvarchar(50),
	@Email  nvarchar(256)

AS
BEGIN

BEGIN TRANSACTION	

UPDATE [user] SET [company] = @company, [name] = @name, [age] = @age WHERE [UserId] = @UpUserID
UPDATE [mailinfo] SET [Email] = @Email WHERE [UserId] = @UpUserID

COMMIT TRANSACTION
	
END
GO
-------------------

UpdateCommandの中身の部分を
EXEC SP_ユーザ情報更新 @original_UserId, @company, @name, @age, @Email

にしたところエラーが出ました。
「sql_variant データ型から uniqueidentifier データ型への暗黙的な変換は許可されません。
このクエリを実行するには、CONVERT 関数を使います。」

そこで
EXEC SP_userupdate CONVERT(uniqueidentifier, @original_UserId), @company, @name, @age, @Email
もしくは
EXEC  SP_userupdate CAST (@original_UserId AS uniqueidentifier), @company, @name, @age, @Email
と書き換えてみましたが、どちらも動きませんでした。

どんな小さなことでも構いませんのでご指摘頂けませんでしょうか
よろしくお願いします。

お世話になっております。

Formから起動させたコマンドプロンプトを常に最前面に表示しようとしています。

下記のような場合はコマンドプロンプトは常に最前面に表示させることは可能なの
でしょうか？
ご教授、アドバイス等宜しくお願いします。
（.NET 2005 C#使用して開発しています。）

---------------------------------
Form1にForm2とコマンドプロンプトを起動させるボタンがあり、Form2はTopMostの
プロパティをtrueに設定していています。
Form2を起動後、Form1からコマンドプロンプトを起動させます。この時にコマンド
プロンプトを最前面に表示させたいと思っています。

//Form1
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Form2 f2 = new Form2();
            f2.Show();
        }

        private void button2_Click(object sender, EventArgs e)
        {
            System.Diagnostics.Process.Start("cmd");
        }
        
        
//Form2
        public Form2()
        {
            InitializeComponent();
            this.TopMost = true;
        }