2004-03

花見にいってまいりやした。
四ツ谷は八分咲きやったけど、新宿御苑は満開やったね。御苑初めていったけど、人が少なけりゃええ感じやわ

なーんか、ここんとこずーっと小雨が続いてますなぁ
先週までぜーんぜん雨がふらんかったその反動やろかね？

でもなぁよかったんはバイクが車検中で乗りたいのに雨やからのられへん！！っていうことがないくらいか
納税証明早いこととってこんと！！

３月も後半になってきたっちゅうのにむっちゃ寒くなってますな。
ちゅうわけでいつもの「菊水の辛口」を仕入れてきました。
酒屋にはほかにも色々おいてあったけど３０００円コースばっかやから諦めました。
値段も安いし、ちょうどええ味やし貧乏人の味方やね（＾＾
菊水酒造株式会社

連れがやっとるバンドのライブに言ってきました。

タイトルとおり連れのはグランジ系なわけですが、対バンの半分がハードロック系でようわからんかった。
ちゅうわけで今のところ雑音の中で生活してるみたいな感じ。耳が本調子にもどるんはいつやろね。

明日はわしのクラプトン仕様のストラトでゴンチチ弾いちゃる！！

ADO で SQL Server に接続するにはこんな感じにすればええらしいで

Private Sub adoFunction()

‘ ADO でエラー処理を行う
On Error GoTo ErrorADODB:

Dim cnn As New ADODB.Connection

cnn.Open “Provider=SQLOLEDB;Data Source=(local);” & _
“Initial Catalog=pubs;”, “sa”, “”

‘ ＤＢ処理 …
‘
‘
‘

Exit Sub
ErrorADODB:
‘ ここからエラー処理部分

Dim strMessage As String

If cnn.Errors.Count > 0 Then
‘ データベース処理関連のエラーを取得
Dim errX As ADODB.Error
For Each errX In cnn.Errors
strMessage = strMessage & errX.Description & vbCrLf
Next
Else
‘ 通常のエラーメッセージを取得
strMessage = Err.Description
End If

MsgBox strMessage, vbExclamation

End Sub