「VB.NET」SQLServerに接続するサンプル

2014年8月16日2021年10月4日

書式

Using Conn As New SqlConnection
　 Conn.ConnectionString ="DB接続情報"　
 　Conn.Open()
 Using cmd As New SqlCommand(SQL構文)
 　　Using reader As SqlDataReader = cmd.Executereader()
       処理機コード
End Using

使用例

Imports System.Data.SqlClient

Module Module1

    Sub Main()
        'SQL構文
        Dim Sql As String = "SELECT USERNAME,ADDR FROM USERTBL"
        Try
            Using Conn As New SqlConnection
                'サーバー名とデータベース名を指定
                Conn.ConnectionString = ("Data Source=xxx;" & "Initial Catalog=xxx;" & "Integrated Security=SSPI;")
                'データベースに接続
                Conn.Open()
                'usingステートメント
                Using cmd As New SqlCommand(Sql)
                    cmd.Connection = Conn
                    cmd.CommandType = CommandType.Text
                    'SQL構文を実行
                    Using reader As SqlDataReader = cmd.ExecuteReader()
                        While (reader.Read())
                            'テーブルから取得カラムの値を表示
                            Console.WriteLine(reader.GetString(0) & reader.GetString(1))
                        End While
                    End Using
                End Using
            End Using
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Console.ReadKey()


    End Sub


End Module