DUVIDAS EM VISUAL BASIC
Boas Pessoal,
Gostaria que me ajudassem porque estou aqui com umas dúvidas,e não consigo perceber o erro.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.HospedesTableAdapter.Insert(TxtContacto.Text, TxtNomedoHospede.Text, TxtIDFormadePagamento.Text, TxtIDServiços.Text)
Me.HospedesTableAdapter.Update(_Ho_GestDataSet.Hospedes)
MsgBox([Ô]Gravado com Sucesso![Ô])
Me.HospedesTableAdapter.Fill(Me._Ho_GestDataSet.Hospedes)
End Sub
End Class
Qual é a mensagme de erro que retorna?
O primeiro erro, é usar este código sem um tratamento mÃnimo de exceções...
O que quer dizer com isso do tratamento de exceções? Eu acho que o erro tem a ver com o que está dentro do (). [Ô]A conversão da cadeia [Ô][Ô] para o tipo [ô]Integer[ô] não é válida.[Ô]
Então, se tivesse um tratamento você veria esse erro mais facilmente.
O seu problema é que um dos campos na sua tabela é do tipo numérico e o campo que se refere à ele está vazio, tenho quase certeza se tratar do TxtIDServiços;
O seu problema é que um dos campos na sua tabela é do tipo numérico e o campo que se refere à ele está vazio, tenho quase certeza se tratar do TxtIDServiços;
E como é que eu resolvo isso? é que já em outro código eu tive outro erro e acho que foi por causa da data,como é que eu resolvo isso?
Resolva isso, colocando um ID de serviço válido no campo correspondente, ou caso não tenha um valor mesmo, faça:
Me.HospedesTableAdapter.Insert(TxtContacto.Text, TxtNomedoHospede.Text, TxtIDFormadePagamento.Text, iif(TxtIDServiços.Text = [Ô][Ô], Nothing, TxtIDServiços.Text))
Me.HospedesTableAdapter.Insert(TxtContacto.Text, TxtNomedoHospede.Text, TxtIDFormadePagamento.Text, iif(TxtIDServiços.Text = [Ô][Ô], Nothing, TxtIDServiços.Text))
Muito obrigado! Esse problema já está resolvido. Mas agora tenho outro por causa da data,não sei como fazer isto.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.QuartosTableAdapter.Insert(TxtNumerodoQuarto.Text, TxtCheckIn.Text , TxtCheckOut.Text , TxtCheckOutTardio.Text, TxtIDReservas.Text)
Me.QuartosTableAdapter.Update(_Ho_GestDataSet.Quartos)
MsgBox([Ô]Guardado com Sucesso![Ô])
Me.QuartosTableAdapter.Fill(Me._Ho_GestDataSet.Quartos)
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.QuartosTableAdapter.Insert(TxtNumerodoQuarto.Text, TxtCheckIn.Text , TxtCheckOut.Text , TxtCheckOutTardio.Text, TxtIDReservas.Text)
Me.QuartosTableAdapter.Update(_Ho_GestDataSet.Quartos)
MsgBox([Ô]Guardado com Sucesso![Ô])
Me.QuartosTableAdapter.Fill(Me._Ho_GestDataSet.Quartos)
End Sub
End Class
Você viu o que fiz no comando anterior, usando um if ternário? Faça a mesma coisa no que está dando problema, se for o mesmo problema.
O erro que me dá é este [Ô]A conversão da cadeia [Ô][Ô] para o tipo [ô]Date[ô] não é válida.[Ô],meto o if no IDReservas?
Qual campo dessa tabela é do tipo data? A mensagem diz claramente que o valor [Ô][Ô](ou seja, em branco) não pode ser convertido para uma data...
Tópico encerrado , respostas não são mais permitidas