システム時刻取得 [VB 2013]

SELECT GETDATE()

SqlCommand.ExecuteScalarメソッドを呼び出して、現在のシステム日付と時刻を取得するプログラムを作成します。フォームにラベルとボタンを貼り付けます。

ラベルに、現在のシステム日付時刻を文字列に変換して、yyyy年MM月dd日 HH時mm分dd秒と、先行ゼロ付き編集で表示します。

システム日付時刻を取得するSQL文は、"SELECT GETDATE()" とします。FROM句を記述する必要はありません。

Option Strict On
Imports System.Data.SqlClient

Public Class Form1

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

        Try
            Using con As New SqlConnection
              Using cmd As New SqlCommand
                  ' 接続文字列の設定（SQL Server 2008 Express Edition）
                  con.ConnectionString = _
                        "Data Source=.\SQLEXPRESS;" & _
                        "Integrated Security=True;" & _
                        "Connect Timeout=30;" & _
                        "User Instance=True"
                  ' SqlCommand.Connectionプロパティの設定
                  cmd.Connection = con
                  ' DB接続
                  con.Open()
                  ' SQL文の設定
                  cmd.CommandText =  "SELECT GETDATE()"
                  ' システム日付時刻をSqlCommand.ExecuteScalarで取得
                  Dim now As DateTime = CDate(cmd.ExecuteScalar())
                  ' システム日付時刻を編集してラベルに表示
                  Me.LblNow.Text = _
                      now.ToString("yyyy年MM月dd日 HH時mm分ss秒")
              End Using
            End Using
        Catch ex As Exception
            ' 例外が発生した時の処理
            MessageBox.Show(ex.ToString)
        End Try

    End Sub

End Class