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

  • 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
    quinta-feira, 19 de julho de 2012 21:32

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
    sexta-feira, 20 de julho de 2012 02:29
    Moderador

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/

    quinta-feira, 19 de julho de 2012 21:48
  • 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

    quinta-feira, 19 de julho de 2012 22:35
    Moderador
  •    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.
    quinta-feira, 19 de julho de 2012 23:33
  • 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

    quinta-feira, 19 de julho de 2012 23:39
  • 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

    sexta-feira, 20 de julho de 2012 00:23
    Moderador
  • 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?

    sexta-feira, 20 de julho de 2012 00:50
  • 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

    sexta-feira, 20 de julho de 2012 00:53
    Moderador
  • Valeu Gigante! deve estar na sua caixa de Email.

    sexta-feira, 20 de julho de 2012 01:14
  • 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
    sexta-feira, 20 de julho de 2012 02:29
    Moderador
  • 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

     

    sexta-feira, 20 de julho de 2012 03:23