質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.03%

SQLserverのdate型データとVBで取得した日付を比較したいです。

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 5,097

taketake221

score 15

初級者です。ASP.NET Webフォームアプリに関する質問です。初歩的なことですが、よろしくお願いします。

※OSはWindows7、.NET Framework4、Visual Stdio 2010、SQLserver2012、IE11を利用しています。

テーブルからdate型のデータを(SQLserver2012を使用)取得し、
VB側の構文「Dim dtToday As DateTime = Date.Today」で取得した日付と比較、
同日なら処理Aを、日付が異なるなら処理Bを実行するようコードを記述したいと考えています。
(質問用に処理A、Bはラベルコントロールにメッセージを表示させるのみとしています)

<テーブルの内容>
イメージ説明

※特定のFacilityIDの日付が最新のレコードを参照して"date"だけを取得します。
現在の格納内容でいえば、取得されるべきは「valueID」が「6」のレコードの「2016-09-08」の部分。
(SQL構文で「FacilityID」を「1」と指定した場合)

<テーブルの構成>
イメージ説明]

現在のコードでは、双方で取得された日付が異なった場合の処理Bが実行されている状態にあります。

こちら(date (Transact-SQL))に多少目を通しながらコードを記述してみたのですが、やはりSQLserverに格納されているデータの型や記述方式と、VB側で取得する日付の記述方式が異なる、といったような点が原因なのでしょうか。

※DateDiff 関数というものがあると別方面で教えていただきました。
そちらを利用したコードだとどのように書けばよいのかも教えていただけるとありがたいです。

Imports System.Data.SqlClient

Partial Class dateGet_test
    Inherits System.Web.UI.Page

    Protected Sub dateTestGo_Btn_Click(sender As Object, e As System.EventArgs) Handles dateTestGo_Btn.Click

        Dim day As String = GetDate()

        Dim dtToday As DateTime = Date.Today

        If day Like dtToday.ToString() Then
            LblMsg.Text = "今日のデータはすでに格納されています"
        Else
            LblMsg.Text = "大丈夫!"
        End If

    End Sub

    'データベースから日付(date型データ)を取得する関数
    Private Function GetDate() As String

        Dim ret As String = ""

        Dim cnStr As String = System.Configuration.ConfigurationManager.
            ConnectionStrings("○○○○○○ConnectionString").ConnectionString

        Using connection As New SqlConnection(cnStr)

            Dim SQL As String
            SQL = "SELECT date" &
                 " from tbl_valueTest as A" &
                 " WHERE Exists(SELECT * from tbl_valueTest" &
                 " group by FacilityID" &
                 " having FacilityID = A.FacilityID and MAX(date) = A.date)" &
                 " and FacilityID = 1 "

            Dim command As New SqlCommand(SQL, connection)

            Try

                connection.Open()

                Dim result As String = ""
                result = command.ExecuteScalar()

                If result IsNot "" Then ret = CStr(result)

                connection.Close()

            Catch ex As Exception

            End Try

        End Using

        Return ret

    End Function
End Class
  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

checkベストアンサー

0

間違っていたら、ごめんなさい!
テーブルの内容を見ると、DATEカラムの日付がハイフン付となっているので、
IF判定時に、toStringで"yyyy-MM-dd"とハイフン付に変換してあげれば良いのではないでしょうか?

Dim dtToday As DateTime = Date.Today

        If day Like dtToday.ToString("yyyy-MM-dd") Then
            LblMsg.Text = "今日のデータはすでに格納されています" '処理A
        Else
            LblMsg.Text = "大丈夫!" '処理B
        End If

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/09/08 11:52

    迅速な返信をありがとうございます。
    ご指摘の If result IsNot "" Then ret = CInt(result) について、
    「If result IsNot "" Then ret = CStr(result)」と修正してチェックしてみると、
    「If day Like dtToday.ToString() Then」の時点で
    day "2016/09/08" String
    dtToday #9/8/2016# Date
    となっていました。
    データ型の変換が不十分なんでしょうか・・・。

    キャンセル

  • 2016/09/08 13:32

    If day Like dtToday.ToShortDateString() Then
    で試してみて下さい。

    キャンセル

  • 2016/09/08 14:34

    たびたびお世話になります。
    ご提示いただいたコードを分岐構文のところに当てはめて実行してみると、
    処理A(つまり、データベースのdate型データとVB側で取得した日付が一致したので)が実行されました。

    丁寧に記述いただきありがとうございます!

    キャンセル

0

日付データはDate型で扱う方が何かと楽です。
String型からDate型へ変換する場合は、Date.Parseメソッドが使えます。
(詳しくはリファレンスを調べてください)

Date.Compareメソッドで、Date型同士の比較ができます。
(これも詳しくはリファレンスを調べてください)

上記を踏まえてコードを修正すると以下のようになると思います。

Dim day As String = GetDate()

Dim dtToday As DateTime = Date.Today

If Date.Compare(Date.Parse(day), dtToday) = 0 Then
    LblMsg.Text = "今日のデータはすでに格納されています"
Else
    LblMsg.Text = "大丈夫!"
End If

※そもそも、パース失敗したときの例外処理等も考えると、
GetDateメソッドはDate型を返却するようにした方がよいかもしれません。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/09/08 14:52

    ご回答いただきありがとうございます。
    丁寧にまとめていただいているのですごくわかりやすいです。

    ご提示いただいたコードをもとに、GetDateがdate型で返すように改編してみましたが、正しい結果が得られました。

    初級者ゆえ、コードを記述しても例外処理等を踏まえたより適切なコードでない場合が多いですが、ご指摘いただいているような点も注視していきたいと考えています。

    ベストアンサーは先に回答いただいた方につけさせてください。申し訳ありません。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.03%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる