プログラム美貌録

ORACLE10gの設定

mk_o_km — 2006-06-29T21:15:44+09:00

気付けば結構間があいてしまいました。
今日は、オラクル10gの環境設定についてです。

Oracle9iまでは、EnterpriseManagerでオラクルの設定って簡単にできていたのに、10gになったらEnterpriseManagerが見当たらない。
まさか全部コマンドで設定させるつもりか？？

そう思ってたら、やっぱりあった。
Oracle10gからは、EnterpriseManagerがWeb化されたらしい。

どこにあるかというと、Oracle10gサーバーをインストールしたマシンのローカルに密かにインストールされている。
前提：
・Oracle10gサーバーをインストールしたマシン名をAAAとする。
・ポート番号は5501とする。（デフォルトのインストール）

そして気になるURLは

http://AAA（マシン名称又はIPアドレス）:5501/em/console/logon/logon

インスタンスを追加する度に、5502、5503・・・とポート番号を1ずつ増やして行けばよい。

これがまた重いんです。
起動に結構時間がかかるけど慣れたらそれなりに使えます。
ネットワークさえつながれば、クライアントからでも普通に操作可能です。

DB2でデータベース削除に失敗したら

mk_o_km — 2006-04-04T13:05:47+09:00

毎日、はちょっと言いすぎだけど、毎週のように違うデーターベースを触らないといけない。
データーベースを消したり、作ったりなんて日常茶飯事なんです。
DB2を削除したつもりが、再作成がうまくいかない。とか、
そのままインポートしたらテーブルごと作成するはずやのに、うまくいかない。
そんな時は以下を試してみる価値はあるかも？

<前準備>
GUIからコマンド・ウィンドウを起動
又は、ファイル名を指定して"db2cmd"を起動
どちらの場合も起動後は全てコマンドラインで手打ちします。

<実作業>
1.まずはデータベースをチェック
db2 list database directory on C:\DB2
※ここで削除したはずのデーターベース名が存在すれば、ゴミが残っています。
ゴミの削除のために2.へ進みましょう
存在しなければ・・・また別の方法を考えましょう。

2.カタログを削除
db2 catalog database ***(DB名)

3.データーベースを削除
db2 drop db ***(DB名)

これで終了です。
もう一度1.のコマンドを実行してみてください。
削除したデータベース名がなくなっているはずです。

※データベースの完全削除です。
実行は自己責任で注意深く行ってください。

IISの設定2

mk_o_km — 2006-03-15T12:35:22+09:00

本当はプログラムをアップしたいのだけど、今手頃なのがないのでIIS設定の続きを書くことにします。
前回先延ばしにした、URLをフルで書かなくてもトップページが開く設定。

<前提>
仮想フォルダまで作成済み（仮想フォルダの作成は前回を見てください。）
<設定方法>
1.インターネットインフォメーションサービスを起動し、既定のWebサイトを選択する。

2.作成した仮想フォルダを右クリックし、プロパティを起動する。

3.タブ上からドキュメントを選択

4.追加をクリックし、トップページで開けたいファイル名を入力
※パス名は不要

5.追加されたファイル名を選択したまま、上矢印を押して一番上になるようにする。

6.OKボタンを押して完了。

7.ブラウザを起動し、
http://***/test/
で、作成したページが見えたらPerfect!!

IISの設定

mk_o_km — 2006-03-09T23:01:08+09:00

今日はIISの設定。
日常的に設定したり、外したり、しているので私の中では当たり前のようになっているけど、意外と知らない人が多いのね。
考えてみたらWindowsを標準インストールしたら入らない代物だし、そりゃ使わんかったら知らんで当然。
※Windows2000マシンに設定するものとして書くけど、Xpでも2003サーバーでも微妙な違いだけだったし、大丈夫でしょう。

<基本設定>
1.自分のマシンにIISがインストールされていて正常に動いているかを確認する。
一番簡単なのは、ブラウザを起動して、
"http://localhost/"
と打ってみる。
タイトルバーに
"windows 2000 インターネットサービスへようこそ"
とか出てると既に入ってます。

2.表示されなかったら、Windows2000のCDから追加インストールしましょう。
コンポーネントの追加からウィザードに従って追加するだけです。

3.正常にインストールされたら、ルートを設定しましょう。
コントロールパネル
↓
管理ツール
↓
インターネットサービスマネージャー
を起動します。

4.自分のマシン名をクリックし、"既定のWebサイト"を右クリック
新規作成
↓
仮想ディレクトリ
を選択するとウィザードが起動します。

5.基本的にはウィザードの言う通り作ってやればOKですが
エイリアス：http://***/test
のtestの部分を入力する。
ディレクトリ：公開するトップページ(とりあえずindex.htmlとしておく)の存在するフォルダを選択する。

6.これで完了。

7.ブラウザを起動し、
http://***/test/index.html
で、作成したページが見えたらPerfect!!

8.後は何もしなければWindowsの起動とともに自動起動するし、今開けたものすべて閉じても起動してますよ。

※長くなったのでトップページ省略の方法はまた後日

CSVファイルの読込み

mk_o_km — 2006-03-08T12:21:54+09:00

ASP.NET(VB)でCSVファイルをコネコネするシリーズ3
前回までは、作ってダウンロードして、ってしたけどCSVからデータを取得してそのままDBに登録する、とか色んな処理が必要なのよね。
今回はCSVファイルの読込みです。
本当に読込むだけ。
色んな処理はまた今度にしましょう。

#Region "ＣＳＶファイルのデータ読込み"
'=====================================================
' ＣＳＶファイルの読込み
'-----------------------------------------------------
'【引　数】なし
'【戻り値】なし
'【注　意】先頭でSystem.IOをインポートしているのが前提
'=====================================================
Private Sub Csv_Update()

Dim UPDIR_NAME As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim Fullpath As String = UPDIR_NAME & strFileName
Try
'受信したファイルを読み込む
Dim sr As StreamReader = New StreamReader(Fullpath, System.Text.Encoding.Default)
Dim strLine As String = sr.ReadLine()

While (strLine <> "")
Dim strCol() As String = strLine.Split(CChar(",") & CChar(""""))
Dim intCol As Integer
For intCol = 0 To strCol.Length - 1
' ダブルクォーテーションでくくられている場合、クォーテーションを取り除く
If strCol(intCol).StartsWith("""") AndAlso strCol(intCol).EndsWith("""") Then
strCol(intCol) = strCol(intCol).Substring(1, strCol(intCol).Length - 2)
End If
Next intCol

'読み出したデータを利用するのであればここに処理を挿入

'次の行へ
strLine = sr.ReadLine()
End While

sr.Close()

Catch ex As Exception
Throw ex
End Try

End Sub
#End Region

CSVファイルのダウンロード

mk_o_km — 2006-03-07T12:23:02+09:00

ASP.NET(VB)でCSVファイルをコネコネするシリーズ2。
今回は前回作成したCSVファイルをダウンロードしてみる関数を作成。
実際にはもっと色々チェックも入れて画面から選択したファイル名を取得してやらその他諸々ちゃんとしてるんだけどその辺は省略。
指定したCSVファイルを存在チェックしてダウンロードすることができます。

#Region "ＣＳＶをダウンロード"
'=====================================================
'ＣＳＶをダウンロード
'-----------------------------------------------------
'【引　数】なし
'【戻り値】なし
'【注意】Exceptionは共通で指定しておいてね
'=====================================================
Private Sub FileDownLoad()
Try
Dim DirName As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim strFullpath As String = DirName & FileName
Dim TypeName As String = Mid(FileName, FileName.Length - 3, 4)

'ファイル存在チェック
If File.Exists(strFullpath) = True Then
'今回は簡易的に拡張子のみでCSVかどうかをチェック
If TypeName <> ".csv" Then
Throw New Exception("処理中エラー：CSVファイルではありません。")
End If

If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 5.5;") > 0 Then
'IE5.5バグ対応
Response.ContentType = "application/octet-stream-dummy"
Else
'IE5.5以外
Response.ContentType = "application/octet-stream"
End If

'ファイルをダウンロード
Response.AddHeader("Content-Disposition", "attachment; filename=" & HttpUtility.UrlEncode(strFullpath))
Response.WriteFile(strFullpath)
Response.End()
End If
Catch ex As Exception
Throw ex
End Try

End Sub
#End Region

CSVファイルの作成

mk_o_km — 2006-03-06T12:22:52+09:00

CSVファイルをコネコネするシリーズ1。
ASP.NET(VB)でCSV作成用関数を作成。
指定したフォルダにカンマ区切りCSVファイルが作成できます。

#Region "ＣＳＶファイル作成"
Private Sub CsvMake()
'=====================================================
'ＣＳＶファイル作成
'-----------------------------------------------------
'【引　数】
'【戻り値】なし
'=====================================================

Try
Dim DirName As String = "C:\CSV\"
Dim FileName As String = "test.csv"
Dim strFullpath As String = DirName & FileName
Dim strLine() As String = Nothing

'格納するフォルダが存在しない場合、フォルダを作成
If System.IO.Directory.Exists(DirName) = False Then
System.IO.Directory.CreateDirectory(DirName)
End If

Dim i As Integer
For i = 0 To 10
strLine(i) = "aaa"
Next i

'ＣＳＶを作成
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter(strFullpath, True, System.Text.Encoding.GetEncoding(932))
sw.WriteLine(strLine)

sw.Close()

Catch ex As Exception
Throw ex
End Try

End Sub
#End Region

.NETFrameWork1.0と1.1の共存

mk_o_km — 2006-03-02T22:50:11+09:00

VisualStudio.Net2002と2003を同じマシンに共存させる。
一番ネックは.Net2002はFrameworkが1.0なのねぇ。
確か一年以上前にも同じことやったのに忘れてしまった。
共存のためにはマッピングが必要だ、ということは覚えていたんだけど・・・

＜以下実現方法＞
.Net2002,2003,IIS,Framework1.0,1.1全てインストール済の環境から

コマンドプロンプトを起動
\WINNT\Microsoft.NET\Framework\v1.0.370\
又は
\WINNT\Microsoft.NET\Framework\v1.1.4322\
まで階層移動
（使いたいFrameworkのバージョンフォルダを選択）

aspnet_regiis.exe -i
プロジェクトだけのマッピングは、
aspnet_regiis.exe -s W3SVC/1/ROOT/****
IISごとマッピングを変更するなら
aspnet_regiis.exe -r

ちなみに今どのバージョンのFrameworkを使っているかを確認するなら
aspnet_regiis.exe -lk

引数の詳細は
aspnet_regiis.exe /?でヘルプを見ておくれ
（一応続きに載せてみる）
つづきはこちら