• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

felix009

calendar tool nao funciona bem

9 mensagens neste tópico

pessoal tou a usar o calendar tool para gravar dados com data, mas o problema e que ele grava com a da de 1894... :mad:

mas se o campo da BD estiver em text ja funciona. alguem tem ideia do que possa ser? (o meu  e um jornal online em vb) :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

comunidade ninguem na minha escola entende isto. . :shocking:

e acho que no forum tambem nao... :)

entao caso alguem descubra mandem ou mail ou assim.. fica aqui:

evilcat_24@hotmail.com

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

posto aqui entao o codigo e uma imagem com um esquema:

semttulo1j.jpg

width=750 height=468http://img148.imageshack.us/img148/1156/semttuloybz.jpg[/img]

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim act As DateTime
    Dim data As DateTime

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As New Data.SqlClient.SqlConnection
        Dim cmd As New Data.SqlClient.SqlCommand
        Dim dados As Data.SqlClient.SqlDataReader
        Dim sql As String
        Dim nr As Integer
        'ALTERAR O CAMINHO PARA BASE DE DADOS

        cn.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Kalfis\Desktop\PAP\WebSite3\App_Data\Database.mdf;Integrated Security=True;User Instance=True"
        cn.Open()
        cmd.Connection = cn
        sql = "select * from Noticia order by cod_noticia desc"
        cmd.CommandText = sql
        dados = cmd.ExecuteReader
        dados.Read()
        If Not dados.HasRows Then
            nr = 1
        Else
            nr = dados.GetValue(0) + 1
        End If

        sql = "insert into Noticia (cod_noticia, data, data_limite) values  ( " & nr & ", " & Convert.ToDateTime(TextBox1.Text) & ", " & Convert.ToDateTime(Calendar1.SelectedDate) & ")"


        cmd.CommandText = sql
        cmd.Dispose()
        dados.Close()
        cmd.Connection = cn
        cmd.CommandText = sql
        MsgBox(sql)
        dados = cmd.ExecuteReader
        dados.Read()
        cn.Dispose()

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        TextBox1.Text = Now.Day & "-" & Now.Month & "-" & Now.Year






    End Sub

    Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged

        ' data = Calendar1.SelectedDate




    End Sub
End Class

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Esse codigo nao te está a dar erro de certeza quando carregas no butão?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nao, quando carrego no botao aparece-me uma msgbox a dizer o q o sql esta a fazer e o q esta a guardar, na mensagem aparece q esta a guardar a data correcta mas depois quando vou ver a base de dados a data esta a ser gravada em um dia antes(estamos a 25 e ele esta a gravar a 24), no mes 7 de 1894

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

faz:

sql = "insert into Noticia (cod_noticia, data, data_limite) values  ( " & nr & ", " & Convert.ToDateTime(TextBox1.Text) & ", " & "TO_DATE('" & Format(Calendar1.SelectedDate, "dd/MM/yyyy HH:mm:ss") & "','DD/MM/YYYY HH24:mi:ss')"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora