2009年4月9日木曜日

【VB】主キー以外のフィールドでレコードを検索する

検索する値
dim key as string
key = inputbox("[GoodsName]"を入力","検索")

'検索
dim rr() as OederDtaset.gooodsRow
rr = OrderDtaSet.Goods.Select("GoodsName LIKE ' & "%'")

'確認
if dr Is Notheng then
messagebox.show("該当するレコードがありません")

Else
'検索したレコードを表示
dim s as string=""
dim i as integer
for i=0 to rr.length-1
s=s & rr(i).goodsID & ControlChars.Tab & rr(i).GoodsName & ControlChars.Tab & rr(i).Price & ControlChars.Tab
next
messagebox.show(s)
end if