Clickイベントを呼ぶ

// VBコーディング
Private Sub btnExec_Click()
　MsgBox("開発")
End Sub

上のイベントを他から呼びたい場合

// VB
Private Sub btnEnd_Click()
　Call btnExec_Click()
End Sub

// VB2005
Private Sub btnEnd_Click( _ 
　　　　　　　　ByVal sender As System.Object, _ 
　　　　　　　　ByVal e As System.EventArgs) Handles btnEnd.Click
　btnExec.PerformClick()
End Sub

えらく変わったもんだ。

配列

VB2005だとこんなことができる。

Dim strItems() As String
strItems = Nothing
If (strItems Is Nothing)Then
　MsgBox("ないよー")
End If
End Function

VBじゃできないから、仕方なくこうする。

Dim strItems() As String
strItems = Split("")
If (Ubound(strItems()) = -1)Then
　MsgBox("ないよー")
End If

裏技っぽくなるが、配列に何も格納されない場合、こうするしかない。
例えば、配列を返す関数の戻り値がない場合とか。

ブログコメントの返信

管理者っぽく返信することに。
このほうが分かりやすいや。
って、これが普通なんだろうなー（笑

フォームの落とし穴

言われてみれば、「あ～」って感じ。
VBのフォームは『グローバル変数』
つまり、

Form1.Show

って、どこでも書ける。
この所為で、落とし穴に嵌った。
実は、VBのUnloadって奴。メモリから全てが消えてしまうと
思っていたのだが、どうもそうではないらしい。
Formsコレクションから消えるだけで、インスタンスが初期化されるわけではない。
例えば、こんなフォームがあって、

// Form1内
Private m_strValue As String
Public Property Let Item (value As String)
　m_strValue = value
End Property
Private Sub Form_Load()
　MsgBox m_strValue
End Sub

Form1.Item = "黒幕"
Form1.Show
Unload Form1
Form1.Show

ってすると、メッセージボックスが２回表示され、２回とも「黒幕」と表示される。

じゃ、どうしたらいいのん？

テーブルの一覧を取得する

SQLでテーブルの一覧を取得したい場合、たったのこれだけ。

exec sp_tables

オプションは、これ
@TABLE_QUALIFIER
@TABLE_OWNER
@TABLE_NAME
@TABLE_TYPE
@REMARKS

例えば、「TABLE」Typeだけを表示する場合

exec sp_tables @TABLE_TYPE='''TABLE'''

例えば、「kuromaku」テーブルだけを表示する場合

exec sp_tables @TABLE_NAME='KUROMAKU'

参考：http://msdn2.microsoft.com/ja-jp/library/ms186250.aspx