Este es mi codigo que estoy intentando ejecutar, es un insert, pero no logro hacer que inserte :
Sub insertar_clientes()
Dim cmdUpdate As OleDbCommand
cn.usuario = m_usuario
cn.pase = m_pase
cn.host = m_host
cn.base = m_base
cn.conectar()
sql = "insert into clientes( id_cliente," & _
"cedula_identidad, " & _
"nombres , " & _
"apellidos," & _
"Direccion," & _
"telefonos," & _
"Ruc ," & _
"fecha_nacimiento," & _
"fecha_alta," & _
"estado," & _
"estado_civil," & _
"sexo," & _
"fecha_presentacion) values(pcliente,pcedula_identidad," & _
"pnombres,papellidos,pdireccion,ptelefonos,prut,fecha_nacimiento,pestado," & _
"pestado_civil,psexo,pfecha_presentacion)"
cmdUpdate = New OleDbCommand(sql, cn)
cmdUpdate.Parameters.Add("pcliente", OleDbType.Numeric, 10)
cmdUpdate.Parameters("pcliente").Value = Me.TxtCodigo.Text
cmdUpdate.Parameters.Add("pcedula_identidad", OleDbType.VarChar, 20)
cmdUpdate.Parameters("pcedula_identidad").Value = Me.MaskedCedula.Text
cmdUpdate.Parameters.Add("pnombres", OleDbType.VarChar, 20)
cmdUpdate.Parameters("pnombres").Value = Me.MaskedNombres.Text
cmdUpdate.Parameters.Add("papellidos", OleDbType.VarChar, 20)
cmdUpdate.Parameters("papellidos").Value = Me.MaskedApellidos.Text
cmdUpdate.Parameters.Add("ptelefono", OleDbType.VarChar, 20)
cmdUpdate.Parameters("ptelefono").Value = Me.MaskedTelefonos.Text
cmdUpdate.Parameters.Add("pruc", OleDbType.VarChar, 20)
cmdUpdate.Parameters("pruc").Value = Me.MaskedRuc.Text
cmdUpdate.Parameters.Add("pfecha_nacimiento", OleDbType.Date, 20)
cmdUpdate.Parameters("pfecha_nacimiento").Value = Me.MaskedNac.Text
cmdUpdate.Parameters.Add("pfecha_alta", OleDbType.Date, 7)
cmdUpdate.Parameters("pfecha_alta").Value = Me.Maskedalta.Text
cmdUpdate.Parameters.Add("pestado", OleDbType.Char, 1)
cmdUpdate.Parameters("pestado").Value = Trim(Me.ComboEstado.SelectedValue.ToString)
cmdUpdate.Parameters.Add("pestado_civil", OleDbType.Char, 1)
cmdUpdate.Parameters("pestado_civil").Value = Me.ComboCivil.SelectedValue.ToString
cmdUpdate.Parameters.Add("psexo", OleDbType.Char, 1)
cmdUpdate.Parameters("psexo").Value = Me.ComboCivil.SelectedValue.ToString
cmdUpdate.Parameters.Add("pfecha_presentacion", OleDbType.Date, 7)
cmdUpdate.Parameters("pfecha_presentacion").Value = Date.Today
Try
cmdUpdate.Connection = cn
cmdUpdate.ExecuteNonQuery()
Catch ex As Exception
MsgBox("no se realizaron los cambios en Cliente=" + ex.Message)
Exit Sub
End Try
End Sub
al ejecuar la linea ExecuteNonQuery() da este error : DB_E_BADTYPENAME(0x80040E30), espero me ayuden.Saludos