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

Pergunta
-
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
- Editado Wilson Boris quinta-feira, 19 de julho de 2012 21:34 layout
Respostas
-
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- Marcado como Resposta Wilson Boris sexta-feira, 20 de julho de 2012 03:23
Todas as Respostas
-
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/
-
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 -
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. -
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
-
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 -
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?
-
Olá Wilson,
Mande para o e-mail ferhenriquef@live.com
[]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 -
-
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- Marcado como Resposta Wilson Boris sexta-feira, 20 de julho de 2012 03:23
-
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