流れる石のように

最近はMacMiniでのPHP開発日記

.NETでO/Rマッピング

2005-10-30 14:24:11 | 開発その他
データベースにアクセスするアプリケーションを作ろうと思うのだが、ごりごり書きたくない。どうにかならないかということで、O/Rマッピングをしたい。
JavaだといくつかのO/Rマッピング用ツールがあるのだが、.NETにはないのだろうか・・・・

ありました。

ASP.NETで実践するO/Rマッピング(NHibernate編)
http://www.atmarkit.co.jp/fdotnet/special/ormap01/ormap01_01.html

でも、設定ファイルとか書くのがメンドイのでそれを自動生成するツールが無いか探したらこれもありました

NHibernateのマッピングファイルとクラスファイルをもっと簡単に生成できるツールを発見 (よしぶろっ)
http://blog.livedoor.jp/aeropuertu/archives/24865537.html

今から使ってみまーす。

Excelシート一覧作成マクロ

2005-10-17 08:12:47 | 開発その他
'
'ワークブック内のシートの一覧を作成し、
'各シートへのハイパーリンクを設定する
'
Sub CreateHyperlinksGoSheet()

'シート一覧の取得
Dim colSheetNames As New Collection
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Sheets
colSheetNames.Add sheet.name
Next
'ハイパーリンク用シート追加
Set sheet = ActiveWorkbook.Sheets.Add
sheet.name = "シート一覧"

'ハイパーリンク作成
Dim index As Long
Dim name
index = 1
For Each name In colSheetNames
sheet.Range("A" & index).Value = name
sheet.Range("A" & index).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
name & "!A1", TextToDisplay:=name
index = index + 1
Next

End Sub

Excelにシート追加マクロ

2005-10-15 22:47:12 | 開発その他
大量のシートを手で追加するのが面倒なときに使用する

Sub Macro2()


'
Dim sheet As Worksheet
Dim index As Long

Dim namename As String
Dim names() As String

namename = "name1,name2,name3"
names = Split(namename, ",")

For index = UBound(names) To 0 Step -1
Set sheet = Sheets.Add
sheet.Name = names(index)
Next

End Sub