【VB.NET】データベースに接続するには？

訪問して頂きありがとうございます。まさふくろーです。

この記事では、データベースに接続する方法をご紹介します。

データベースに接続する
- サンプルプログラム
  - OleDbConnectionクラスを使用する
  - SqlConnectionクラスを使用する
関連記事
- Usingステートメント
- 構造化例外処理

データベースに接続する

データベースのデータを扱うには、
①データベースへの接続
②データの参照・更新
③データベースへの接続を終了
という流れで操作を行います。
データベースに接続するには、OleDbConnectionクラスをインスタンス化します。
書式は、以下になります。

New OleDbConnection()

接続先データベースの情報は、OleDbConnectionのConnectionStringプロパティに接続文字列を設定します。
書式は、以下になります。

インスタンス化したOleDbConnection.ConnectionString = 接続文字列（接続先データベースの情報）

接続文字列を設定したら、OleDbConnectionのOpenメソッドでデータベースに接続します。
書式は、以下になります。

インスタンス化したOleDbConnection.Open()

SQL Serverに接続する場合は、SqlConnectionクラスでも可能です。

OleDbConnectionとSqlConnectionのそれぞれのメリットは、以下の通りです。

クラス名	メリット
OleDbConnection	どのデータベースを使用するにしても、コードの記述方法は同じため、データベース切り替え時のメンテナンスが楽。
SqlConnection	SQL Server専用のクラスのため、パフォーマンスが向上する。

サンプルプログラム

OleDbConnectionクラスを使用する

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            Dim prov As String = "SQLOLEDB"
            Dim serverName As String = "TEST-PC\SQLEXPRESS"
            Dim dataBase As String = "AdventureWorksLT2017"
            Dim userid As String = "test"
            Dim pwd As String = "test"

            Using conn As New OleDb.OleDbConnection()

                conn.ConnectionString =
                    " Provider = " & prov &
                    ";Data Source = " & serverName &
                    ";Initial Catalog = " & dataBase &
                    ";User ID = " & userid &
                    ";Password =" & pwd

                conn.Open()

                Label1.Text = "データベースに接続しました。"

            End Using

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Try

Dim prov As String = "SQLOLEDB"

Dim serverName As String = "TEST-PC\SQLEXPRESS"

Dim dataBase As String = "AdventureWorksLT2017"

Dim userid As String = "test"

Dim pwd As String = "test"

Using conn As New OleDb.OleDbConnection()

conn.ConnectionString =

" Provider = " & prov &

";Data Source = " & serverName &

";Initial Catalog = " & dataBase &

";User ID = " & userid &

";Password =" & pwd

conn.Open()

Label1.Text = "データベースに接続しました。"

End Using

Catch ex As Exception

Label1.Text = Err.Description

End Try

End Sub

End Class

2	「データベースに接続」ボタンクリック時に以下処理を行う。
6～10	接続先データベースの情報を、変数に代入。
12	OleDbConnectionクラスのインスタンス化。（Usingステートメントでリソース開放を自動化）
14～19	ConnectionStringプロパティにデータベース情報を設定。
21	ConnectionStringプロパティに設定した情報で、データベースに接続。
23	データベースに接続できた場合、正常終了のメッセージをラベルに表示。
27	データベースに接続できなかった場合、
29	エラー内容を取得し、ラベルに表示する。

SqlConnectionクラスを使用する

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try

            Dim serverName As String = "TEST-PC\SQLEXPRESS"
            Dim dataBase As String = "AdventureWorksLT2017"
            Dim userid As String = "test"
            Dim pwd As String = "test"

            Using conn As New SqlClient.SqlConnection()

                conn.ConnectionString =
                    " Data Source = " & serverName &
                    ";Initial Catalog = " & dataBase &
                    ";User ID = " & userid &
                    ";Password =" & pwd

                conn.Open()

                Label1.Text = "データベースに接続しました。"

            End Using

        Catch ex As Exception

            Label1.Text = Err.Description

        End Try

    End Sub
End Class