2009年4月21日火曜日

【VB】テーブルの指定した列の名前を取得

DataReader.GetName(列番号)

SqlCmd = New SqlCommand(pSQL.ToString, oCon)
iRec = SqlCmd.ExecuteReader()

While iRec.Read()
If iRecCount = 0 Then
pRetMSG = "カラム名レコードの編集"
For iCol = 0 To iRec.FieldCount - 1
If iCol = 0 Then
'フィールド名を代入
oRec(0) = iRec.GetName(iCol)
Else
oRec(0) &= vbTab & iRec.GetName(iCol)
End If
Next
End If