ハッシュテーブル

Private Function hogeHashTable() As Boolean

  Dim ht As Hashtable
  Dim strKey As String
  Dim strArray As String()
  Dim strVal As String

  ht = New Hashtable

  strKey = "01"
  strArray = New String() {"japan", "nippon"}
  ht.Add(strKey, strArray)

  strKey = "02"
  strArray = New String() {"pen", "enpitsu"}
  ht.Add(strKey, strArray)

  If ht("01") Is Nothing Then
  Else
    strVal = CType(ht("01"), Array)(0)  'japan
    strVal = CType(ht("01"), Array)(1)  'nippon
  End If

  If ht("02") Is Nothing Then
  Else
    strVal = CType(ht("02"), Array)(0)  'pen
    strVal = CType(ht("02"), Array)(1)  'enpitsu
  End If

End Function

連想配列。結構使える。

DB接続

Imports System.Data.OleDb

Private Function hogeDb() As Boolean

  Dim sqlConn As OleDbConnection
  Dim strConn As String
  Dim strSql As String
  Dim sqlCmd As OleDbCommand
  Dim sqlRec As OleDbDataReader
  Dim strField As String

  strConn = strConn & "Provider = hoge"
  strConn = strConn & ";Data Source = hoge"
  strConn = strConn & ";User Id = hoge"
  strConn = strConn & ";Password = hoge"
  strConn = strConn & ";"

  sqlConn = New OleDbConnection
  sqlConn.ConnectionString = strConn
  sqlConn.Open()

  strsql = "select * from hoge"
  sqlCmd = New OleDbCommand
  sqlCmd.CommandText = strSql
  sqlCmd.Connection = sqlConn
  sqlCmd.CommandTimeout = 10
  sqlRec = sqlCmd.ExecuteReader

  strField = sqlRec("FIELD")

  sqlRec.Close()
  sqlRec = Nothing
  sqlCmd.Dispose()

  sqlConn.Close()

End Function

XMLファイル読み込み

Imports System.Xml

Private Function hoge() As Boolean

  Dim xDoc As XmlDocument = New XmlDocument
  Dim xNode As XmlNode
  Dim strUserId As String

  xDoc.Load("hoge.xml")
  xNode = xDoc.SelectSingleNode("CONFIG/CONNECT/USERID")
  strUserId = xNode.InnerText

End Function

XML結構扱いやすいね。

テーブル情報の取得

select
  a.name as テーブル名,
  a.id as テーブルid,
  b.name as 列名,
  b.xtype,
  c.name as データ型,
  b.length as サイズ,
  b.colid as 列順番
from
  (select name, id from sysobjects) a
  inner join
  (select name, id, xtype, length, colid from syscolumns) b
  on a.id = b.id
  inner join
  (select name, xusertype from systypes) c
  on b.xtype = c.xusertype
where
  a.name = @table

これで簡単な定義書作れそう。