Estou a enfrentar um problema a tentar inserir dados, o erro diz que está relacionado com a data, já tentei alterar o formato da data e o erro continua.
Codigo:
Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick Dim command As New SqlCommand("insert into funcionarios(id, funcid, pnome, apelido, datanascimento, naturalidade, estadocivil, genero, documentotipo, documentoid, telefone, email, endereco, certificadocopia, cvcopia, bicopia, nuitcopia, diplomacopia, dataingressao, datasaida, banco, titular, numeroconta, nib, afetacao, categoria, funcao, progressao, carreira, dependentes, filhos, mulher, departamento, fotografia, dataregisto, dataatualizacao, mulhernome, filhonome1, filhonome2, filhonome3, filhonome4, filhonome5) values (@id, @funcid, @pnome, @apelido, @datanascimento, @naturalidade, @estadocivil, @genero, @documentotipo, @documentoid, @telefone, @email, @endereco, @certificadocopia, @cvcopia, @bicopia, @nuitcopia, @diplomacopia, @dataingressao, @datasaida, @banco, @titular, @numeroconta, @nib, @afetacao, @categoria, @funcao, @progressao, @carreira, @dependentes, @filhos, @mulher, @departamento, @fotografia, @dataregisto, @dataatualizacao, @mulhernome, @filhonome1, @filhonome2, @filhonome3, @filhonome4, @filhonome5)", conexao) Dim ms As New MemoryStream Ffotografia.Image.Save(ms, Ffotografia.Image.RawFormat) 'Dim ms2 As New MemoryStream 'Fcertificado.Image.Save(ms2, Fcertificado.Image.RawFormat) 'Dim ms3 As New MemoryStream 'Fcurricum.Image.Save(ms3, Fcurricum.Image.RawFormat) 'Dim ms4 As New MemoryStream 'Fbidenti.Image.Save(ms4, Fbidenti.Image.RawFormat) 'Dim ms5 As New MemoryStream 'Fnuit.Image.Save(ms5, Fnuit.Image.RawFormat) 'Dim ms6 As New MemoryStream 'Fdiploma.Image.Save(ms6, Fdiploma.Image.RawFormat) command.Parameters.Add("@id", SqlDbType.Int).Value = txtID.Text command.Parameters.Add("@funcid", SqlDbType.Int).Value = txtfuncid.Text command.Parameters.Add("@pnome", SqlDbType.NVarChar).Value = txtnome.Text command.Parameters.Add("@apelido", SqlDbType.NVarChar).Value = txtapelido.Text command.Parameters.Add("@datanascimento", SqlDbType.Date).Value = datanascimento.Value.ToString("yyyy-MM-dd") command.Parameters.Add("@naturalidade", SqlDbType.NVarChar).Value = cmbnaturalidade.SelectedItem command.Parameters.Add("@estadocivil", SqlDbType.NVarChar).Value = cmbestado.SelectedItem command.Parameters.Add("@genero", SqlDbType.NVarChar).Value = cmbgenero.SelectedItem command.Parameters.Add("@documentotipo", SqlDbType.NVarChar).Value = cmbtipoid.SelectedItem command.Parameters.Add("@documentoid", SqlDbType.BigInt).Value = txtdocn.Text command.Parameters.Add("@telefone", SqlDbType.BigInt).Value = txttelefone.Text command.Parameters.Add("@email", SqlDbType.Int).Value = txtemail.Text command.Parameters.Add("@endereco", SqlDbType.NVarChar).Value = txtendereco.Text ' command.Parameters.Add("@certificadocopia", SqlDbType.Image).Value = ms2.ToArray() 'command.Parameters.Add("@cvcopia", SqlDbType.Image).Value = ms3.ToArray() 'command.Parameters.Add("@bicopia", SqlDbType.Image).Value = ms4.ToArray() 'command.Parameters.Add("@nuitcopia", SqlDbType.Image).Value = ms5.ToArray() 'command.Parameters.Add("@diplomacopia", SqlDbType.Image).Value = ms6.ToArray() command.Parameters.Add("@dataingressao", SqlDbType.Date).Value = dataingressao.Value.ToString("yyyy-MM-dd") command.Parameters.Add("@datasaida", SqlDbType.Date).Value = "" command.Parameters.Add("@banco", SqlDbType.NVarChar).Value = txtbanco.Text command.Parameters.Add("@titular", SqlDbType.NVarChar).Value = txttitular.Text command.Parameters.Add("@numeroconta", SqlDbType.BigInt).Value = txtnumero.Text command.Parameters.Add("@nib", SqlDbType.BigInt).Value = txtnib.Text command.Parameters.Add("@afetacao", SqlDbType.NVarChar).Value = cmbafetacao.SelectedItem command.Parameters.Add("@categoria", SqlDbType.NVarChar).Value = cmbcategoria.SelectedItem command.Parameters.Add("@funcao", SqlDbType.NVarChar).Value = cmbfuncao.SelectedItem command.Parameters.Add("@progressao", SqlDbType.NVarChar).Value = cmbprogressao.SelectedItem command.Parameters.Add("@carreira", SqlDbType.NVarChar).Value = cmbcarreira.SelectedItem command.Parameters.Add("@dependentes", SqlDbType.Int).Value = dependentescheck.CheckState command.Parameters.Add("@filhos", SqlDbType.Int).Value = filhocheck.CheckState command.Parameters.Add("@mulher", SqlDbType.Int).Value = mulhercheck.CheckState command.Parameters.Add("@departamento", SqlDbType.NVarChar).Value = cmbdepartamento.SelectedItem command.Parameters.Add("@fotografia", SqlDbType.Image).Value = ms.ToArray() 'command.Parameters.Add("@dataregisto", SqlDbType.Date).Value = Date.Now 'command.Parameters.Add("@datatualizacao", SqlDbType.Date).Value = Date.Now command.Parameters.Add("@mulhernome", SqlDbType.NVarChar).Value = txtmulher.Text command.Parameters.Add("@filhonome1", SqlDbType.NVarChar).Value = txtfilho1.Text command.Parameters.Add("@filhonome2", SqlDbType.NVarChar).Value = txtfilho2.Text command.Parameters.Add("@filhonome3", SqlDbType.NVarChar).Value = txtfilho3.Text command.Parameters.Add("@filhonome4", SqlDbType.NVarChar).Value = txtfilho4.Text command.Parameters.Add("@filhonome5", SqlDbType.NVarChar).Value = txtfilho5.Text If conexao.State = ConnectionState.Closed Then conexao.Open() End If If command.ExecuteNonQuery() = 1 Then MessageBox.Show("Sucesso") Else MessageBox.Show("Falha") End If conexao.Close() End Sub 