Ola a todos, preciso de uma ajudada de vcs ai:
Tenho um form que faz um insert no BD Access, até ai blz, agora quando vou fazer uma alteração no registro ou um select ele da erro de dados incompativeis na expressão de critérios.
Vou postar o código, se alguem puder me ajudar.
Para inserir:
Comando.CommandText = "INSERT INTO CadMotorista ( Nome, Cidade, TelFixo, TelCel, Observacao, EscAnterior, DataApresentacao, Contrato, Escalado, 1Safra, NaoPegar )"& _" VALUES ( @Nome, @Cidade, @TelFixo, @TelCel, @Observacao, @EscAnterior, @DataApresentacao, @Contrato, @Escalado, @1Safra, @NaoPegar )" Comando.Parameters.Clear() Comando.Parameters.Add("@Nome", OleDbType.VarChar, 40).Value = txtNome.Text Comando.Parameters.Add("@Cidade", OleDbType.VarChar, 40).Value = txtCidade.Text Comando.Parameters.Add("@TelFixo", OleDbType.VarChar, 15).Value = mskTelFixo.Text Comando.Parameters.Add("@TelCel", OleDbType.VarChar, 15).Value = mskTelCel.Text Comando.Parameters.Add("@Observacao", OleDbType.VarChar, 255).Value = txtObsrv.Text Comando.Parameters.Add("@EscAnterior", OleDbType.VarChar, 10).Value = txtEscAnt.Text Comando.Parameters.Add("@DataApresentacao", OleDbType.VarChar, 12).Value = dtApresentacao.Text Comando.Parameters.Add("@Contrato", OleDbType.VarChar, 10).Value = cmbTipoContr.Text Comando.Parameters.Add("@Escalado", OleDbType.Boolean, 1).Value = CheckBox1.Checked Comando.Parameters.Add("@1Safra", OleDbType.Boolean, 1).Value = CheckBox2.Checked Comando.Parameters.Add("@NaoPegar", OleDbType.Boolean, 1).Value = CheckBox3.Checked Comando.CommandType = CommandType.Text Comando.Connection = Con Dim c AsIntegerTry c = Comando.ExecuteNonQueryCatch ex As Exception MessageBox.Show("Confira se todos os campos estão preenchidos."& ex.Message)ReturnEndTry
Para Alterar:
Comando.CommandText = "UPDATE CadMotorista SET Nome = '" & txtNome.Text & "' ," & _"Cidade = '" & txtCidade.Text & "' ," & _"TelFixo = '" & mskTelFixo.Text & "' ," & _"TelCel = '" & mskTelCel.Text & "' ," & _"Observacao = '" & txtObsrv.Text & "' ," & _"EscAnterior = '" & txtEscAnt.Text & "' ," & _" DataApresentacao = '" & dtApresentacao.Text & "' ," & _"Contrato = '" & cmbTipoContr.Text & "' ," & _"Escalado = '" & CheckBox1.Checked & "' ," & _"1Safra = '" & CheckBox2.Checked & "' ," & _"NaoPegar = '" & CheckBox3.Checked & "' " & _" WHERE Codigo = " & txtCod.Text
Comando.CommandType = CommandType.Text
Comando.Connection = Con
Dim c As Integer
Try
c = Comando.ExecuteNonQuery
Catch ex As Exception
MessageBox.Show("Erro ao gravar dados no Banco de Dados : " & ex.Message)
Return
End Try
