INSERT com Erro: Tipo de dados imcompatível na expressão de critério.

Question

Alguém tem alguma dica?

Fazendo o BreakPoint o Erro aparece na linha:  Catch ex As System.Data.OleDb.OleDbException

A descrição dos campos estão corretas, assim com a sua ordem.

O código INSERT no Access abaixo:
Private Sub inserir()
        Dim conecte As New OleDbConnection
        conecte.ConnectionString = My.Settings.SIConecte
        Try
            conecte.Open()
        Catch ex As System.Data.OleDb.OleDbException
            Label1.Text = "Erro de conexao com o Banco de Dados: " & ex.Message.ToString
            Return
        End Try
        Dim selcom As New System.Data.OleDb.OleDbCommand
        selcom.Connection = conecte
        selcom.CommandText = "INSERT INTO tbVETAARH (codSINA,codSexoPac,dataNascPac,UFCODPac,MUNCODPac,bairroPac,codVetOcupa,codTipoExp,codLocal,codFerimento,codTipoFerim,dataExp,observaPac,nomePropr,sobrenomeProp,codSexoProp,dataNascimProp,CodSituacaoProp,codTipoEndProp,logradouroProp,numeroProp,bairroLocalProp,UFCODProp,MUNCODProp,telFixo,telCel,nomeAnimal,codVetEspecie,idadeAnimal,codSexoAnimal,codPorte,raca,codLocalAcid,codSimNaoVacinado,codSimNaoCastrado,registro,condicaoObs,observaAnimal)" & _
" VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
        selcom.Parameters.Clear()
        selcom.Parameters.Add("@codSINA", OleDbType.VarChar, 100).Value = txtCodSina.Text
        selcom.Parameters.Add("@codSexoPac", OleDbType.VarChar, 50).Value = rblSexoPac.SelectedValue
        selcom.Parameters.Add("@dataNascPac", OleDbType.VarChar, 50).Value = txtDataNascPac.Text
        selcom.Parameters.Add("@UFCODPac", OleDbType.VarChar, 50).Value = ddlUFPac.SelectedValue
        selcom.Parameters.Add("@MUNCODPac", OleDbType.VarChar, 50).Value = ddlMunPac.SelectedValue
        selcom.Parameters.Add("@bairroPac", OleDbType.VarChar, 100).Value = txtBairroPac.Text
        selcom.Parameters.Add("@codVetOcupa", OleDbType.VarChar, 50).Value = rblVetOcup.SelectedValue
        selcom.Parameters.Add("@codTipoExp", OleDbType.VarChar, 50).Value = rblVetTipoExp.SelectedValue
        selcom.Parameters.Add("@codLocal", OleDbType.VarChar, 50).Value = rblVetLocalExposicao.SelectedValue
        selcom.Parameters.Add("@codFerimento", OleDbType.VarChar, 50).Value = rblVetFere.SelectedValue
        selcom.Parameters.Add("@codTipoFerim", OleDbType.VarChar, 50).Value = rblVetTipoFere.SelectedValue
        selcom.Parameters.Add("@dataExp", OleDbType.VarChar, 50).Value = txtDataExp.Text
        selcom.Parameters.Add("@observaPac", OleDbType.VarChar, 400).Value = txtObsPac.Text
        selcom.Parameters.Add("@nomePropr", OleDbType.VarChar, 300).Value = txtNomeProp.Text
        selcom.Parameters.Add("@sobrenomeProp", OleDbType.VarChar, 100).Value = txtSobreProp.Text
        selcom.Parameters.Add("@codSexoProp", OleDbType.VarChar, 50).Value = rblSexoProp.SelectedValue
        selcom.Parameters.Add("@dataNascimProp", OleDbType.VarChar, 50).Value = txtDataNascProp.Text
        selcom.Parameters.Add("@CodSituacaoProp", OleDbType.VarChar, 50).Value = rblSitProp.SelectedValue
        selcom.Parameters.Add("@codTipoEndProp", OleDbType.VarChar, 50).Value = rblTipoProp.SelectedValue
        selcom.Parameters.Add("@logradouroProp", OleDbType.VarChar, 300).Value = txtLograProp.Text
        selcom.Parameters.Add("@numeroProp", OleDbType.VarChar, 50).Value = txtNumProp.Text
        selcom.Parameters.Add("@bairroLocalProp", OleDbType.VarChar, 200).Value = txtBairroProp.Text
        selcom.Parameters.Add("@UFCODProp", OleDbType.VarChar, 50).Value = ddlUFProp.SelectedValue
        selcom.Parameters.Add("@MUNCODProp", OleDbType.VarChar, 50).Value = ddlMunProp.SelectedValue
        selcom.Parameters.Add("@telFixo", OleDbType.VarChar, 100).Value = txtTelFixoProp.Text
        selcom.Parameters.Add("@telCel", OleDbType.VarChar, 100).Value = txtTelCelProp.Text
        selcom.Parameters.Add("@nomeAnimal", OleDbType.VarChar, 300).Value = txtObsProp.Text
        selcom.Parameters.Add("@codVetEspecie", OleDbType.VarChar, 150).Value = txtNomeAnimal.Text
        selcom.Parameters.Add("@idadeAnimal", OleDbType.VarChar, 50).Value = rblEspecie.SelectedValue
        selcom.Parameters.Add("@codSexoAnimal", OleDbType.VarChar, 10).Value = txtIdade.Text
        selcom.Parameters.Add("@codPorte", OleDbType.VarChar, 50).Value = rblPorte.SelectedValue
        selcom.Parameters.Add("@raca", OleDbType.VarChar, 100).Value = txtRaca.Text
        selcom.Parameters.Add("@codLocalAcid", OleDbType.VarChar, 50).Value = rblLocalAcid.SelectedValue
        selcom.Parameters.Add("@codSimNaoVacinado", OleDbType.VarChar, 50).Value = rblVacinado.SelectedValue
        selcom.Parameters.Add("@codSimNaoCastrado", OleDbType.VarChar, 50).Value = rblCastrado.SelectedValue
        selcom.Parameters.Add("@registro", OleDbType.VarChar, 100).Value = txtRegistro.Text
        selcom.Parameters.Add("@condicaoObs", OleDbType.VarChar, 50).Value = rblCondObs.SelectedValue
        selcom.Parameters.Add("@observaAnimal", OleDbType.VarChar, 300).Value = txtObsAnim.Text
        Dim teste As Boolean
        Try
            teste = selcom.ExecuteNonQuery
        Catch ex As System.Data.OleDb.OleDbException
            Label6.Text = "Erro: " & ex.Message.ToString
            Return
        End Try
        conecte.Close()
        Label2.Text = "Registro inserido e gravado"
        txtCodSina.Focus()
        cargaGRID()
    End Sub

   

Answer 1

Acho que voce deveria tentar remover isto  OleDbType.VarChar, 100 e tenta apenas :selcom.Parameters.Addwithvalue("@codSINA", txtCodSina.Text)

selcom.Parameters.Add("@codSINA", OleDbType.VarChar, 100).Value = txtCodSina.Text

---

http://malange-levi.blogspot.co.uk/

Answer 2

Olá Wilson,

Vc poderia postar por favor o tipo de dados de cada coluna da sua base de dados?

Reparei que existem alguns campos com nome de "data" e que estão recebendo Varchar e outros campos que tem nome de "cod"e estão recebendo outros valores Varchar. Estas colunas não seriam respectivamente DateTime e Int?

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.com/
Twitter: @ferhenrique
Entity Framework - Brasil: https://www.facebook.com/EntityFrameworkBrasil

Answer 3

   selcom.Parameters.AddWithValue("@codSINAN", txtCodSinan.Text)
        selcom.Parameters.AddWithValue("@codSexoPac", rblSexoPac.SelectedValue)
        selcom.Parameters.AddWithValue("@dataNascPac", txtDataNascPac.Text)
        selcom.Parameters.AddWithValue("@UFCODPac", ddlUFPac.SelectedValue)
        selcom.Parameters.AddWithValue("@MUNCODPac", ddlMunPac.SelectedValue)
        selcom.Parameters.AddWithValue("@bairroPac", txtBairroPac.Text)
        selcom.Parameters.AddWithValue("@codVetOcupa", rblVetOcup.SelectedValue)
        selcom.Parameters.AddWithValue("@codTipoExp", rblVetTipoExp.SelectedValue)
        selcom.Parameters.AddWithValue("@codLocal", rblVetLocalExposicao.SelectedValue)
        selcom.Parameters.AddWithValue("@codFerimento", rblVetFere.SelectedValue)
        selcom.Parameters.AddWithValue("@codTipoFerim", rblVetTipoFere.SelectedValue)
        selcom.Parameters.AddWithValue("@dataExp", txtDataExp.Text)
        selcom.Parameters.AddWithValue("@observaPac", txtObsPac.Text)
        selcom.Parameters.AddWithValue("@nomePropr", txtNomeProp.Text)
        selcom.Parameters.AddWithValue("@sobrenomeProp", txtSobreProp.Text)
        selcom.Parameters.AddWithValue("@codSexoProp", rblSexoProp.SelectedValue)
        selcom.Parameters.AddWithValue("@dataNascimProp", txtDataNascProp.Text)
        selcom.Parameters.AddWithValue("@CodSituacaoProp", rblSitProp.SelectedValue)
        selcom.Parameters.AddWithValue("@codTipoEndProp", rblTipoProp.SelectedValue)
        selcom.Parameters.AddWithValue("@logradouroProp", txtLograProp.Text)
        selcom.Parameters.AddWithValue("@numeroProp", txtNumProp.Text)
        selcom.Parameters.AddWithValue("@bairroLocalProp", txtBairroProp.Text)
        selcom.Parameters.AddWithValue("@UFCODProp", ddlUFProp.SelectedValue)
        selcom.Parameters.AddWithValue("@MUNCODProp", ddlMunProp.SelectedValue)
        selcom.Parameters.AddWithValue("@telFixo", txtTelFixoProp.Text)
        selcom.Parameters.AddWithValue("@telCel", txtTelCelProp.Text)
        selcom.Parameters.AddWithValue("@nomeAnimal", txtObsProp.Text)
        selcom.Parameters.AddWithValue("@codVetEspecie", txtNomeAnimal.Text)
        selcom.Parameters.AddWithValue("@idadeAnimal", rblEspecie.SelectedValue)
        selcom.Parameters.AddWithValue("@codSexoAnimal", txtIdade.Text)
        selcom.Parameters.AddWithValue("@codPorte", rblPorte.SelectedValue)
        selcom.Parameters.AddWithValue("@raca", txtRaca.Text)
        selcom.Parameters.AddWithValue("@codLocalAcid", rblLocalAcid.SelectedValue)
        selcom.Parameters.AddWithValue("@codSimNaoVacinado", rblVacinado.Text)
        selcom.Parameters.AddWithValue("@codSimNaoCastrado", rblCastrado.SelectedValue)
        selcom.Parameters.AddWithValue("@registro", txtRegistro.Text)
        selcom.Parameters.AddWithValue("@condicaoObs", rblCondObs.SelectedValue)
        selcom.Parameters.AddWithValue("@observaAnimal", txtObsAnim.Text)

Malange, obrigado pelo retorno. Se fiz certo conforme acima, não tivemos sucesso.

Answer 4

Olá Fernando,

Os campos que iniciam com cod...são = OleDbType.Integer.

Os que iniciam com data...são = OleDbType.WChar.

Quanto a questão de datas eu estou com este enigma para ser desvendado.

Eu postei no Forum ASP.NET este problema com o título:  0:yyyy/MM/ddThh:mm:ss-hh:mm para yyyy ou MM ou dd e Thh:mm:ss

Answer 5

Olá Wilson,

Como estão os campos de data no banco de dados? Como Char ou DateTime?

A melhor forma é utilizar DateTime.

A dica que tenho para o problema que vc esta tendo: seu insert é bastante grande, acredito que se vc começar seus testes inserindo só alguns campos, e adicionando novos campos a cada hora vc encontrará o campos que esta com problema.

O caso é, a mensagem de erro que vc esta recebendo é pq um (ou mais) parâmetro(s) que vc esta passando para o comando, não esta batendo com o tipo de dados da tabela. Por exemplo, vc esta tentando inserir um VARCHAR em um DATETIME, isso causará o estouro deste erro.

Se quiser, me envie seu banco banco de dados que ajusto para vc o INSERT.

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.com/
Twitter: @ferhenrique
Entity Framework - Brasil: https://www.facebook.com/EntityFrameworkBrasil

Answer 6

Olá Fernando,

creio que não estou compreendendo, eu estou com um Access nas seguintes condições:

Os campos que iniciam com cod...são = OleDbType.Integer.

Os que iniciam com data...são = OleDbType.WChar.

Ficaria grato caso tenha disposição para esta análise na tb, sendo assim, como poderia enviar?

Answer 7

Olá Wilson,

Mande para o e-mail [e-mail]

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.com/
Twitter: @ferhenrique
Entity Framework - Brasil: https://www.facebook.com/EntityFrameworkBrasil

Answer 8

Valeu Gigante! deve estar na sua caixa de Email.

Answer 9

Olá Wilson,

Apenas para forçar o INSERT com valores de teste eu fiz a seguinte mudança no código:

        conecte.Open()
        Dim selcom As New System.Data.OleDb.OleDbCommand
        selcom.Connection = conecte
        selcom.CommandText = "INSERT INTO tbVETAARH (codSINAN,codSexoPac,dataNascPac,UFCODPac,MUNCODPac,bairroPac,codVetOcupa,codTipoExp,codLocal,codFerimento,codTipoFerim,dataExp,observaPac,nomePropr,sobrenomeProp,codSexoProp,dataNascimProp,CodSituacaoProp,codTipoEndProp,logradouroProp,numeroProp,bairroLocalProp,UFCODProp,MUNCODProp,telFixo,telCel,nomeAnimal,codVetEspecie,idadeAnimal,codSexoAnimal,codPorte,raca,codLocalAcid,codSimNaoVacinado,codSimNaoCastrado,registro,condicaoObs,observaAnimal)" & _
                              " VALUES(@codSINA,@codSexoPac,@dataNascPac,@UFCODPac,@MUNCODPac,@bairroPac,@codVetOcupa,@codTipoExp,@codLocal,@codFerimento,@codTipoFerim,@dataExp,@observaPac,@nomePropr,@sobrenomeProp,@codSexoProp,@dataNascimProp,@CodSituacaoProp,@codTipoEndProp,@logradouroProp,@numeroProp,@bairroLocalProp,@UFCODProp,@MUNCODProp,@telFixo,@telCel,@nomeAnimal,@codVetEspecie,@idadeAnimal,@codSexoAnimal,@codPorte,@raca,@codLocalAcid,@codSimNaoVacinado,@codSimNaoCastrado,@registro,@condicaoObs,@observaAnimal)"
        selcom.Parameters.Clear()
        selcom.Parameters.Add("@codSINAN", OleDbType.Integer).Value = 0 'txtCodSina.Text
        selcom.Parameters.Add("@codSexoPac", OleDbType.Integer).Value = 0 'rblSexoPac.SelectedValue
        selcom.Parameters.Add("@dataNascPac", OleDbType.VarChar).Value = "TESTE" 'txtDataNascPac.Text
        selcom.Parameters.Add("@UFCODPac", OleDbType.Integer).Value = 0 'ddlUFPac.SelectedValue
        selcom.Parameters.Add("@MUNCODPac", OleDbType.Integer).Value = 0 'ddlMunPac.SelectedValue
        selcom.Parameters.Add("@bairroPac", OleDbType.VarChar).Value = "TESTE" 'txtBairroPac.Text
        selcom.Parameters.Add("@codVetOcupa", OleDbType.Integer).Value = 0 'rblVetOcup.SelectedValue
        selcom.Parameters.Add("@codTipoExp", OleDbType.Integer).Value = 0 'rblVetTipoExp.SelectedValue
        selcom.Parameters.Add("@codLocal", OleDbType.Integer).Value = 0 'rblVetLocalExposicao.SelectedValue
        selcom.Parameters.Add("@codFerimento", OleDbType.Integer).Value = 0 'rblVetFere.SelectedValue
        selcom.Parameters.Add("@codTipoFerim", OleDbType.Integer).Value = 0 'rblVetTipoFere.SelectedValue
        selcom.Parameters.Add("@dataExp", OleDbType.VarChar).Value = "TESTE" 'txtDataExp.Text
        selcom.Parameters.Add("@observaPac", OleDbType.VarChar).Value = "TESTE" 'txtObsPac.Text
        selcom.Parameters.Add("@nomePropr", OleDbType.VarChar).Value = "TESTE" 'txtNomeProp.Text
        selcom.Parameters.Add("@sobrenomeProp", OleDbType.VarChar).Value = "TESTE" 'txtSobreProp.Text
        selcom.Parameters.Add("@codSexoProp", OleDbType.Integer).Value = 0 'rblSexoProp.SelectedValue
        selcom.Parameters.Add("@dataNascimProp", OleDbType.VarChar).Value = "TESTE" 'txtDataNascProp.Text
        selcom.Parameters.Add("@CodSituacaoProp", OleDbType.Integer).Value = 0 'rblSitProp.SelectedValue
        selcom.Parameters.Add("@codTipoEndProp", OleDbType.Integer).Value = 0 'rblTipoProp.SelectedValue
        selcom.Parameters.Add("@logradouroProp", OleDbType.VarChar).Value = "TESTE" 'txtLograProp.Text
        selcom.Parameters.Add("@numeroProp", OleDbType.VarChar).Value = "TESTE" 'txtNumProp.Text
        selcom.Parameters.Add("@bairroLocalProp", OleDbType.VarChar).Value = "TESTE" 'txtBairroProp.Text
        selcom.Parameters.Add("@UFCODProp", OleDbType.Integer).Value = 0 'ddlUFProp.SelectedValue
        selcom.Parameters.Add("@MUNCODProp", OleDbType.Integer).Value = 0 'ddlMunProp.SelectedValue
        selcom.Parameters.Add("@telFixo", OleDbType.VarChar).Value = "TESTE" 'txtTelFixoProp.Text
        selcom.Parameters.Add("@telCel", OleDbType.VarChar).Value = "TESTE" 'txtTelCelProp.Text
        selcom.Parameters.Add("@nomeAnimal", OleDbType.VarChar).Value = "TESTE" 'txtObsProp.Text
        selcom.Parameters.Add("@codVetEspecie", OleDbType.Integer).Value = 0 'txtNomeAnimal.Text
        selcom.Parameters.Add("@idadeAnimal", OleDbType.VarChar).Value = "TESTE" 'rblEspecie.SelectedValue
        selcom.Parameters.Add("@codSexoAnimal", OleDbType.Integer).Value = 0 'txtIdade.Text
        selcom.Parameters.Add("@codPorte", OleDbType.Integer).Value = 0 'rblPorte.SelectedValue
        selcom.Parameters.Add("@raca", OleDbType.VarChar).Value = "TESTE" 'txtRaca.Text
        selcom.Parameters.Add("@codLocalAcid", OleDbType.Integer).Value = 0 'rblLocalAcid.SelectedValue
        selcom.Parameters.Add("@codSimNaoVacinado", OleDbType.Integer).Value = 0 'rblVacinado.SelectedValue
        selcom.Parameters.Add("@codSimNaoCastrado", OleDbType.Integer).Value = 0 'rblCastrado.SelectedValue
        selcom.Parameters.Add("@registro", OleDbType.VarChar).Value = "TESTE" 'txtRegistro.Text
        selcom.Parameters.Add("@condicaoObs", OleDbType.VarChar).Value = "TESTE" 'rblCondObs.SelectedValue
        selcom.Parameters.Add("@observaAnimal", OleDbType.VarChar).Value = "TESTE" 'txtObsAnim.Text
        selcom.ExecuteNonQuery()
        conecte.Close()

Repare que os campos estão comentados, alterei a query adicionando as variáveis e lhes atribui seu tipo de dados correto.

Agora, abaixo, fiz com os seus campos como realmente deve ser.

Qualquer erro de compitalção pode ocorrer pois nos meus testes não tinha campos com os mesmos nomes que os seus, mas isso é facil de corrigir.

        Dim selcom As New System.Data.OleDb.OleDbCommand
        selcom.Connection = conecte
        selcom.CommandText = "INSERT INTO tbVETAARH (codSINAN,codSexoPac,dataNascPac,UFCODPac,MUNCODPac,bairroPac,codVetOcupa,codTipoExp,codLocal,codFerimento,codTipoFerim,dataExp,observaPac,nomePropr,sobrenomeProp,codSexoProp,dataNascimProp,CodSituacaoProp,codTipoEndProp,logradouroProp,numeroProp,bairroLocalProp,UFCODProp,MUNCODProp,telFixo,telCel,nomeAnimal,codVetEspecie,idadeAnimal,codSexoAnimal,codPorte,raca,codLocalAcid,codSimNaoVacinado,codSimNaoCastrado,registro,condicaoObs,observaAnimal)" & _
                              " VALUES(@codSINA,@codSexoPac,@dataNascPac,@UFCODPac,@MUNCODPac,@bairroPac,@codVetOcupa,@codTipoExp,@codLocal,@codFerimento,@codTipoFerim,@dataExp,@observaPac,@nomePropr,@sobrenomeProp,@codSexoProp,@dataNascimProp,@CodSituacaoProp,@codTipoEndProp,@logradouroProp,@numeroProp,@bairroLocalProp,@UFCODProp,@MUNCODProp,@telFixo,@telCel,@nomeAnimal,@codVetEspecie,@idadeAnimal,@codSexoAnimal,@codPorte,@raca,@codLocalAcid,@codSimNaoVacinado,@codSimNaoCastrado,@registro,@condicaoObs,@observaAnimal)"
        selcom.Parameters.Clear()
        selcom.Parameters.Add("@codSINAN", OleDbType.Integer).Value = Convert.ToInt32(txtCodSina.Text)
        selcom.Parameters.Add("@codSexoPac", OleDbType.Integer).Value = Convert.ToInt32(rblSexoPac.SelectedValue
        selcom.Parameters.Add("@dataNascPac", OleDbType.VarChar).Value = txtDataNascPac.Text
        selcom.Parameters.Add("@UFCODPac", OleDbType.Integer).Value = Convert.ToInt32(ddlUFPac.SelectedValue)
        selcom.Parameters.Add("@MUNCODPac", OleDbType.Integer).Value = Convert.ToInt32(ddlMunPac.SelectedValue)
        selcom.Parameters.Add("@bairroPac", OleDbType.VarChar).Value = txtBairroPac.Text
        selcom.Parameters.Add("@codVetOcupa", OleDbType.Integer).Value = Convert.ToInt32(rblVetOcup.SelectedValue)
        selcom.Parameters.Add("@codTipoExp", OleDbType.Integer).Value = Convert.ToInt32(rblVetTipoExp.SelectedValue)
        selcom.Parameters.Add("@codLocal", OleDbType.Integer).Value = Convert.ToInt32(rblVetLocalExposicao.SelectedValue)
        selcom.Parameters.Add("@codFerimento", OleDbType.Integer).Value = Convert.ToInt32(rblVetFere.SelectedValue)
        selcom.Parameters.Add("@codTipoFerim", OleDbType.Integer).Value = Convert.ToInt32(rblVetTipoFere.SelectedValue)
        selcom.Parameters.Add("@dataExp", OleDbType.VarChar).Value = txtDataExp.Text
        selcom.Parameters.Add("@observaPac", OleDbType.VarChar).Value = txtObsPac.Text
        selcom.Parameters.Add("@nomePropr", OleDbType.VarChar).Value = txtNomeProp.Text
        selcom.Parameters.Add("@sobrenomeProp", OleDbType.VarChar).Value = txtSobreProp.Text
        selcom.Parameters.Add("@codSexoProp", OleDbType.Integer).Value = Convert.ToInt32(rblSexoProp.SelectedValue)
        selcom.Parameters.Add("@dataNascimProp", OleDbType.VarChar).Value = txtDataNascProp.Text
        selcom.Parameters.Add("@CodSituacaoProp", OleDbType.Integer).Value = Convert.ToInt32(rblSitProp.SelectedValue)
        selcom.Parameters.Add("@codTipoEndProp", OleDbType.Integer).Value = Convert.ToInt32(rblTipoProp.SelectedValue)
        selcom.Parameters.Add("@logradouroProp", OleDbType.VarChar).Value = txtLograProp.Text
        selcom.Parameters.Add("@numeroProp", OleDbType.VarChar).Value = txtNumProp.Text
        selcom.Parameters.Add("@bairroLocalProp", OleDbType.VarChar).Value = txtBairroProp.Text
        selcom.Parameters.Add("@UFCODProp", OleDbType.Integer).Value = Convert.ToInt32(ddlUFProp.SelectedValue)
        selcom.Parameters.Add("@MUNCODProp", OleDbType.Integer).Value = Convert.ToInt32(ddlMunProp.SelectedValue)
        selcom.Parameters.Add("@telFixo", OleDbType.VarChar).Value = txtTelFixoProp.Text
        selcom.Parameters.Add("@telCel", OleDbType.VarChar).Value = txtTelCelProp.Text
        selcom.Parameters.Add("@nomeAnimal", OleDbType.VarChar).Value = txtObsProp.Text
        selcom.Parameters.Add("@codVetEspecie", OleDbType.Integer).Value = Convert.ToInt32(txtNomeAnimal.Text)
        selcom.Parameters.Add("@idadeAnimal", OleDbType.VarChar).Value = rblEspecie.SelectedValue.ToString()
        selcom.Parameters.Add("@codSexoAnimal", OleDbType.Integer).Value = Convert.ToInt32(txtIdade.Text)
        selcom.Parameters.Add("@codPorte", OleDbType.Integer).Value = Convert.ToInt32(rblPorte.SelectedValue)
        selcom.Parameters.Add("@raca", OleDbType.VarChar).Value = txtRaca.Text
        selcom.Parameters.Add("@codLocalAcid", OleDbType.Integer).Value = Convert.ToInt32(rblLocalAcid.SelectedValue)
        selcom.Parameters.Add("@codSimNaoVacinado", OleDbType.Integer).Value = Convert.ToInt32(rblVacinado.SelectedValue)
        selcom.Parameters.Add("@codSimNaoCastrado", OleDbType.Integer).Value = Convert.ToInt32(rblCastrado.SelectedValue)
        selcom.Parameters.Add("@registro", OleDbType.VarChar).Value = txtRegistro.Text
        selcom.Parameters.Add("@condicaoObs", OleDbType.VarChar).Value = rblCondObs.SelectedValue.ToString()
        selcom.Parameters.Add("@observaAnimal", OleDbType.VarChar).Value = txtObsAnim.Text
        selcom.ExecuteNonQuery()
        conecte.Close()

Qualquer coisa é só falar ;)

[]s!

---

Fernando Henrique Inocêncio Borba Ferreira
while(alive){ this.WriteCode(); }
Blog: http://ferhenriquef.com/
Twitter: @ferhenrique
Entity Framework - Brasil: https://www.facebook.com/EntityFrameworkBrasil

Answer 10

Registro inserido e gravado com sucesso: Grande Fernando em pouco tempo alavancou o que estava patinando por um bom tempo. Abaixo o código perfeito, muito obrigado!

    Private Sub inserir()
        Dim conecte As New OleDbConnection
        conecte.ConnectionString = My.Settings.SIADSConecte
        Try
            conecte.Open()
        Catch ex As System.Data.OleDb.OleDbException
            Label1.Text = "Erro de conexao com o Banco de Dados: " & ex.Message.ToString
            Return
        End Try
        Dim selcom As New System.Data.OleDb.OleDbCommand
        selcom.Connection = conecte
        selcom.CommandText = "INSERT INTO tbVETAARH (codSINAN,codSexoPac,dataNascPac,UFCODPac,MUNCODPac,bairroPac,codVetOcupa,codTipoExp,codLocal,codFerimento,codTipoFerim,dataExp,observaPac,nomePropr,sobrenomeProp,codSexoProp,dataNascimProp,CodSituacaoProp,codTipoEndProp,logradouroProp,numeroProp,bairroLocalProp,UFCODProp,MUNCODProp,telFixo,telCel,nomeAnimal,codVetEspecie,idadeAnimal,codSexoAnimal,codPorte,raca,codLocalAcid,codSimNaoVacinado,codSimNaoCastrado,registro,condicaoObs,observaAnimal)" & _
                              " VALUES(@codSINAN,@codSexoPac,@dataNascPac,@UFCODPac,@MUNCODPac,@bairroPac,@codVetOcupa,@codTipoExp,@codLocal,@codFerimento,@codTipoFerim,@dataExp,@observaPac,@nomePropr,@sobrenomeProp,@codSexoProp,@dataNascimProp,@CodSituacaoProp,@codTipoEndProp,@logradouroProp,@numeroProp,@bairroLocalProp,@UFCODProp,@MUNCODProp,@telFixo,@telCel,@nomeAnimal,@codVetEspecie,@idadeAnimal,@codSexoAnimal,@codPorte,@raca,@codLocalAcid,@codSimNaoVacinado,@codSimNaoCastrado,@registro,@condicaoObs,@observaAnimal)"
        selcom.Parameters.Clear()
        selcom.Parameters.Add("@codSINAN", OleDbType.Integer).Value = Convert.ToInt32(txtCodSinan.Text)
        selcom.Parameters.Add("@codSexoPac", OleDbType.Integer).Value = Convert.ToInt32(rblSexoPac.SelectedValue)
        selcom.Parameters.Add("@dataNascPac", OleDbType.VarChar).Value = txtDataNascPac.Text
        selcom.Parameters.Add("@UFCODPac", OleDbType.Integer).Value = Convert.ToInt32(ddlUFPac.SelectedValue)
        selcom.Parameters.Add("@MUNCODPac", OleDbType.Integer).Value = Convert.ToInt32(ddlMunPac.SelectedValue)
        selcom.Parameters.Add("@bairroPac", OleDbType.VarChar).Value = txtBairroPac.Text
        selcom.Parameters.Add("@codVetOcupa", OleDbType.Integer).Value = Convert.ToInt32(rblVetOcup.SelectedValue)
        selcom.Parameters.Add("@codTipoExp", OleDbType.Integer).Value = Convert.ToInt32(rblVetTipoExp.SelectedValue)
        selcom.Parameters.Add("@codLocal", OleDbType.Integer).Value = Convert.ToInt32(rblVetLocalExposicao.SelectedValue)
        selcom.Parameters.Add("@codFerimento", OleDbType.Integer).Value = Convert.ToInt32(rblVetFere.SelectedValue)
        selcom.Parameters.Add("@codTipoFerim", OleDbType.Integer).Value = Convert.ToInt32(rblVetTipoFere.SelectedValue)
        selcom.Parameters.Add("@dataExp", OleDbType.VarChar).Value = txtDataExp.Text
        selcom.Parameters.Add("@observaPac", OleDbType.VarChar).Value = txtObsPac.Text
        selcom.Parameters.Add("@nomePropr", OleDbType.VarChar).Value = txtNomeProp.Text
        selcom.Parameters.Add("@sobrenomeProp", OleDbType.VarChar).Value = txtSobreProp.Text
        selcom.Parameters.Add("@codSexoProp", OleDbType.Integer).Value = Convert.ToInt32(rblSexoProp.SelectedValue)
        selcom.Parameters.Add("@dataNascimProp", OleDbType.VarChar).Value = txtDataNascProp.Text
        selcom.Parameters.Add("@CodSituacaoProp", OleDbType.Integer).Value = Convert.ToInt32(rblSitProp.SelectedValue)
        selcom.Parameters.Add("@codTipoEndProp", OleDbType.Integer).Value = Convert.ToInt32(rblTipoProp.SelectedValue)
        selcom.Parameters.Add("@logradouroProp", OleDbType.VarChar).Value = txtLograProp.Text
        selcom.Parameters.Add("@numeroProp", OleDbType.VarChar).Value = txtNumProp.Text
        selcom.Parameters.Add("@bairroLocalProp", OleDbType.VarChar).Value = txtBairroProp.Text
        selcom.Parameters.Add("@UFCODProp", OleDbType.Integer).Value = Convert.ToInt32(ddlUFProp.SelectedValue)
        selcom.Parameters.Add("@MUNCODProp", OleDbType.Integer).Value = Convert.ToInt32(ddlMunProp.SelectedValue)
        selcom.Parameters.Add("@telFixo", OleDbType.VarChar).Value = txtTelFixoProp.Text
        selcom.Parameters.Add("@telCel", OleDbType.VarChar).Value = txtTelCelProp.Text
        selcom.Parameters.Add("@nomeAnimal", OleDbType.VarChar).Value = txtObsProp.Text
        selcom.Parameters.Add("@codVetEspecie", OleDbType.Integer).Value = Convert.ToInt32(rblEspecie.SelectedValue)
        selcom.Parameters.Add("@idadeAnimal", OleDbType.VarChar).Value = txtIdade.Text
        selcom.Parameters.Add("@codSexoAnimal", OleDbType.Integer).Value = Convert.ToInt32(txtIdade.Text)
        selcom.Parameters.Add("@codPorte", OleDbType.Integer).Value = Convert.ToInt32(rblPorte.SelectedValue)
        selcom.Parameters.Add("@raca", OleDbType.VarChar).Value = txtRaca.Text
        selcom.Parameters.Add("@codLocalAcid", OleDbType.Integer).Value = Convert.ToInt32(rblLocalAcid.SelectedValue)
        selcom.Parameters.Add("@codSimNaoVacinado", OleDbType.Integer).Value = Convert.ToInt32(rblVacinado.SelectedValue)
        selcom.Parameters.Add("@codSimNaoCastrado", OleDbType.Integer).Value = Convert.ToInt32(rblCastrado.SelectedValue)
        selcom.Parameters.Add("@registro", OleDbType.VarChar).Value = txtRegistro.Text
        selcom.Parameters.Add("@condicaoObs", OleDbType.Integer).Value = Convert.ToInt32(rblCondObs.SelectedValue)
        selcom.Parameters.Add("@observaAnimal", OleDbType.VarChar).Value = txtObsAnim.Text
        Dim teste As Boolean
        Try
            teste = selcom.ExecuteNonQuery
        Catch ex As System.Data.OleDb.OleDbException
            Label6.Text = "Erro: " & ex.Message.ToString
            Return
        End Try
        conecte.Close()
        Label2.Text = "Registro inserido e gravado"
        txtCodSinan.Focus()
        cargaGRID()
    End Sub