.NET関連

Oracle - Visual Studio and .NET Feature Requests

がんふぃーるど(ganfield@wankuma.com) — Mon, 27 Dec 2010 07:06:00 GMT

Oracleに追加機能要求をできるページを発見。

New Visual Studio and .NET Feature Request Tool - Vote for your Favorite Features!

見たところEntity Frameworkとシンドライバ（ODP.NET）はすでに2011年の計画に入っていたので、その下にあった「Support for Visual Studio Database Project」に一票投じておきました。SQL Serverではすでにありますが、データベースとプロジェクト間で構造を比較して差異を吸収するスクリプトを吐いてくれる機能は、開発時に重宝します。Visual Studio 2010ではPremium以上にしか付いてきませんが。

.NET Framework 4のメール送信機能

がんふぃーるど(ganfield@wankuma.com) — Tue, 21 Sep 2010 22:35:00 GMT

一時期、DocomoやauでRCFに準拠していないメールアドレスが送信できないといった問題がありましたが、.NET Framework 4のSystem.Net.Mailでは送信できるようになっているんですね。

MSDNのSystem.Net.Mail.MailAddressクラスの説明でも、「ユーザー名内の連続ドットと末尾のドット」が使用可能なメールアドレスの形式として明記されています。
http://msdn.microsoft.com/ja-jp/library/system.net.mail.mailaddress.aspx

実際にRadishというSMTP/POP3サーバを立てて試してみましたが、.NET Framework 4ではうまくいきました。（当然.NET Framework 2.0ではダメでした。）

RCFに準拠していないメールアドレスを新たに登録することは既に禁止されていますが、依然そのようなメールアドレスが残っている状態なので、日本のSIerとしては非常に助かります。
http://www.nttdocomo.co.jp/info/spam_mail/measure/change_add/
http://www.au.kddi.com/service/email/support/meiwaku/email_boshi/mail_address.html

ちなみに、SmtpClientにも変更があり、SmtpClientクラスが新たにIDisposableを実装しています。MSDNの説明を見るとFinalizeメソッドが無いのでしっかりとDisposeを呼び出してアンマネージリソースを解放する必要があるそうな。
http://msdn.microsoft.com/ja-jp/library/system.net.mail.smtpclient.aspx

NHibernate.Linqでデータアクセス - Eager Loading編

がんふぃーるど(ganfield@wankuma.com) — Wed, 23 Sep 2009 02:10:00 GMT

前回に続いてNHibernate.Linqの続き。

NHibernateは構成情報でFactoryの設定をちゃんと行えば、NHibernateのセッション内でLazy Loadingを行います。ただしセッション外ではLazy Loadingが効かないので、データをロードしていないプロパティにアクセスすると、例外が発生してしまいます。これを解消するために、予めデータを読み込んでおくEager Loadingを行います。

NHibernate.LinqでEager Loading

NHibernate.LinqのメソッドExpand(string)を使用します。機能としてはEntity FrameworkのInclude(string)とほぼ同じです。加えて、INHibernateQueryable.QueryOptions.RegisterCustomActionメソッドを使用して、内部のCriteriaオブジェクトにDistinctRootEntityResultTransformerを使用するように設定します。Transformerを設定しない場合、1:Nの関連にあるオブジェクトをEager Loadingすると返却されるルートオブジェクトのカーディナリティがN側に引きずられてしまいます。

例えば、EmployeeID=1の従業員(Employees)の管轄区域（Territories）が3つある場合、従業員(Employees)オブジェクトをルートオブジェクトとし、管轄区域(Territories)オブジェクトをEager LoadingしようとするとEmployeeID=1のEmployeesオブジェクトが3つ返ってきてしまいます。本来、EmployeeID=1のEmployeesオブジェクトは1つ返ってくるだけでよいので、この部分の挙動を変更するためのDistinctRootEntityResultTransformerを設定します。

private IList GetEmployeesWithEagerLoading(decimal departmentId)
{
    using (ISession session = factory.OpenSession())
    {
        var empQuery = session.Linq();
        empQuery.QueryOptions.RegisterCustomAction(s => s.SetResultTransformer(new NHibernate.Transform.DistinctRootEntityResultTransformer()));

        var empList = from emps in empQuery.Expand("ListEmployeeterritories")
                      where emps.Department.Departmentid == departmentId
                      select emps;

        return empList.ToList();
    }
}

Transformerを指定しないとダメってのが意外に忘れがちですが、全然難しくないですよね。

NHibernate.Linqでデータアクセス

がんふぃーるど(ganfield@wankuma.com) — Tue, 22 Sep 2009 00:06:00 GMT

NHibernate.Linq 1.0.0 GA が2カ月ほど前にリリースされました。リファレンス読んでから記事にしようかな～と思いつつ、早2ヶ月。リファレンスが来ない！＞＜

NHibernateは、Linqを実装しているORMの中でも、複数のデータベースに対応しつつ、Native SQLを発行できる数少ないORMです。Linqとは若干離れますが、動的にSQLを組む必要があるとき（表示するデータは少ないけど、データを絞り込むために必要なデータが広大な場合など）のパフォーマンスチューニングがやり易いので、日本語ドキュメントが少ないながらも使えるんじゃないかと思っています。日本語ドキュメントがほしければ、本家Hibernateのものならかなりあるし。

せっかくなので、NHibernate.LinqのソースのTestプロジェクトを参考にしつつ、Oracleでざっくり試用してみました。

NHibernate.Linq概要

Criteria APIにマップしているだけみたいなので、Criteria APIにできることは大体できるようです。（ということは、1:Nのマッピングなども大丈夫なはず）

テーブル

Database Modelling Excelを使用して作成。FKも定義できるから楽ですよね。テーブル定義書という、ドキュメントとしては足りないものがいくつかあるがががが。

CREATE TABLE Employees (
   EmployeeID number(10,0) NOT NULL 
  ,LastName varchar2(50) NOT NULL 
  ,FirstName varchar2(50) NOT NULL 
  ,DepartmentID number(4,0) NOT NULL 
  ,SupervisorID number(10,0) NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE Employees ADD CONSTRAINT PK_Employees PRIMARY KEY (EmployeeID);

CREATE TABLE EmployeeTerritories (
   EmployeeTerritoryID number(10,0) NOT NULL 
  ,EmployeeID number(10,0) NOT NULL 
  ,TerritoryID number(10,0) NOT NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE EmployeeTerritories ADD CONSTRAINT PK_EmployeeTerritories PRIMARY KEY (EmployeeTerritoryID);

CREATE TABLE Territories (
   TerritoryID number(10,0) NOT NULL 
  ,TerritoryDescription varchar2(50) NOT NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE Territories ADD CONSTRAINT PK_Territories PRIMARY KEY (TerritoryID);

CREATE TABLE EmployeeResume (
   EmployeeResumeID number(10,0) NOT NULL 
  ,ResumeDescription varchar2(50) NOT NULL 
  ,EmployeeID number(10,0) NOT NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE EmployeeResume ADD CONSTRAINT PK_EmployeeResume PRIMARY KEY (EmployeeResumeID);

CREATE TABLE EmployeeCerts (
   EmployeeCertID number(10,0) NOT NULL 
  ,CertificationName varchar2(50) NOT NULL 
  ,EmployeeID number(10,0) NOT NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE EmployeeCerts ADD CONSTRAINT PK_EmployeeCerts PRIMARY KEY (EmployeeCertID);

CREATE TABLE EmployeeCertDetails (
   EmployeeCertDetailID number(10,0) NOT NULL 
  ,ExamName varchar2(50) NOT NULL 
  ,EmployeeCertID number(10,0) NOT NULL 
  ,ExamDate Date NOT NULL 
  ,IsPassed Number(1,0) NOT NULL 
  ,ExamFee Number(8,0) NOT NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE EmployeeCertDetails ADD CONSTRAINT PK_EmployeeCertDetails PRIMARY KEY (EmployeeCertDetailID);

CREATE TABLE Departments (
   DepartmentID number(10,0) NOT NULL 
  ,DepartmentName varchar2(50) NOT NULL 
  ,LastModifiedDate timestamp(9) NOT NULL 
  ,LastModifiedUser varchar2(20) NOT NULL 
);
ALTER TABLE Departments ADD CONSTRAINT PK_Departments PRIMARY KEY (DepartmentID);

ALTER TABLE Employees ADD CONSTRAINT FK_Employees_SupervisorID
  FOREIGN KEY (SupervisorID) REFERENCES Employees(EmployeeID);
ALTER TABLE Employees ADD CONSTRAINT FK_Employees_DepartmentID
  FOREIGN KEY (DepartmentID) REFERENCES Departments(DepartmentID);

ALTER TABLE EmployeeTerritories ADD CONSTRAINT FK_EmployeeTerritories_Emp0000
  FOREIGN KEY (EmployeeID) REFERENCES Employees(EmployeeID);
ALTER TABLE EmployeeTerritories ADD CONSTRAINT FK_EmployeeTerritories_Ter0000
  FOREIGN KEY (TerritoryID) REFERENCES Territories(TerritoryID);

ALTER TABLE EmployeeResume ADD CONSTRAINT FK_EmployeeResume_EmployeeID
  FOREIGN KEY (EmployeeID) REFERENCES Employees(EmployeeID);

ALTER TABLE EmployeeCerts ADD CONSTRAINT FK_EmployeeCerts_EmployeeID
  FOREIGN KEY (EmployeeID) REFERENCES Employees(EmployeeID);

ALTER TABLE EmployeeCertDetails ADD CONSTRAINT FK_EmployeeCertDetails_Emp0000
  FOREIGN KEY (EmployeeCertID) REFERENCES EmployeeCerts(EmployeeCertID);

今回試用するのはEmployeesテーブルとDepartmentsテーブルのみ。そのほかのテーブルは1:Nなどのマッピングを試すために作成したもので、今回は使用していません。

エンティティ

コードはMyGeneration1.3のNHibernate Object Mapping 1.3.1テンプレートを使って自動生成したものを修正して使用しています。

Employees.cs

using System;
using System.Collections;
using System.Collections.Generic;

namespace NHSampleEntity.Entities
{
	/// 
	/// Generated by MyGeneration using the NHibernate Object Mapping 1.3.1 by Grimaldi Giuseppe (giuseppe.grimaldi@infracom.it)
	/// 
	[Serializable]
	public class Employees 
	{
		#region Private Members
		
		// Variabili di stato
		private bool _isChanged;
		private bool _isDeleted;

		// Primary Key(s) 
		private decimal _employeeid; 
		
		// Foreign Keys mappate come Many-To-One 
		private Departments _departmentid; 
		private Employees _supervisorid; 
		
		// Properties 
		private string _lastname; 
		private string _firstname; 
		private DateTime _lastmodifieddate; 
		private string _lastmodifieduser; 
		
		// One-to-many relations 
		private IList _listEmployeecerts;
		private IList _listEmployeeresume;
		private IList _listEmployees;
		private IList _listEmployeeterritories;		

		#endregion
		
		#region Default ( Empty ) Class Constructor
		
		/// 
		/// default constructor
		/// 
		public Employees()
		{
			_employeeid = 0; 
			_departmentid = null; 
			_supervisorid = null; 
			_lastname = null; 
			_firstname = null; 
			_lastmodifieddate = DateTime.MinValue; 
			_lastmodifieduser = null; 
			_listEmployeecerts = null; 
			_listEmployeeresume = null; 
			_listEmployees = null; 
			_listEmployeeterritories = null; 
		}
		
		#endregion // End of Default ( Empty ) Class Constructor
		
		#region Full Constructor
		
		/// 
		/// full constructor
		/// 
		public Employees(decimal employeeid, Departments departmentid, Employees supervisorid, string lastname, string firstname, DateTime lastmodifieddate, string lastmodifieduser)
		{
			_employeeid = employeeid; 
			_departmentid = departmentid; 
			_supervisorid = supervisorid; 
			_lastname = lastname; 
			_firstname = firstname; 
			_lastmodifieddate = lastmodifieddate; 
			_lastmodifieduser = lastmodifieduser; 
			_listEmployeecerts = null; 
			_listEmployeeresume = null; 
			_listEmployees = null; 
			_listEmployeeterritories = null; 
		}
		
		#endregion // End Full Constructor
		
		#region Required Fields Only Constructor
		
		/// 
		/// required (not null) fields only constructor
		/// 
		public Employees(decimal employeeid, Departments departmentid, string lastname, string firstname, DateTime lastmodifieddate, string lastmodifieduser)
		{
			_employeeid = employeeid; 
			_departmentid = departmentid; 
			_supervisorid = null; 
			_lastname = lastname; 
			_firstname = firstname; 
			_lastmodifieddate = lastmodifieddate; 
			_lastmodifieduser = lastmodifieduser; 
			_listEmployeecerts = null; 
			_listEmployeeresume = null; 
			_listEmployees = null; 
			_listEmployeeterritories = null; 
		}
		
		#endregion // End Required Fields Only Constructor

		#region Public Properties
			
		/// 
		/// 
		/// 		
		public virtual decimal Employeeid
		{
			get { return _employeeid; }
			set { _isChanged |= (_employeeid != value); _employeeid = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual Departments Department
		{
			get { return _departmentid; }
			set { _isChanged |= (_departmentid != value); _departmentid = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual Employees Supervisor
		{
			get { return _supervisorid; }
			set { _isChanged |= (_supervisorid != value); _supervisorid = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual string Lastname
		{
			get { return _lastname; }
			set	
			{
				if ( value != null )
					if( value.Length > 50)
						throw new ArgumentOutOfRangeException("Invalid value for Lastname", value, value.ToString());
				
				_isChanged |= (_lastname != value); _lastname = value;
			}
		} 
	  
		/// 
		/// 
		/// 		
		public virtual string Firstname
		{
			get { return _firstname; }
			set	
			{
				if ( value != null )
					if( value.Length > 50)
						throw new ArgumentOutOfRangeException("Invalid value for Firstname", value, value.ToString());
				
				_isChanged |= (_firstname != value); _firstname = value;
			}
		} 
	  
		/// 
		/// 
		/// 		
		public virtual DateTime Lastmodifieddate
		{
			get { return _lastmodifieddate; }
			set { _isChanged |= (_lastmodifieddate != value); _lastmodifieddate = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual string Lastmodifieduser
		{
			get { return _lastmodifieduser; }
			set	
			{
				if ( value != null )
					if( value.Length > 20)
						throw new ArgumentOutOfRangeException("Invalid value for Lastmodifieduser", value, value.ToString());
				
				_isChanged |= (_lastmodifieduser != value); _lastmodifieduser = value;
			}
		} 
	  
		/// 
		/// 
		/// 		
		public virtual IList ListEmployeecerts
		{
			get { return _listEmployeecerts; }
			set { _isChanged |= (_listEmployeecerts != value); _listEmployeecerts = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual IList ListEmployeeresume
		{
			get { return _listEmployeeresume; }
			set { _isChanged |= (_listEmployeeresume != value); _listEmployeeresume = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual IList ListEmployees
		{
			get { return _listEmployees; }
			set { _isChanged |= (_listEmployees != value); _listEmployees = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual IList ListEmployeeterritories
		{
			get { return _listEmployeeterritories; }
			set { _isChanged |= (_listEmployeeterritories != value); _listEmployeeterritories = value; }
		} 
	  
		/// 
		/// Returns whether or not the object has changed it's values.
		/// 
		public virtual bool IsChanged
		{
			get { return _isChanged; }
		}
		
		/// 
		/// Returns whether or not the object has changed it's values.
		/// 
		public virtual bool IsDeleted
		{
			get { return _isDeleted; }
		}
		
		#endregion 
		
		#region Public Functions

		/// 
		/// mark the item as deleted
		/// 
		public virtual void MarkAsDeleted()
		{
			_isDeleted = true;
			_isChanged = true;
		}
		
		#endregion
	}
}

Departments.cs

using System;
using System.Collections;
using System.Collections.Generic;

namespace NHSampleEntity.Entities
{
	/// 
	/// Generated by MyGeneration using the NHibernate Object Mapping 1.3.1 by Grimaldi Giuseppe (giuseppe.grimaldi@infracom.it)
	/// 
	[Serializable]
	public class Departments 
	{
		#region Private Members
		
		// Variabili di stato
		private bool _isChanged;
		private bool _isDeleted;

		// Primary Key(s) 
		private decimal _departmentid; 
		
		// Properties 
		private string _departmentname; 
		private DateTime _lastmodifieddate; 
		private string _lastmodifieduser; 
		
		// One-to-many relations 
		private IList _listEmployees;		

		#endregion
		
		#region Default ( Empty ) Class Constructor
		
		/// 
		/// default constructor
		/// 
		public Departments()
		{
			_departmentid = 0; 
			_departmentname = null; 
			_lastmodifieddate = DateTime.MinValue; 
			_lastmodifieduser = null; 
			_listEmployees = null; 
		}
		
		#endregion // End of Default ( Empty ) Class Constructor
		
		#region Full Constructor
		
		/// 
		/// full constructor
		/// 
		public Departments(decimal departmentid, string departmentname, DateTime lastmodifieddate, string lastmodifieduser)
		{
			_departmentid = departmentid; 
			_departmentname = departmentname; 
			_lastmodifieddate = lastmodifieddate; 
			_lastmodifieduser = lastmodifieduser; 
			_listEmployees = null; 
		}
		
		#endregion // End Full Constructor

		#region Public Properties
			
		/// 
		/// 
		/// 		
		public virtual decimal Departmentid
		{
			get { return _departmentid; }
			set { _isChanged |= (_departmentid != value); _departmentid = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual string Departmentname
		{
			get { return _departmentname; }
			set	
			{
				if ( value != null )
					if( value.Length > 50)
						throw new ArgumentOutOfRangeException("Invalid value for Departmentname", value, value.ToString());
				
				_isChanged |= (_departmentname != value); _departmentname = value;
			}
		} 
	  
		/// 
		/// 
		/// 		
		public virtual DateTime Lastmodifieddate
		{
			get { return _lastmodifieddate; }
			set { _isChanged |= (_lastmodifieddate != value); _lastmodifieddate = value; }
		} 
	  
		/// 
		/// 
		/// 		
		public virtual string Lastmodifieduser
		{
			get { return _lastmodifieduser; }
			set	
			{
				if ( value != null )
					if( value.Length > 20)
						throw new ArgumentOutOfRangeException("Invalid value for Lastmodifieduser", value, value.ToString());
				
				_isChanged |= (_lastmodifieduser != value); _lastmodifieduser = value;
			}
		} 
	  
		/// 
		/// 
		/// 		
		public virtual IList ListEmployees
		{
			get { return _listEmployees; }
			set { _isChanged |= (_listEmployees != value); _listEmployees = value; }
		} 
	  
		/// 
		/// Returns whether or not the object has changed it's values.
		/// 
		public virtual bool IsChanged
		{
			get { return _isChanged; }
		}
		
		/// 
		/// Returns whether or not the object has changed it's values.
		/// 
		public virtual bool IsDeleted
		{
			get { return _isDeleted; }
		}
		
		#endregion 
		
		#region Public Functions

		/// 
		/// mark the item as deleted
		/// 
		public virtual void MarkAsDeleted()
		{
			_isDeleted = true;
			_isChanged = true;
		}
		
		#endregion
	}
}

NHibernate.Linq実行コード

using NHibertnate.Linqを一行追加して、次のコードでデータアクセス可能となります。

        private ISession _session;

        public Form1()
        {
            InitializeComponent();

            Configuration cfg = new Configuration();
            cfg.Configure(Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "hibernate.cfg.xml"));
            cfg.AddAssembly(typeof(Employees).Assembly);
            ISessionFactory factory = cfg.BuildSessionFactory();
            _session = factory.OpenSession();
        }

        private IList GetEmployees(decimal departmentId)
        {
            var empList = from emps in _session.Linq()
                          where emps.Department.Departmentid == departmentId
                          select emps;

            return empList.ToList();
        }

EmployeesのDepartmentIDが任意のEmployeesオブジェクトコレクションを返却してくれます。NHibernate本体を2.1にアップグレードできるのであれば、既存コードそのままにNHibernate.Linqを導入できます。

HQLやCriteria APIはあまり好きじゃないけど、NHibernate.Linqはええかも。VisualStudio2010であれば、EDMのコード生成機能をFluent NHibernateと組み合わせて使えばEDMをNHibernate用のDSLツールとしても利用できそうですし。夢が膨らむー。

ODP.NET 11.1.0.7.20 リリース

がんふぃーるど(ganfield@wankuma.com) — Thu, 17 Sep 2009 12:21:00 GMT

新しいODP.NET（英語）がリリースされています。日本語の方はまだ11.1.0.7.10 betaですがｗ

New .NET Features for Oracle Database
http://www.oracle.com/technology/tech/windows/odpnet/newfeatures.html

Oracle Data Access Components (ODAC) Downloads
http://www.oracle.com/technology/software/tech/windows/odpnet/index.html

Oracle Data Provider for .NET Documentation
http://www.oracle.com/technology/docs/tech/windows/odpnet/index.html

New Featureは11.1.0.7.10と変わってないように見えますね。

しかし、System Requirementsに
32-bit: Windows Vista (Business, Enterprise, and Ultimate Editions), Windows Server 2008, Windows Server 2003, Windows Server 2003 R2, Windows 2000 or Windows XP Professional Edition.
Oracle supports 32-bit ODP.NET on x86, AMD64, and Intel EM64T processors on these operating systems.

64 bit: Windows Vista x64 (Business, Enterprise, and Ultimate Editions), Windows Server 2008 x64, Windows Server 2003 x64, Windows Server 2003 R2 x64, or Windows XP x64.
Oracle supports 32-bit ODP.NET and 64-bit ODP.NET for Windows x64 on these operating systems.

やった！Windows Server 2008 x64がサポートされた！

ReportViewerコントロールでSystem.EntryPointNotFoundException

がんふぃーるど(ganfield@wankuma.com) — Wed, 26 Aug 2009 06:51:00 GMT

ASP.NETのReportViewerコントロールにて、IReportServerCredentialを実装してWindows統合認証でレポートサーバにアクセスしたら次の例外が発生

2009/08/25 11:12:39 エントリポイントが見つかりませんでした。
System.EntryPointNotFoundException
   場所 Microsoft.Reporting.WebForms.IReportServerCredentials.get_NetworkCredentials()
   場所 Microsoft.Reporting.WebForms.ServerReport.get_ServerNetworkCredentials()
   場所 Microsoft.Reporting.WebForms.ServerReport.get_Service()
   場所 Microsoft.Reporting.WebForms.ServerReport.GetExecutionInfo()
   場所 Microsoft.Reporting.WebForms.ServerReport.SetParameters(IEnumerable`1 parameters)
   場所 XXXPage.OnPreRender(EventArgs e)
   場所 System.Web.UI.Control.PreRenderRecursiveInternal()

原因は、参照しているMicrosoft.Reporting.WebForms.dllのバージョンが古い（8.0）ことでした。Visual Studio 2005で開発したときの参照がそのまま残っており、Visual Studio 2008で開発したWebアプリケーションが使用しているMicrosoft.Reporting.WebForms.dllのバージョン（9.0）と合ってませんでした。

コンパイルエラーにもならず、実行時に例外が出るもんだからバージョンが誤っていることに気づくまで、かなり時間を要しました。「プロパティのGetterでエラーって何？」なんてことを無駄に深読みしつつ数時間・・・ははは（自嘲気味ｗ

Team Foundation Serverの作業項目の高さを調整

がんふぃーるど(ganfield@wankuma.com) — Fri, 31 Jul 2009 06:43:00 GMT

作業項目のコントロールの高さを指定する方法です。独自の作業項目を作成していたら、TFS 2005とTFS 2008で異なっていた、というかTFS 2005の場合はドキュメントに記載されていない、のでメモ書き程度に。

TFS 2008の場合

括弧あり

TFS 2005の場合

括弧なし

MinimumSizeがMSDNのマニュアルに記載されたのはTFS 2008からですが、TFS 2005でも使用することはできます。ただし、記法に若干の違いが見られる通り、使用は自己責任で。また、TFS 2005⇒TFS 2008移行時にプロセステンプレートをアップロードしてMinimumSize関連でエラーが出たら、疑ってみてください。

参考

Control 要素 (作業項目の種類の定義スキーマ)

Undocumented attributes for controlling the Work Item form layout

Merge文とExecuteNonQueryとSQLServerとOracle 時々バグ？回避策

がんふぃーるど(ganfield@wankuma.com) — Mon, 25 May 2009 21:37:00 GMT

とある戦国時代の武将がこう言ってました。

鳴かぬのなら、~~殺してしまおう~~鳴かせて見せよう、とほほぎす

色々と引用文に間違いがありますが、前回と前々回の続きです。

まず、他のバージョンの組み合わせに関してですが、前回のコメントでやじゅさんがおっしゃった通り、どうもODP.NET 10.2でも発生するみたいです。

Merge文使われてないのかな～なんて思いつつも、Oracleの対応を待つのも何なので、回避策を書いておこうと思います。

回避策：大人しくSystem.Data.OracleClientを使用する

半分冗談です＾＾

次が本当の回避策です。

本当の回避策：無名ブロックとRAISE_APPLICATION_ERRORを使用する

無名ブロックというのは、ストアドされないただのプロシージャで、BEGIN～ENDで囲まれているPL/SQLです。

考え方として、次のような感じになります。

無名ブロック内でMerge文を発行
SQL%ROWCOUNTが0であれば、楽観ロック発生としRAISE_APPLICATION_ERRORで例外を挙げる

最後にある「RAISE_APPLICATION_ERROR」は、開発者が任意のSQLCODE（いわゆるORA-XXXXXのXXXXX部分）と任意のメッセージを返すことができるものです。

RAISE_APPLICATION_ERRORについては「SHIFT the Oracle」内の「RAISE_APPLICATION_ERROR」に分かり易く解説されています。

ということで、SQL

BEGIN
  --MERGE実行
  MERGE INTO MergeTable Target
  USING (SELECT :key1 Key1, :col1 Col1, :col2 Col2, :optLock OptLock
    FROM DUAL) InputSrc
  ON (Target.Key1 = InputSrc.Key1)
  WHEN MATCHED THEN
    UPDATE SET
      Col1 = InputSrc.Col1
      , Col2 = InputSrc.Col2
    WHERE Target.OptLock = InputSrc.OptLock
  WHEN NOT MATCHED THEN
    INSERT (Key1, Col1, Col2, OptLock)
      VALUES (InputSrc.Key1, InputSrc.Col1, InputSrc.Col2, systimestamp);

  --件数チェック（楽観ロックに引っかかった場合は0）
  IF SQL%ROWCOUNT = 0 THEN
    RAISE_APPLICATION_ERROR(-20801, '楽観的過ぎて更新できませんでした＞＜');
  END IF;
END;

18行目の-20801ですが、この部分がOracleException.Numberに入ってきます。ただし、.NET側では正の数で入ってくるので、OracleException.Numberが20801のときに、OptimisticConcurrencyExceptionにラップするなりなんなりして下さい。

ちなみに、ORA-20000～ORA-20999がユーザ定義のSQLCODEとしてOracleが許可している範囲ですが、他のOracleのアプリケーションでも使用されています。実際、ORA-20000あたりがOracleTextを使用していたときに発生した記憶があります。

SHIFT the Oracleの説明にもありますが、ORA-20000～ORA-20999がユーザ定義のSQLCODEとして許可されているものの、被らないという保証は一切ありません。なので、仕事で使用する場合はMessageの部分に独自のエラーコードを付与し、.NET側ではOracleException.Numberと共にOracleException.Messageも同様に調べ、適切に処理する方が良いと思います。

コード

const string sql
= @"BEGIN
  --MERGE実行
  MERGE INTO MergeTable Target
  USING (SELECT :key1 Key1, :col1 Col1, :col2 Col2, :optLock OptLock
    FROM DUAL) InputSrc
  ON (Target.Key1 = InputSrc.Key1)
  WHEN MATCHED THEN
    UPDATE SET
      Col1 = InputSrc.Col1
      , Col2 = InputSrc.Col2
    WHERE Target.OptLock = InputSrc.OptLock
  WHEN NOT MATCHED THEN
    INSERT (Key1, Col1, Col2, OptLock)
      VALUES (InputSrc.Key1, InputSrc.Col1, InputSrc.Col2, systimestamp);

  --件数チェック（楽観ロックに引っかかった場合は0）
  IF SQL%ROWCOUNT = 0 THEN
    RAISE_APPLICATION_ERROR(-20801, 'ERR-001:楽観的過ぎて更新できませんでした＞＜');
  END IF;
END;";

private void ExecuteMergeSql()
{
    OracleConnection conn = new OracleConnection("user id=xxx;password=yyy;data source=zzz");
    try
    {
        conn.Open();
        OracleCommand command = conn.CreateCommand();
        command.BindByName = true;
        command.CommandText = sql.Replace("\r", ""); //CRLFをLFだけに修正
        command.Parameters.Add(new OracleParameter("key1", 4));
        command.Parameters.Add(new OracleParameter("col1", "aaa"));
        command.Parameters.Add(new OracleParameter("col2", "bbb"));
        command.Parameters.Add(new OracleParameter("optLock", DateTime.Now));

        command.ExecuteNonQuery();
    }
    catch (OracleException oex)
    {
        if (oex.Number == 20801)
        {
            // ここで楽観ロックエラーを処理
        }
        else
        {
            throw;
        }
    }
    finally 
    {
        conn.Close();
    }
}

最後に、Oracleで無名ブロックを使用する場合の注意点ですが、環境によってBEGIN～ENDの間の改行コードをLFだけにしなければならない場合があります。（31行目の部分）

これを行わないと、次のようなエラーが表示されます。

Oracle.DataAccess.Client.OracleException ORA-06550: 行1、列6:
PLS-00103: 記号""が見つかりました。次のうちの1つが入るとき:
begin case declare exit for goto if loop mod null pragma
raise return select update while with ＜an identifier＞
＜a double-quoted delimited-identifier＞＜a bind variable＞＜＜
close current delete fetch lock insert open rollback
savepoint set sql execute commit forall merge pipe
場所 Oracle.DataAccess.Client.OracleException.HandleErrorHelper(Int32 errCode, OracleConnection conn, IntPtr opsErrCtx, OpoSqlValCtx* pOpoSqlValCtx, Object src, String procedure)
場所 Oracle.DataAccess.Client.OracleException.HandleError(Int32 errCode, OracleConnection conn, String procedure, IntPtr opsErrCtx, OpoSqlValCtx* pOpoSqlValCtx, Object src)
場所 Oracle.DataAccess.Client.OracleCommand.ExecuteNonQuery()
場所 WindowsFormsApplication3.Form1.button1_Click(Object sender, EventArgs e)
場所 C:\Users\ganfield\Documents\Visual Studio 2008\Projects\WindowsFormsApplication3\WindowsFormsApplication3\Form1.cs:行 58

英語の内容だけでは何を言っているのか分かりませんｗ

検証が面倒で、何故CRが許可されたりされなかったりするのか調べていません。なので、未だに原因不明。

無名ブロックを書くときだけの注意点なので、上記のエラーが発生したCRを削ればいい、ぐらいに考えても良いと思います。

と、以上が回避策となります。これでMerge文もOracleで楽観ロック形式の同時実行制御付きで実行することができます。

ま、例外があがったりするので、DBのファクトリクラスなどを使用して抽象的に処理することはできませんので、若干とほほな感じもしますが…

Merge文とExecuteNonQueryとSQLServerとOracle 時々バグ？

がんふぃーるど(ganfield@wankuma.com) — Sat, 23 May 2009 19:02:00 GMT

前回のブログで、やじゅさんからODP側のバグじゃないかって話があがったので、一旦動作をまとめました。今回はODP.NETだけでなく、System.Data.OracleClientも含んでいます。

ちなみに、ODP.NETのマニュアルではExecuteNonQueryについて、次のように述べています。

XmlCommandTypeおよびCommandTextプロパティを使用してSQL文またはコマンドを実行し、影響を受ける行数を戻します

更新していなくても、更新していても、ExecuteNonQueryメソッドから「-1」が返ってきている時点でかなりアウトくさいです。つーかアウトですよね。影響を受けた行数が負ってどういうことじゃ！逆にこっちが影響受けた！？ｿﾝﾅﾊﾞｶﾅ

DDLとコード

1. テーブル

CREATE TABLE MERGETABLE
(
  KEY1 NUMBER(6,0),
  COL1 VARCHAR2(50),
  COL2 VARCHAR2(50),
  OPTLOCK TIMESTAMP(9),
  CONSTRAINT MERGETABLE_PK PRIMARY KEY (KEY1)
)

2. ソースコード

// Merge文
const string sql
= @"MERGE INTO MergeTable Target
USING (SELECT :key1 Key1, :col1 Col1, :col2 Col2, :optLock OptLock
  FROM DUAL) InputSrc
ON (Target.Key1 = InputSrc.Key1)
WHEN MATCHED THEN
  UPDATE SET
    Col1 = InputSrc.Col1
    , Col2 = InputSrc.Col2
  WHERE Target.OptLock = InputSrc.OptLock
WHEN NOT MATCHED THEN
  INSERT (Key1, Col1, Col2, OptLock)
    VALUES (InputSrc.Key1, InputSrc.Col1, InputSrc.Col2, systimestamp)
";

// Merge文実行
private int ExecuteMergeSql()
{
    using (OracleConnection conn = new OracleConnection("user id=xxx;password=yyy;data source=zzz"))
    {
        conn.Open();
        OracleCommand command = conn.CreateCommand();
        command.BindByName = true;
        command.CommandText = sql;
        command.Parameters.Add(new OracleParameter("key1", 2));
        command.Parameters.Add(new OracleParameter("col1", "aaa"));
        command.Parameters.Add(new OracleParameter("col2", "bbb"));
        command.Parameters.Add(new OracleParameter("optLock", DateTime.Now));

        int result = command.ExecuteNonQuery();
        return result;
    }
}

上記のソースコードはODP.NETのものです。System.Data.OracleClientを使用する場合は、BindByNameの一行をコメントアウトして下さい。

実行結果

クライアント	サーバ	結果	備考
System.Data.SqlClient	SQLServer2008	○
System.Data.OracleClient	OracleXE	○
〃	Oracle11g	○
ODP.NET(2.111.6.20)	OracleXE	×	-1が返却される。
〃	Oracle11g	×	-1が返却される。

なんとSystem.Data.OracleClientは正しく動いている。というか、ODP.NETの独り負けのように見える…

何度かMerge文の記述方法を変えたりしましたが、全てアウト。ちょっと残念だー。

ほかの環境を試せたら良かったのですが、手元の環境ではこれが精一杯でした。とりあえずOracleに一報入れておきます。

Merge文とExecuteNonQueryとSQLServerとOracle

がんふぃーるど(ganfield@wankuma.com) — Sat, 23 May 2009 00:19:00 GMT

Merge文って？

Merge文はSQL Serverでは2008より、Oracleでは9iぐらいから実装されたSQL構文です。

機能としては、Insert OR Update（存在しなければInsert,存在すればUpdate）、もしくは、Insert OR Update OR Delete（存在しなければInsert,存在すればUpdate OR Delete）を行ってくれます。

ちなみに、SQL ServerとOracleではMerge文の構文が少し違ったりします。Merge文自体SQL2003から追加された標準なのですが、Oracleは以前から実装している関係上、下位互換が必要（Update時にWhere句を付与可能とか）ですし、SQL ServerはSQL Serverで独自の拡張（WHEN MATCHED のあとにANDコンディション付与可能とか）をしています。

差異があるとはいえ、ほぼ同じような構文ですし、今回はExecuteNonQueryにおける違いを説明するので、あんまそっちのほうは詳しく述べません。

ExecuteNonQueryの何が違うの？

まずは次のSQLを用意します。

1. SQL Server 2008用のMerge文

MERGE INTO MergeTable as Target
USING (VALUES(@key1, @col1, @col2, @optLock))
  as InputSrc (Key1, Col1, Col2, OptLock)
ON Target.Key1 = InputSrc.Key1
WHEN MATCHED AND Target.OptLock = InputSrc.OptLock THEN
  UPDATE SET
    Col1 = InputSrc.Col1
    , Col2 = InputSrc.Col2
WHEN NOT MATCHED THEN
  INSERT (Key1, Col1, Col2)
    VALUES (InputSrc.Key1, InputSrc.Col1, InputSrc.Col2);

2. Oracle用のMerge文

MERGE INTO MergeTable Target
USING (SELECT :key1 Key1, :col1 Col1, :col2 Col2, :optLock OptLock
  FROM DUAL) InputSrc
ON (Target.Key1 = InputSrc.Key1)
WHEN MATCHED THEN
  UPDATE SET
    Col1 = InputSrc.Col1
    , Col2 = InputSrc.Col2
  WHERE Target.OptLock = InputSrc.OptLock
WHEN NOT MATCHED THEN
  INSERT (Key1, Col1, Col2, OptLock)
    VALUES (InputSrc.Key1, InputSrc.Col1, InputSrc.Col2, systimestamp);

詳しくは述べませんといった舌の根も乾かぬうちに脱線してしまいますが（＾＾；）、二つのSQLの大きな違いは、SQLServer2008の5行目とOracleの9行目です。これらは楽観ロックを実装している部分です。SQL2003のBNFを確認したところ、そもそも標準にON句以外で追加の条件を指定する仕組みがなく、OracleとSQLServer2008ともに追加条件に対する部分を拡張しているとも取れます。（Oracleはそもそも9iの時代からこうだったのかもしれませんが…（未確認））

閑話休題

さて、ExecuteNonQueryを実行した結果ですが、結論だけ言ってしまうと…

Oracleの場合、ExecuteNonQueryを使用して流すと、メソッドの返却値として「-1」が返ってきてしまいます！（環境はOracleXEとODP.NET 10.2）

一方、SQL Serverの方はといえば、ちゃんと更新した行数が返ってきます。さすがMS大先生。

しかし、MSしっかりしているなぁ～などと思ってMSDNのSqlCommand.ExecuteNonQueryの項目を読んでみると

UPDATE、INSERT、および DELETE ステートメントでの戻り値は、そのコマンドの影響を受ける行数です。他の種類のステートメントでの戻り値は、-1 です。ロールバックが発生した場合も、戻り値は -1 です。

文書が更新されてませんなぁｗ