none
Erro Sintaxe RRS feed

  • Pergunta

  • Bom Dia!

    Pessoal, meu código estava rodando na boa, mas do nada começou a dar este erro abaixo:

    MySql.Data.MySqlClient.MySqlException: 'You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'CARLOS ROBERTO DE OLIVEIRA', DataCadastro = '2019-11-14', UsuarioCad = 'RODRIGO ' at line 1'

    e o meu código esta conforme abaixo, por favor, se alguém estiver enxergando algo errado que eu não consegui enxergar até agora, me de uma força.

    Obrigado!

    Try
                Dim DataInicioPrevUSA = Convert.ToDateTime(DtpDataInicio.Text).ToString("yyyy-MM-dd")
                Dim DataFimPrevUSA = Convert.ToDateTime(DtpDataFim.Text).ToString("yyyy-MM-dd")
                Dim DataCadUSA = Convert.ToDateTime(Date.Now).ToString("yyyy-MM-dd")
    
                Dim Status As String = "Realizado"
                Dim OS = LblOsPreventiva.Text
    
                con.Open()
                Dim strBaixaOs As String = ""
                Dim sqlBaixaOsCommand As New MySqlCommand
    
                strBaixaOs = "Update man_sol_preventiva Set ObservacoesPrev = '" & TXTObservacoes.Text & "', DataIniPrev = '" &
                        DataInicioPrevUSA & "', HrIniPrev = '" & MskHoraInicio.Text & "', DataFimPrev = '" &
                        DataFimPrevUSA & "', HrFimPrev = '" & MskHoraFim.Text & "', Status = '" &
                        Status & "'', OperadorManutPrev = '" & CboOperador.Text & "', DataCadastro = '" & DataCadUSA & "', UsuarioCad = '" & MdiMatrix.TSSUsuario.Text & "' Where OSPrev = '" & OS & "'"
    
                'Executa o comando update
                sqlBaixaOsCommand.Connection = con
                sqlBaixaOsCommand.CommandText = strBaixaOs
                sqlBaixaOsCommand.ExecuteNonQuery()
    
                '======Atualiza a data da ultima preventiva, da próxima preventiva e a data da alteração====
                '======das mesmas na tabela man_cronograma.=================================================
    
                Dim strAtuCron As String = ""
                Dim sqlAtuCronCommand As New MySqlCommand
    
                Dim ProximaPrev = DtpDataFim.Value.AddDays(LblPeriodo.Text).ToShortDateString
                Dim ConvProxDataPrev = Convert.ToDateTime(ProximaPrev).ToString("yyyy-MM-dd")
                Dim Programado = "P"
    
                strAtuCron = "Update man_cronograma Set UltimaManutCron = '" & DataFimPrevUSA & "', ProximaPrevCron = '" &
                ConvProxDataPrev & "', DataCadastro = '" & DataCadUSA & "', StatusCron = '" & Programado & "',DataReprogramada = null ,MotivoRP = null ,UsuarioCad = '" & MdiMatrix.TSSUsuario.Text & "' Where MaquinaCron = '" & CboMaquina.Text & "'"
    
                'Executa o comando update
                sqlAtuCronCommand.Connection = con
                sqlAtuCronCommand.CommandText = strAtuCron
                sqlAtuCronCommand.ExecuteNonQuery()
    
                Novo()
    
                con.Close()
            Catch ex As Exception
                MessageBox.Show("Erro ao tentar alterar o registro, verifique os dados e tente novamente, se o erro persistir, entre em contato com o administrador do sistema. Nenhum dado foi salvo!",
                    "Erro ao tentar alterar o registro!",
                    MessageBoxButtons.OK,
                    MessageBoxIcon.Exclamation,
                    MessageBoxDefaultButton.Button1)
            End Try

     

    quinta-feira, 14 de novembro de 2019 14:48

Respostas

Todas as Respostas