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
