none
Falha ao converter valor de parametro de String em DateTime RRS feed

  • Pergunta

  • Boa tarde!

    Não estou conseguindo salvar as data/hora no meu Banco Access 2013.

    Estou obtendo a data/hora a partir de uma MASKEDTEXTBOX que captura a data/hora atual do PC, para que o usuário não interfira nesse dado.

    *****apesar do nome está em maskedtextbox na verdade é uma textbox.

    MaskedTextBox_HorarioLigacao.Text = DateTime.Now

    usei um bloco try/cath e o erro retornado foi esse: Falha ao converter valor de parametro de String em DateTime 

    no Banco esses campos estão formatados como Data/hora.

    segue abaixo os parametros:

                Dim ConnectionString As New OleDbConnection(ConfigurationManager.ConnectionStrings("Tela_de_LigaçõesConnectionString").ConnectionString)
                Dim query As String = "INSERT INTO LIGACOES ([ID_SETOR], [RESPONSAVEL], [NOME], [ASSUNTO], [TEL1], [TEL2], [EMAIL], [HORARIO_INICIAL], [ID_STATUS], [HORARIO_FINAL], [OBS], [CRIADO_POR]) VALUES (@Id_Setor, @Responsavel, @Nome, @Assunto, @Tel1, @Tel2, @Email, @Horario_Inicial, @Id_Status, @Horario_Final, @Obs, @Criado_Por)"
    
                Dim command As New OleDbCommand(query, ConnectionString)
    
    
                command.Parameters.Add("@Id_Setor", OleDbType.VarChar).Value = ComboBox_Setor.SelectedValue.ToString
                command.Parameters.Add("@Responsavel", OleDbType.VarChar).Value = TextBox_PessoaResponsavel.SelectedValue.ToString
                command.Parameters.Add("@Nome", OleDbType.VarChar).Value = TextBox_NomedoCliente.Text
                command.Parameters.Add("@Assunto", OleDbType.VarChar).Value = TextBox_Assunto.Text
                command.Parameters.Add("@Tel1", OleDbType.VarChar).Value = MaskedTextBox_Tel1.Text
                command.Parameters.Add("@Tel2", OleDbType.VarChar).Value = MaskedTextBox_Tel2.Text
                command.Parameters.Add("@Email", OleDbType.VarChar).Value = TextBox_Email.Text
                command.Parameters.Add("@Horario_Inicial", OleDbType.DBDate).Value = "#" & MaskedTextBox_HorarioLigacao.Text & "#"
                command.Parameters.Add("@Id_Status", OleDbType.VarChar).Value = ComboBox_Status.SelectedValue.ToString
                command.Parameters.Add("@Horario_Final", OleDbType.DBDate).Value = "#" & MaskedTextBox_HorarioRetorno.Text & "#"
                command.Parameters.Add("@Obs", OleDbType.VarChar).Value = RichTextBox_Observacoes.Text
                command.Parameters.Add("@Criado_Por", OleDbType.VarChar).Value = TextBox_CriadoPor.Text
    
                ConnectionString.Open()
    
                Dim x As Integer = command.ExecuteNonQuery()
    
                If x < 1 Then
                    MessageBox.Show("Erro ao salvar!", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    Call AvisoEmail()
                    MessageBox.Show("Retorno salvo com sucesso! Responsável também foi notificado via email.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
    
    
        End Sub



    sexta-feira, 11 de março de 2016 15:53

Respostas

Todas as Respostas