データベース: 2020年7月アーカイブ

• [表示]→[サーバーエクスプローラー] でサーバーエクスプローラーを表示する。
• サーバーエクスプローラー上にある DB アイコン（データベースへの接続）をクリック。
• 「データソースの選択」ダイヤログが開くので、データソースで「Microsoft SQL Server」を選択。データプロバイダーは「.NET Framework SQL Server用データプロバイダー」を選択する。[続行]ボタン押下。
• 「接続の追加」画面が開くので、「サーバー名」を設定。サーバ名がわからなければ SQL Server Management Studio 等で調べる。うちの場合は「XVIDEOS\SQLEXPRESS」。XVIDEOS は PC名。（一覧から選択するのかと思ったが、フルに手入力しないといけなかった）
• 「サーバにログオンする」の「認証」を「SQL Server 認証」に変更する。ユーザ名とパスワードが入力可能になるので入力。（あらかじめ SQL Server Management Studio で作成したもの）
• 「データベースへの接続」の「データベース名の選択または入力」を選択。DB名を入力する。
• 画面下の「テスト接続」ボタンを押してみて正常に接続されれば「OK」ボタン押下。（うまくいかなければ、DB名やユーザアカウント、パスワードが間違っていないか？）

サンプル用に、超簡単なプログラムを作る。

ID と NAME という項目を持つ m_user という TABLE を参照し、NAME を画面に出すというプログラム。

例えば、ID='admin' の NAMEは'偉い人'である。

開発する画面は「IDを入力し『参考』ボタン（・・・参照と打ったつもりなのに(^^;）を押すと、下に『名前は○○です』」と表示する」という単純なもの。

「参考」ボタンの Click イベントのソースを下記のとおり書いた。

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

        Dim sql As String

        'SQLステートメント

        sql = "SELECT name FROM m_user WHERE id='" & TextBox1.Text & "'"

        Label1.Text = ""

        'コネクション指定

        Using connection As New SqlClient.SqlConnection(My.Settings.nandfConnectionString)

            'データコマンドを定義する

            Using command As New SqlClient.SqlCommand(sql, connection)

                'コネクションを開く

                connection.Open()

                'データリーダの生成

                Dim dr As SqlClient.SqlDataReader = command.ExecuteReader()

                'データが存在する場合、label1にセット

                '検索結果は1件だけ

                Do While dr.Read

                    Label1.Text = "名前は " & dr("name") & " です"

                Loop

                'データリーダを閉じる

                dr.Close()

                'コネクションを閉じる

                connection.Close()

            End Using

        End Using

    End Sub

　

SQL Server Management Studio (SSMS) のダウンロード