VB.NETでのDataSetの使い方とは？DataSetの基本的な使い方・データ選択・ソート・合計方法
- システム
エンジニア - 表形式のデータを扱うためのメソッドについて、教えてください。
- プロジェクト
マネージャー - ではVB.NETでの基本的なメソッドについて解説していきます。
VB.NETでのDataSetの使い方とは？
今回は、VB.NETでのDataSetの使い方について説明します。DataSetとはデータ集合を扱うデータベースのようなものです。DataSetの子要素にはDataTableがあります。DataTableはデータベースのテーブルに相当します。ここでは、基本的な使い方、データ選択、ソート、合計方法について紹介します。
VB.NETでのDataSetの使い方に興味のある方はぜひご覧ください。
基本的な使い方
VB.NETでのDataSetの基本的な使い方を紹介します。実際のソースコードを見てみましょう。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
Imports System.Data
Module Program
Sub Main(args As String())
' DataSet(データベース)の宣言
Dim ds As New DataSet()
' DataTable(テーブル)の宣言
Dim dt As New DataTable("期末テスト")
' DataColumn(テーブルのカラム)作成
dt.Columns.Add("名前")
dt.Columns.Add("国語")
dt.Columns.Add("数学")
' DataRow(テーブルの行)宣言
Dim dtRow As DataRow
' レコード作成
dtRow = dt.NewRow
dtRow("名前") = "taro"
dtRow("国語") = "65"
dtRow("数学") = "78"
' レコード追加
dt.Rows.Add(dtRow)
' レコード作成
dtRow = dt.NewRow
dtRow("名前") = "jiro"
dtRow("国語") = "87"
dtRow("数学") = "98"
' レコード追加
dt.Rows.Add(dtRow)
' レコード作成
dtRow = dt.NewRow
dtRow("名前") = "goro"
dtRow("国語") = "43"
dtRow("数学") = "25"
' レコード追加
dt.Rows.Add(dtRow)
' DataSetにDataTableを追加
ds.Tables.Add(dt)
' カラム名表示
For Each col As DataColumn In dt.Columns
Console.Write(col.ColumnName & " ")
Next
Console.WriteLine(Environment.NewLine & "--------------")
' 全レコード表示
For Each row As DataRow In dt.Rows
For Each col As DataColumn In dt.Columns
Console.Write(row(col).ToString & " ")
Next
Console.WriteLine()
Next
End Sub
End Module
|
実行結果は以下のようになります。
|
1
2
3
4
5
|
名前 国語 数学
--------------
taro 65 78
jiro 87 98
goro 43 25
|
VB.NETでのDataSetの基本的な使い方を紹介しました。
データSELECT
VB.NETでのDataSetから一致するデータを選択（SELECT）する方法を紹介します。実際のソースコードを見てみましょう。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
' カラム名表示
For Each col As DataColumn In dt.Columns
Console.Write(col.ColumnName & " ")
Next
Console.WriteLine(Environment.NewLine & "--------------")
' 一致するレコード
Dim name1 = "jiro"
Dim selectedRow As DataRow()
selectedRow = dt.Select("名前 = '" + name1 + "'")
' 全レコード表示
For Each row As DataRow In selectedRow
For Each col As DataColumn In dt.Columns
Console.Write(row(col).ToString & " ")
Next
Console.WriteLine()
Next
|
実行結果は以下のようになります。
|
1
2
3
|
名前 国語 数学
--------------
jiro 87 98
|
逆に一致しないデータを選択するには以下のように記述します。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
' カラム名表示
For Each col As DataColumn In dt.Columns
Console.Write(col.ColumnName & " ")
Next
Console.WriteLine(Environment.NewLine & "--------------")
' 一致しないレコード
Dim name1 = "jiro"
Dim selectedRow As DataRow()
selectedRow = dt.Select("名前 <> '" + name1 + "'")
' 全レコード表示
For Each row As DataRow In selectedRow
Console.Write(row(col).ToString & " ")
Next
Console.WriteLine()
Next
|
実行結果は以下のようになります。
|
1
2
3
4
|
名前 国語 数学
--------------
goro 43 25
taro 65 78
|
このようにVB.NETでは、DataSetから一致するデータ／一致しないデータを選択できます。
ソート
VB.NETでのDataSetのソート方法を紹介します。実際のソースコードを見てみましょう。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
' カラム名表示
For Each col As DataColumn In dt.Columns
Console.Write(col.ColumnName & " ")
Next
Console.WriteLine(Environment.NewLine & "--------------")
Dim selectedRow As DataRow()
selectedRow = dt.Select(Nothing, "国語")
' 全レコード表示
For Each row As DataRow In selectedRow
For Each col As DataColumn In dt.Columns
Console.Write(row(col).ToString & " ")
Next
Console.WriteLine()
Next
|
実行結果は以下のようになります。対象データが昇順でソートされていることが分かります。
|
1
2
3
4
5
|
名前 国語 数学
--------------
goro 43 25
taro 65 78
jiro 87 98
|
降順ソートするには、「desc」を指定します。実際のソースコードを見てみましょう。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
' カラム名表示
For Each col As DataColumn In dt.Columns
Console.Write(col.ColumnName & " ")
Next
Console.WriteLine(Environment.NewLine & "--------------")
Dim selectedRow As DataRow()
selectedRow = dt.Select("数学 > 60", "数学 desc")
' 全レコード表示
For Each row As DataRow In selectedRow
For Each col As DataColumn In dt.Columns
Console.Write(row(col).ToString & " ")
Next
Console.WriteLine()
Next
|
実行結果は以下のようになります。
|
1
2
3
4
|
名前 国語 数学
--------------
jiro 87 98
taro 65 78
|
合計
VB.NETでのDataSetの列合計方法を紹介します。実際のソースコードを見てみましょう。
|
1
2
3
4
5
6
7
|
Dim total1 As Integer = dt.Rows.Cast(Of DataRow) _
.Sum(Function(row) CInt(row("国語")))
Console.WriteLine("国語の合計:" & total1.ToString)
Dim total2 As Integer = dt.Rows.Cast(Of DataRow) _
.Sum(Function(row) CInt(row("数学")))
Console.WriteLine("数学の合計:" & total2.ToString)
|
実行結果は以下のようになります。
|
1
2
|
国語の合計:195
数学の合計:201
|
- システム
エンジニア - 基本ですが、覚えると非常に便利な方法ですね。
- プロジェクト
マネージャー - そうですね。ぜひマスターして、活用してください。
まとめ
いかがでしたでしょうか。VB.NETでのDataSetの使い方について説明しました。
ぜひこの記事を参考にご自身でVB.NETのソースコードを書いて、理解を深めてください。
FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。
株式会社オープンアップシステムはこんな会社です
秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結！
数多くのエンジニアが集まります。
-
スマホアプリから業務系システムまで
スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
-
充実した研修制度
毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
-
資格取得を応援
スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
-
東証プライム上場企業グループ
オープンアップシステムは東証プライム上場「株式会社夢真ビーネックスグループ」のグループ企業です。
安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。
株式会社オープンアップシステムに興味を持った方へ
株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。
年収をアップしたい！スキルアップしたい！大手の上流案件にチャレンジしたい！
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。
新着案件New Job
-
開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク
月給29万～30万円東京都品川区(大崎駅) -
遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク
月給45万～60万円東京都港区(六本木駅) -
病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク
月給30万～30万円東京都豊島区(池袋駅) -
開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク
月給50万～50万円東京都豊島区(大塚駅) -
債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務
月給62万～67万円東京都文京区(後楽園駅) -
PMO/東京都豊島区/【WEB面談可】/在宅勤務
月給55万～55万円東京都豊島区(池袋駅)
関連記事Related Posts
-
VB.NETの案件の相場はいくら？稼ぐために必要なポイント3つ
VB.NETとは VB.NETとはMicrosoftが開発したVisual Basic6.0の後継のプログラミング言語です。 VB.NETは正式には「Visual Basic .NET」という名称のプログラミング言語です […]
-
VB.netでソケット通信する方法は？ソケット通信の概要やサンプルプログラムをご紹介
ソケット通信とは？ ソケットはアプリケーション同士でデータ通信する際の出入り口のことを指します。通信する各アプリケーションの出入り口にはIPアドレスとポート番号が割り振られていて、このIPアドレスとポート番号を利用した通 […]
-
VB.NETでの配列初期化方法とは？宣言と初期化・サイズを指定・ReDimで再宣言・要素固定の一括初期化
VB.NETでの配列初期化方法とは？ 今回は、VB.NETでの配列の初期化方法について説明します。ここでは、宣言と初期化、サイズ指定、ReDimで再宣言、一括初期化、コピーで初期化について紹介します。 VB.NETでの配 […]
-
VB.NETにおけるAccess接続方法｜OLEDBE・ODBCを使用したサンプルコードを作成
VB.NET Access 接続 ここからはVisual Basic.NETからMicrosoft Accessに接続する手順について説明します。Microsoft Accessのサンプルaccdbを導入後、Visual […]
-
VB.NETでの0埋め文字列の生成方法とは？toStringメソッド・Formatメソッド・Padleftメソッド
VB.NETでの0埋め文字列の生成方法とは？ 今回は、VB.NETでの0埋め文字列の生成方法について説明します。ここでは、toStringメソッド・Formatメソッド・Padleftメソッドを使用した0埋め文字列の生成 […]
