VB.NET から SQL Server を利用するまで[ﾃﾞｰﾀﾍﾞｰｽ]
(2020-07-01 22:52:49) by shinoda

< ﾍﾟｰｼﾞ移動: 1 2 >

        'ｺﾈｸｼｮﾝ指定

        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

< ﾍﾟｰｼﾞ移動: 1 2 >