Pelo que tenho observado o caminho para acertar o relacionamento de data do ASP com o Access na minha aplicação é melhorar o meu select e esta é a minha dúvida, como estabelecer parâmetros para o meu Select?
Para melhor compreender abaixo as alternativas sem sucesso:
Primeira:
Dim Hora As Date
ddlEntrada.Text = Hora.Year
Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 1989
Segunda:
String.Format("{0:yyyy}", ddlEntrada.Text)
Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 1989
Terceira:
Response.Write(String.Format("{0:Thh:mm:ss-hh:mm}", ddlEntrada.Text) & "<br>")
Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 07:00:00
Quarta:
Response.Write(String.Format("{0:y}", CDate(ddlEntrada.Text)) & "<br>")
Neste caso o retorno é: "A conversão da cadeia de caracteres '' no tipo 'Date' não é válida." enquanto esperava: 1899
Quinta:
Dim Hora As Date
ddlEntrada.Text = Hora.Year
Neste caso o retorno é: 1899-12-30T07:00:00-03:00 enquanto esperava: 1989
Obs.: No Access a tbAgendaHora tem o campo siglaHora que é Data/Hora Formato hh:nn:ss e ddl é um DropDownList.
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
cargaDset()
gravaXML()
Session.Add("DS", DSet)
Else
DSet = Session.Item("DS")
End If
End Sub
Private Sub gravaXML()
DSet.WriteXml(Server.MapPath("Output.xml"), XmlWriteMode.IgnoreSchema)
DSet.WriteXmlSchema(Server.MapPath("Output.xsd"))
End Sub
Private Sub cargaDset()
DSet.Tables.Clear()
Dim Dadapter99 As OleDbDataAdapter = New OleDbDataAdapter
Dadapter99.SelectCommand = New OleDbCommand("SELECT codHora,siglaHora FROM tbAgendaHora", New OleDbConnection(My.Settings.SIConecte))
Dadapter99.Fill(DSet, "TBAgendaHora")
End Sub
Inherits System.Web.UI.Page
Dim con As New OleDbConnection
Dim Dadapter As OleDbDataAdapter = New OleDbDataAdapter
Dim DSet As New DataSet
Dim retDATASET As DataSet = New DataSet
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
cargaDset()
Session.Add("DS", DSet)
Else
DSet = Session.Item("DS")
End If
End Sub
Private Sub cargaDset()
ddlEntrada.Items.Clear()
ddlEntrada.DataSource = retDATASET.Tables("TBAgendaHora")
ddlEntrada.DataTextField = ("siglaHora")
ddlEntrada.DataValueField = ("codHora")
ddlEntrada.DataBind()
End Sub