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

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

新規登録して質問してみよう
ただいま回答率
85.50%
SQL Server

SQL Serverはマイクロソフトのリレーショナルデータベース管理システムです。データマイニングや多次元解析など、ビジネスインテリジェンスのための機能が備わっています。

Visual Studio 2010

Microsoft Visual Studio 2010はMicrosoftが提供している統合開発環境(IDE)です。

ASP.NET

ASP.NETは動的なWebサイトやWebアプリケーション、そしてWebサービスを構築出来るようにする為、Microsoftによって開発されたウェブアプリケーション開発フレームワークです。

Q&A

解決済

2回答

14488閲覧

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

taketake221

総合スコア17

SQL Server

SQL Serverはマイクロソフトのリレーショナルデータベース管理システムです。データマイニングや多次元解析など、ビジネスインテリジェンスのための機能が備わっています。

Visual Studio 2010

Microsoft Visual Studio 2010はMicrosoftが提供している統合開発環境(IDE)です。

ASP.NET

ASP.NETは動的なWebサイトやWebアプリケーション、そしてWebサービスを構築出来るようにする為、Microsoftによって開発されたウェブアプリケーション開発フレームワークです。

0グッド

0クリップ

投稿2016/09/07 23:18

編集2016/09/08 05:32

初級者です。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 関数というものがあると別方面で教えていただきました。
そちらを利用したコードだとどのように書けばよいのかも教えていただけるとありがたいです。

Visual

1Imports System.Data.SqlClient 2 3Partial Class dateGet_test 4 Inherits System.Web.UI.Page 5 6 Protected Sub dateTestGo_Btn_Click(sender As Object, e As System.EventArgs) Handles dateTestGo_Btn.Click 7 8 Dim day As String = GetDate() 9 10 Dim dtToday As DateTime = Date.Today 11 12 If day Like dtToday.ToString() Then 13 LblMsg.Text = "今日のデータはすでに格納されています" 14 Else 15 LblMsg.Text = "大丈夫!" 16 End If 17 18 End Sub 19 20 'データベースから日付(date型データ)を取得する関数 21 Private Function GetDate() As String 22 23 Dim ret As String = "" 24 25 Dim cnStr As String = System.Configuration.ConfigurationManager. 26 ConnectionStrings("○○○○○○ConnectionString").ConnectionString 27 28 Using connection As New SqlConnection(cnStr) 29 30 Dim SQL As String 31 SQL = "SELECT date" & 32 " from tbl_valueTest as A" & 33 " WHERE Exists(SELECT * from tbl_valueTest" & 34 " group by FacilityID" & 35 " having FacilityID = A.FacilityID and MAX(date) = A.date)" & 36 " and FacilityID = 1 " 37 38 Dim command As New SqlCommand(SQL, connection) 39 40 Try 41 42 connection.Open() 43 44 Dim result As String = "" 45 result = command.ExecuteScalar() 46 47 If result IsNot "" Then ret = CStr(result) 48 49 connection.Close() 50 51 Catch ex As Exception 52 53 End Try 54 55 End Using 56 57 Return ret 58 59 End Function 60End Class

気になる質問をクリップする

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

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

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

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

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

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

vbnet

1Dim day As String = GetDate() 2 3Dim dtToday As DateTime = Date.Today 4 5If Date.Compare(Date.Parse(day), dtToday) = 0 Then 6 LblMsg.Text = "今日のデータはすでに格納されています" 7Else 8 LblMsg.Text = "大丈夫!" 9End If

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

投稿2016/09/08 05:13

gusao

総合スコア185

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

taketake221

2016/09/08 05:52

ご回答いただきありがとうございます。 丁寧にまとめていただいているのですごくわかりやすいです。 ご提示いただいたコードをもとに、GetDateがdate型で返すように改編してみましたが、正しい結果が得られました。 初級者ゆえ、コードを記述しても例外処理等を踏まえたより適切なコードでない場合が多いですが、ご指摘いただいているような点も注視していきたいと考えています。 ベストアンサーは先に回答いただいた方につけさせてください。申し訳ありません。
guest

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 00:59

seesaajira-

総合スコア107

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

taketake221

2016/09/08 01:05

ご回答いただきありがとうございます。 試してみましたが、正しく実行されませんね・・・。 (求める動作は「LblMsg.Text = "今日のデータはすでに格納されています"」なんですが、変わらず処理Bの方が実行されたままです。)
seesaajira-

2016/09/08 02:09

Dim day As String = GetDate() のdayには、何が返ってきていますか? GetDate関数内の If result IsNot "" Then ret = CInt(result) で数値変換しているのが、気になります。
taketake221

2016/09/08 02: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 となっていました。 データ型の変換が不十分なんでしょうか・・・。
seesaajira-

2016/09/08 04:32

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

2016/09/08 05:34

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問