none
Erro[HY090][microsoft][Driver ODBC para Microsoft Access] comprimento de buffer ou de sequência de caracter inválida RRS feed

  • Pergunta

  •  

    Prezados boa noite!

    Estou tendo um problema na instrução SQL abaixo, o BD é  o Access quando tento inserir aparece a mensagem de erro:

    "Erro[HY090][microsoft][Driver ODBC para Microsoft Access] comprimento de buffer ou de sequência de caracter inválida"

    Alguem poderia ajudar??

    att

    rodrigo

    Private
    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     

    Dim DBCon As New Odbc.OdbcConnection(conString)

     

    Dim cm As New Odbc.OdbcCommand()

    cm.CommandText =

    "insert into funcionarios(Nome,Cargo,NomeDoDepartamento," & _

     

    "DatadeNascimento,NomeDoConjuge,Endereco,bairro," & _

     

    "numero,complemento,Cidade,CEP,Estado,UF,NumeroTelefone1," & _

     

    "NumeroTelefone2,celular,Fax,EnderecodeEmail)" & _

     

    "values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"

     

     

    cm.Parameters.Add(

    "Nome", System.Data.Odbc.OdbcType.NVarChar).Value = NomeTextBox.Text

    cm.Parameters.Add(

    "Cargo", System.Data.Odbc.OdbcType.NVarChar).Value = CargoTextBox.Text

    cm.Parameters.Add(

    "NomeDoDepartamento", System.Data.Odbc.OdbcType.NVarChar).Value = NomeDoDepartamentoTextBox.Text

    cm.Parameters.Add(

    "DatadeNascimento", System.Data.Odbc.OdbcType.NVarChar).Value = Data_de_NascimentoMaskedTextBox.Text

    cm.Parameters.Add(

    "NomeDoConjuje", System.Data.Odbc.OdbcType.NVarChar).Value = NomeDoConjujeTextBox.Text

    cm.Parameters.Add(

    "Endereco", System.Data.Odbc.OdbcType.NVarChar).Value = EnderecoTextBox.Text

    cm.Parameters.Add(

    "bairro", System.Data.Odbc.OdbcType.NVarChar).Value = BairroTextBox.Text

    cm.Parameters.Add(

    "numero", System.Data.Odbc.OdbcType.NVarChar).Value = NumeroTextBox.Text

    cm.Parameters.Add(

    "complemento", System.Data.Odbc.OdbcType.NVarChar).Value = ComplementoTextBox.Text

    cm.Parameters.Add(

    "Cidade", System.Data.Odbc.OdbcType.NVarChar).Value = CidadeTextBox.Text

    cm.Parameters.Add(

    "CEP", System.Data.Odbc.OdbcType.NVarChar).Value = CEPMaskedTextBox.Text

    cm.Parameters.Add(

    "Estado", System.Data.Odbc.OdbcType.NVarChar).Value = EstadoTextBox.Text

    cm.Parameters.Add(

    "UF", System.Data.Odbc.OdbcType.NVarChar).Value = cboUF.SelectedItem

    cm.Parameters.Add(

    "NumeroTelefone1", System.Data.Odbc.OdbcType.NVarChar).Value = NumeroTelefone1MaskedTextBox.Text

    cm.Parameters.Add(

    "NumeroTelefone2", System.Data.Odbc.OdbcType.NVarChar).Value = NumeroTelefone2MaskedTextBox.Text

    cm.Parameters.Add(

    "celular", System.Data.Odbc.OdbcType.NVarChar).Value = CelularMaskedTextBox.Text

    cm.Parameters.Add(

    "Fax", System.Data.Odbc.OdbcType.NVarChar).Value = FaxMaskedTextBox.Text

    cm.Parameters.Add(

    "EnderecodeEmail", System.Data.Odbc.OdbcType.NVarChar).Value = EnderecodeEmailTextBox.Text

     

     

    Try

    cm.Connection = DBCon

    cm.Connection.Open()

    cm.CommandType = CommandType.Text

    cm.ExecuteNonQuery()

    MessageBox.Show(

    " registro incluido com sucesso.")

    limpaCampos()

     

    Catch exodbc As Odbc.OdbcException

    MessageBox.Show(exodbc.Message,

    "Erro de acesso ao Banco de Dados", MessageBoxButtons.OK, MessageBoxIcon.Error)

     

    Catch ex As Exception

    MessageBox.Show(

    "Erro ao efetuar a conexão com a base de dados : " + ex.Message)

     

    Finally

    cm.Connection.Close()

    cm.Connection.Dispose()

    GC.Collect()

     

    End Try

     

    End Sub

    End

     

    Class

    segunda-feira, 25 de maio de 2009 05:02

Respostas