[VB] リソースのXMLをデータセットに読み込ませる

テストデータなんかをXMLに書いておいて、読み込ませる時に使ってます。

--------------------------

' 現在実行中のアセンブリを取得
Dim asm As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()

'アセンブリ中のすべての名称を取得
Dim rns() As String = asm.GetManifestResourceNames()
If (rns.Length <= 0) Then
   Return Nothing
End If

' リソースのストリームを取得
Dim s As IO.Stream = asm.GetManifestResourceStream(rns(0))

'データセットに読み込ませる
Dim ds As New DataSet
ds.ReadXml(s)

[VB]DataTableのSelectメソッドまとめ

最近よく使うのでちょっとメモ

使える比較演算子
<,>,<=,>=,<>,=,IN,LIKE

使える算術演算子
+ (加算),- (減算),* (乗算),/ (除算),% (剰余)

使える組み込み関数
CONVERT,LEN,ISNULL,IIF,TRIM,SUBSTRING

Dim foundRows() As DataRow = dt.Select("FieldA = 'TGT' AND SUBSTRING(FieldB,1,2) = FieldC")

[VB2003] OdbcDataAdapter

なぜだかHiRDBとVB.Netの組み合わせです。
OdbcDataAdapterのUpdateメソッドで楽しようとしたのですがダメでした。
CommandBuilderを使ってもHiRDBではPrimaryKeyが取れないため（Odbcだからかな？）Update,Deleteに失敗します。
（HiRDB.Netを使えれば解決できそうな気もするのですが、今回は「なし」なのです。）

自分でInsertCommand,UpdateComanndを設定するのもあまりメリットがなさそうだったので、久しぶりにExecuteNonQueryでInsertを処理することにしてみました。
それにしてもHiRDBは扱いが難しいですねぇ。。