PROBLEMA AO SALVAR EM BANCO DE DADOS.

CLAUDIOD 29/06/2011 01:27:36
#377991

Boa noite, tenho um formulário que se preencher todos os campos ele salva no banco de dados, porém, se algum campo do tipo Hora ficar sem preencher ele não salva.

Abaixo segue os dados. Poderiam me ajudar?

Tenho uma tabela:
IdPonto – Int
Funcionario – Nvarchar
Data – Date
HoraEntrada – Time
HoraSaidaAlmoco – Time
HoraEntradaAlmoco – Time
HoraSaida – Time
Todos estão marcados como Allow Nulls, menos a chave que é o IdPonto, ou seja, somente a chave é obrigatória.


Tenho um formulário que se preencher todos os campos ao clicar no botão salvar ele salva, porém, se deixar um campo de hora sem preencher ele não aceita, segue o código do botão salvar:
A mensagem de erro é: Falha ao converter valor de parâmetro de String em TimeSpan.

Conectar()
Dim conn As New SqlConnection(strCon)
[ô]O CodProduto e o @CodProduto foram inseridos porque o banco não está inserindo automaticamente o código
[ô]O código está sendo inserido automaticamente através do usuário.
[ô]Caso o auto incremento do banco de dados for ativado, tem que tirar os valores do CodProduto de todo o código abaixo
Dim SQL As String = [Ô]INSERT INTO TblPonto (IdPonto, funcionario, Data, HoraEntrada, HoraSaidaAlmoco, HoraEntradaAlmoco,[Ô] _
& [Ô]HoraSaida) VALUES (@IdPonto, @funcionario, @Data, @HoraEntrada, @HoraSaidaAlmoco, @HoraEntradaAlmoco,[Ô] _
& [Ô]@HoraSaida)[Ô]
Dim cmd As New SqlCommand(SQL, conn)

Dim sqlcod As String = [Ô]Select ISNULL(Max(IdPonto),0)+1 From TblPonto[Ô]
Dim sqlcmdcod As New SqlCommand(sqlcod, conn)

conn.Open()
TxtIdPonto.Text = sqlcmdcod.ExecuteScalar().ToString()

conn.Close()

cmd.Parameters.Add([Ô]@IdPonto[Ô], SqlDbType.Int)
cmd.Parameters.Add([Ô]@funcionario[Ô], SqlDbType.NVarChar)
cmd.Parameters.Add([Ô]@Data[Ô], SqlDbType.Date)
cmd.Parameters.Add([Ô]@HoraEntrada[Ô], SqlDbType.Time)
cmd.Parameters.Add([Ô]@HoraSaidaAlmoco[Ô], SqlDbType.Time)
cmd.Parameters.Add([Ô]@HoraEntradaAlmoco[Ô], SqlDbType.Time)
cmd.Parameters.Add([Ô]@HoraSaida[Ô], SqlDbType.Time)


cmd.Parameters([Ô]@IdPonto[Ô]).Value = TxtIdPonto.Text
cmd.Parameters([Ô]@funcionario[Ô]).Value = CboxFuncionario.Text
cmd.Parameters([Ô]@Data[Ô]).Value = DtpData.Text
cmd.Parameters([Ô]@HoraEntrada[Ô]).Value = MskHoraEntrada.Text.ToString
cmd.Parameters([Ô]@HoraSaidaAlmoco[Ô]).Value = MskSaidaAlmoco.Text.ToString
cmd.Parameters([Ô]@HoraEntradaAlmoco[Ô]).Value = MskRetornoAlmoco.Text.ToString
cmd.Parameters([Ô]@HoraSaida[Ô]).Value = MskSaida.Text.ToString


Try

conn.Open()
cmd.ExecuteNonQuery()
Carrega_DataGridView()
MessageBox.Show([Ô]Os dados foram salvos com sucesso![Ô])
DesativaDataGridView()
TxtPesquisa.Enabled = True
HabilitaBotoes()
BtnSalvar.Enabled = False

Catch ex As Exception

MessageBox.Show([Ô]Verifique se há campos obrigatórios sem preenchimento. Caso contrário, ocorreu um erro no banco de dados. Favor contatar o administrador![Ô])
BtnNovo.Enabled = True
Finally
conn.Close()
End Try

End If

Grato.