文字列から日付および/または時刻を変換するときに変換に失敗しました。 SQLで

Question

私はこの変換に直面している失敗しました。選択したすべての日付をカレンダーで取得し、選択した日付にイベントを表示したい。私は選択された日付を取得することができますが、私は開始日を取得しようとする=選択した日付に。以下のエラーで失敗しました。

追加情報：文字列から日付および/または時刻を変換すると変換に失敗しました。

strSQL = " SELECT CalendarID, Company,Header, convert(date,enddate,103)StartDate, convert(varchar,enddate,103) enddate, (starthour + ' : ' + startmin + ' : ' + startday) starttime, (endhour + ' : '+ endmin+ ' : '+ endday) endtime " & _ 
        "FROM tablename where StartDate ='" & calendar1.SelectedDate.ToShortDateString() & "'" 

私はこれにコードを変更しようとしているだけでなく、同じエラーを持つ

Dim selecteddates As Date 
     selecteddates = calendar1.SelectedDate.ToShortDateString() 

strSQL = " SELECT CalendarID, Company,Header, convert(date,enddate,103)StartDate, convert(date,enddate,103) enddate, (starthour + ' : ' + startmin + ' : ' + startday) starttime, (endhour + ' : '+ endmin+ ' : '+ endday) endtime " & _ 
        "FROM tablename where StartDate =CAST('" & selecteddates & "' AS DATE) " 

Answer 1

正解（S）は、すでにコメントで与えられています。ここでサンプルコードを追加するだけです。

Dim strSQL As String = <sql>SELECT CalendarID, Company,Header, 
      convert(date,enddate,103) StartDate, convert(varchar,enddate,103) enddate, 
      (starthour + ' : ' + startmin + ' : ' + startday) starttime, 
      (endhour + ' : '+ endmin+ ' : '+ endday) endtime 
      FROM mytablename 
      where StartDate >= @dtStart and StartDate < @dtEnd 
      </sql> 

Dim tbl As New DataTable() 
Using con As New SqlConnection("server=.\SQLExpress;Database=MyDatabase;Trusted_Connection=yes") 
    Using cmd = New SqlCommand(strSQL, con) 
     cmd.Parameters.Add("@dtStart", SqlDbType.DateTime).Value = calendar1.SelectedDate.Date 
     cmd.Parameters.Add("@dtEnd", SqlDbType.DateTime).Value = calendar1.SelectedDate.Date.AddDays(1) 
     con.Open() 
     tbl.Load(cmd.ExecuteReader()) 
     con.Close() 
    End Using 
End Using