投稿日 | : 2004/06/01(Tue) 23:15 |
投稿者 | : のっぽ |
Eメール | : |
URL | : |
タイトル | : 日付型 |
ACCESSがないので、ビジュアルデータマネージャでテーブル「ディリー」を定義しました。
「年月日」のフィールドのデータ型は DATE/TIME です。
SQLでは YMD_D(DATE型)(04/06/01)で一致しますが、
Rs.Fields("年月日")では 19:00:00と時刻を表します。
フィールドのデータ型時になにか加える設定があるのでしょうか?
お手数かけますが宜しくお願いします。
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim YMD_D As Date
dim YMD As Date
Cn.ConnectionString = DBCTS
Cn.Open
SQL = "SELECT * FROM ディリー " _
& "WHERE 年月日=" & YMD_D & ""
Rs.Open SQL, Cn, adOpenStatic, adLockOptimistic
Rs.MoveFirst
Do Until Rs.EOF
X = (Rs.Fields("年月日"))
I = Val(Rs.Fields("行番号"))
Rs.MoveNext
Loop
Rs.Close
Cn.Close