SALVAR CAMPO DATA

ELMO01 25/04/2011 15:33:26
#372376
Jonathan deu certo - muito obrigado, só não entendi porque não deu certo no modo que estava fazendo??
JONATHANSTECKER 25/04/2011 15:41:34
#372378
é que passando por parâmetros, você não precisa se preocupar em colocar as ASPAS SIMPLES e nem as ASPAS DUPLAS, e nem mesmo aplicar o FORMAT nas datas para converter o tipo de dados... Muito mais tranqüilo e seguro.
Quando pedi para você me passar o Print daquela caixa de mensagem era para eu ver como ficou a query final. Para justamente ajustar essas ASPAS.
Compreendeu?
ELMO01 25/04/2011 15:47:29
#372379
Sim , mas como faço para quebrar esta linha de instrução, pois a estrutura do banco de dados tem 40 variáveis diferentes.
JONATHANSTECKER 25/04/2011 16:03:31
#372383
é só trabalhar com essas Strings
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 Campos As String = (matricula_associado, nome_razao_social, numero_carteirinha, id_tipo_categoria_associado, data_cadastro)
    Dim Valores As String = (@matricula_associado, @nome_razao_social, @numero_carteirinha, @id_tipo_categoria_associado, @data_cadastro)
    Dim cSQL As String = [Ô]INSERT INTO ASSOCIADOS[Ô] & Campos & [Ô] VALUES [Ô] & Valores

    Dim Cmd As New MySqlCommand(cSQL, 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
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar