● ソリューションエクスプローラより@C:green(データ)ディレクトリを作成
@DIV
以下のテキストファイルを作成

性別コンボ.sql
所属コンボ.sql
メイン読出.sql
@END

http://lightbox.cocolog-nifty.com/photos/app/sln_dir2.png


@DIV
( このメソッドは、テキストファイル内の文字列は変更しません　)
@DIV
' ************************
' 性別コンボボックス
' ************************
db.Query(@C:red(DbHelper.GetSql)("..\..\データ\性別コンボ.sql"))
Do While db.Read()
	' DB よりデータセット
	Me.性別.Add(db.GetValue("名称"), db.GetValue("コード"))
Loop
Me.性別.SelectedIndex = -1

' ************************
' 所属コンボボックス
' ************************
db.Query(@C:red(DbHelper.GetSql)("..\..\データ\所属コンボ.sql"))
Do While db.Read()
	' DB よりデータセット
	Me.所属.Add(db.GetValue("名称"), db.GetValue("コード"))
Loop
Me.所属.SelectedIndex = -1
@END
[[場所 : MyBase.Load]]
@END


@DIV
[[メイン読出.sql]]
@DIV
select {1}.社員コード
	,{1}.氏名
	,{1}.フリガナ
	,{1}.所属
	,{1}.性別
	,{1}.作成日
	,{1}.更新日
	,{1}.給与
	,{1}.手当
	,{1}.管理者
	,管理者参照.氏名 as 管理者名
	,{1}.生年月日 
 from {1}
 left outer join {1} 管理者参照
 on {1}.管理者 = 管理者参照.社員コード 
 where {1}.社員コード = {0}
@END

( このメソッドは、テキストファイル内の文字列を変更します )
@DIV
' ******************************************************
' select 文を外部ファイルより読み出す
' ******************************************************
DbHelper.dic.Clear()
DbHelper.dic.Add(0, Me.社員コード.DbText)
DbHelper.dic.Add(1, "社員マスタ")
Dim Query = DbHelper.GetSqlDic("..\..\データ\メイン読出.sql")
@END
[[場所 : 確認.Click]]
@END