none
Estabelecendo parâmetros para o Select RRS feed

  • Pergunta

  • 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

    quinta-feira, 12 de julho de 2012 18:29