VB2005からAccessに接続したい

質問

AccessのDBの列にDatetime型の列があって、日付と時間が入っています。

VB2005から年月日を指定して、その日付と合う行をすべて拾ってくるというプログラムを書いています。

ですが、日付と、日時を比較しているせいか、エラーが出てしまってうまく出来ません。
（データ型が合わないとか、パラメータが不足しているとかのエラーが出ます。）

まずはそのまま比較してみたり、Likeを使ったり、Formatを使ったり、データ型をそれぞれ変更して色々とテストしてみたのですが、どうにもうまく出来なくて質問させていただきました。

VB2005からAccessのデータベースへ接続で、日時型のデータから日付が合うものを抽出するにはどうすればいいのでしょうか。

お分かりの方いらっしゃいましたら教えてください。

よろしくお願いいたします。

回答No.1

nora1962 · ベストアンサー

一応作ってみました。
Imports System
Imports System.IO
Imports System.Text
Imports System.Collections
Imports System.Data.OleDb

Public Class Sample
Public Shared Function Main(args As String() ) As Integer
Dim con As New OleDbConnection()
Dim cmd As New OleDbCommand()
Dim dr As OleDbDataReader = Nothing
Dim start_dt As DateTime
Dim end_dt As DateTime
Dim isdate As Boolean = True
Dim s As String = New String("")
For Each arg In args
Console.WriteLine(arg)
Next
If args.length < 1 Then
Console.WriteLine("日付を指定してください")
return 1
End If
'DateTimeに変換できるか確かめる
Try
start_dt = DateTime.Parse(args(0))
end_dt = start_dt.AddDays(1)
Catch
isdate = False
Console.WriteLine("日付を指定してください")
return 1
End Try
Try
' DB接続文字列の設定
' プロジェクトフォルダ下のbinフォルダにsample.mdbを置く
con.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\users\ユーザ名\Documents\db1.mdb"

' コネクションの設定
cmd.Connection = con

' SQL文の設定
cmd.CommandText = "SELECT 日付, 個数 "
cmd.CommandText &= "FROM aテーブル "
cmd.CommandText &= "WHERE 日付 >= @start_dt and 日付 < @end_dt"

' DB接続を開く
con.Open()

' SQL文パラメータの設定
cmd.Parameters.Add("@start_dt", OleDbType.date)
cmd.Parameters("@start_dt").Value = start_dt
cmd.Parameters.Add("@end_dt", OleDbType.date)
cmd.Parameters("@end_dt").Value = end_dt

dr = cmd.ExecuteReader()
Do While dr.Read()
Console.WriteLine( dr(0).ToString() & vbTab & dr(1).ToString() )
Loop
dr.Close
Catch ex As Exception
Console.WriteLine(ex.ToString())
return 1
End Try
return 0
End Function
End Class
かなり手抜きですが（エラーも標準出力に出している）。

お礼

nora1962さん

ご回答ありがとうございました。

参考にさせて頂きました。
日付を分けて考えないといけないんですね。

このままではうまくいかず、Accessなので、日付を#で囲まないとうまくいきませんでした。

このようにしてみました。

Dim tojitu As String = "#" & CDate(yy & "/" & mm & "/" & dd) & "#"
Dim tuginohi As String = "#" & CDate(yy & "/" & mm & "/" & dd).AddDays(+1) & "#"

da = New OleDb.OleDbDataAdapter("SELECT * FROM TableName where DATE >= " & tojitu & " AND DATE < " & tuginohi , cn)

これで何とか希望通りのものができました。
ありがとうございました！