SALVAR CAMPO DATA

ELMO01 25/04/2011 13:27:21
#372349
oi pessoal,

Estou tentando salvar um campo data no mysql mas não está dando certo, o código está abaixo:

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim NewDatCar As Date = Now()
NewDatCar = Mid(NewDatCar.AddYears(4), 1, 10)
[ô]
[ô] Inclusão do Associado
[ô]
Dim Conn As New MySqlConnection(StrAssoc)
Conn.Open()
CCampos = [Ô]matricula_associado, nome_razao_social, numero_carteirinha,id_tipo_categoria_associado,[Ô]
CCampos = CCampos & [Ô]data_cadastro[Ô]

CValores = [Ô][ô][Ô] & Txt_AssMat.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Txt_AssNom.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Txt_Num_Cart.Text & [Ô][ô],[Ô]
CValores = CValores & [Ô][ô][Ô] & Cmb_AssCat.Text & [Ô][ô],[Ô]
** CValores = CValores & [Ô][ô][Ô] & Format(CType(NewDatCar, Date), [Ô]yyyy-MM-dd[Ô]) & [Ô][ô][Ô]

cSQL = [Ô]INSERT INTO ASSOCIADOS([Ô] & CCampos & [Ô]) values ([Ô] & CValores & [Ô])[Ô]

Dim Cmd As New MySqlCommand(cSQL, Conn)
Cmd.ExecuteNonQuery()


End Sub

Para salvar este tipo de dado é assim ou estou fazendo de modo errado.

Obrigado,

PS: ** é a linha que está dando erro.
ELMO01 25/04/2011 13:48:44
#372356
não, só quero salvar a informação de uma variável tipo data no arquivo do mysql, na estrutura deste arquivo possui um campo tipo data, é aonde quero que salve a informação desta variável.
JONATHANSTECKER 25/04/2011 14:05:57
#372359 Resposta escolhida
O que você está tentando fazer com isso?
Dim NewDatCar As Date = Now()
NewDatCar = Mid(NewDatCar.AddYears(4), 1, 10)

Caso esteja querendo adicionar 4 anos ao ano atual, tente dessa forma.:

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
            Dim NewDatCar As Date = Now().AddYears(4)
            [ô]
            [ô] Inclusão do Associado
            [ô]
            Dim Conn As New MySqlConnection(StrAssoc)
            Conn.Open()
            CCampos = [Ô]matricula_associado, nome_razao_social, numero_carteirinha,id_tipo_categoria_associado,[Ô]
            CCampos = CCampos & [Ô]data_cadastro[Ô]

            CValores = [Ô][ô][Ô] & Txt_AssMat.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Txt_AssNom.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Txt_Num_Cart.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Cmb_AssCat.Text & [Ô][ô],[Ô]
**         CValores = CValores & [Ô][ô][Ô] & NewDatCar & [Ô][ô][Ô]
            
           cSQL = [Ô]INSERT INTO ASSOCIADOS([Ô] & CCampos & [Ô]) values ([Ô] & CValores & [Ô])[Ô]

           Dim Cmd As New MySqlCommand(cSQL, Conn)
           Cmd.ExecuteNonQuery()
End Sub
ELMO01 25/04/2011 14:15:26
#372362
Jonathan - é isto mesmo, quero adcionar 4 anos na data atual, mas na hora de salvar a informação dá erro, ao invés da data está no formato yyyy-mm-dd está dd-mm-yyyy mais e o que quero salvar é só data sem a hora.
JONATHANSTECKER 25/04/2011 14:19:28
#372364
Da forma que passei não funcionou? Teria que funcionar!
Mas de qualquer forma, tente aplicando o Format.:
CValores = CValores & [Ô][ô][Ô] & Format(NewDatCar, [Ô]yyyy-MM-dd[Ô]) & [Ô][ô][Ô]
ELMO01 25/04/2011 14:32:35
#372367
Tb não funcionou, lembrando que o na estrutura do meu banco de dados o campo data_cadastro é do tipo data e não varchar, pode ser isto???
JONATHANSTECKER 25/04/2011 14:46:46
#372370
Acredito que não deva ser por causa disso não... O erro esta ocorrendo na instrução SQL e não nos tipos de dados.
Faz o seguinte, adicionei uma Caixa de Mensagem nesse método, faz um print e posta aqui para eu darmos uma analisada.
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
            Dim NewDatCar As Date = Now().AddYears(4)
            [ô]
            [ô] Inclusão do Associado
            [ô]
            Dim Conn As New MySqlConnection(StrAssoc)
            Conn.Open()
            CCampos = [Ô]matricula_associado, nome_razao_social, numero_carteirinha,id_tipo_categoria_associado,[Ô]
            CCampos = CCampos & [Ô]data_cadastro[Ô]

            CValores = [Ô][ô][Ô] & Txt_AssMat.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Txt_AssNom.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Txt_Num_Cart.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Cmb_AssCat.Text & [Ô][ô],[Ô]
            CValores = CValores & [Ô][ô][Ô] & Format(NewDatCar, [Ô]yyyy-MM-dd[Ô]) & [Ô][ô][Ô]
            
           cSQL = [Ô]INSERT INTO ASSOCIADOS([Ô] & CCampos & [Ô]) values ([Ô] & CValores & [Ô])[Ô]
           MessageBox.Show(cSQL)

           Dim Cmd As New MySqlCommand(cSQL, Conn)
           Cmd.ExecuteNonQuery()
End Sub
ELMO01 25/04/2011 15:11:14
#372373
Jonathan - estou anexando as telas com os erros gerados
JONATHANSTECKER 25/04/2011 15:27:59
#372375
Tente passando esses dados por parâmetros, vamos ver que bicho vai dar...
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    Dim Conn As New MySqlConnection(StrAssoc)
    Conn.Open()

    Dim Cmd As New MySqlCommand([Ô]INSERT INTO ASSOCIADOS (matricula_associado, nome_razao_social, numero_carteirinha, id_tipo_categoria_associado, data_cadastro) VALUES (@matricula_associado, @nome_razao_social, @numero_carteirinha, @id_tipo_categoria_associado, @data_cadastro)[Ô], Conn)
    Cmd.Parameters.AddWithValue([Ô]@matricula_associado[Ô], Txt_AssMat.Text)
    Cmd.Parameters.AddWithValue([Ô]@nome_razao_social[Ô], Txt_AssNom.Text)
    Cmd.Parameters.AddWithValue([Ô]@numero_carteirinha[Ô], Txt_Num_Cart.Text)
    Cmd.Parameters.AddWithValue([Ô]@id_tipo_categoria_associado[Ô], Cmb_AssCat.Text)
    Cmd.Parameters.AddWithValue([Ô]@data_cadastro[Ô], Now().AddYears(4))

    Cmd.ExecuteNonQuery()
End Sub

Obs.: Caso não funcione, poste como ficou a Query.
Vamos resolver esse problema!
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar