字段太长,无法录入数据库

报错:

2017-03-13 10:16:43,159 ERROR [org.hibernate.util.JDBCExceptionReporter] - Data truncation: Data too long for column 'value' at row 1
2017-03-13 10:16:43,167 ERROR [org.hibernate.event.def.AbstractFlushingEventListener] - Could not synchronize database state with session
org.hibernate.exception.DataException: Could not execute JDBC batch update
at org.hibernate.exception.SQLStateConverter.convert(SQLStateConverter.java:77)
at org.hibernate.exception.JDBCExceptionHelper.convert(JDBCExceptionHelper.java:43)
at org.hibernate.jdbc.AbstractBatcher.executeBatch(AbstractBatcher.java:249)
at org.hibernate.engine.ActionQueue.executeActions(ActionQueue.java:235)
at org.hibernate.engine.ActionQueue.executeActions(ActionQueue.java:140)

 

可能的原因:

1.数据库里的表设置的字符集不相同;

2.数据字段太长。

我遇到的是第二种,将varchar改为text后,问题解决,解决方法是:在数据库里将这个字段类型设为text或者更大的longtext类型。

查看表的字符集:SHOW CREATE TABLE cmf_party; 
查看列的字符集:SHOW FULL COLUMNS FROM cmf_party;
查看数据库的字符集:SHOW CREATE DATABASE xingfu;

如果是第一种,则先修改数据库默认编码:

ALTER DATABASE `xingfu` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;

修改表的编码:ALTER TABLE `表名` DEFAULT CHARACTER SET utf8 COLLATE utf8_general_ci;

修改表字段的编码ALTER TABLE `表名` CHANGE `字段名` `字段名` VARCHAR( 45 ) CHARACTER SET utf8 COLLATE utf8_bin NOT NULL;

查看你表的编码和表中字段的编码格式:在表上点击右键——表讯息——DDL 可以看到表和字段的编码格式,要是跟你配置文件中的不一致的话修改就OK了,修改方法:在表上点击右键——设计表——选项——字符集 ,然后点击你表中的每个字符串字段,查看下面的字符集编码是否一致。

在Access VBA中,ADO(ActiveX Data Objects)是一个用于访问各种数据源的强大工具,包括OLE(Object Linking and Embedding)字段。OLE字段可以存储其他应用程序的对象,比如Excel工作表、Word文档等。 如果你想要通过VBA使用ADO插入数据到包含OLE字段数据库表中,你可以按照以下步骤操作: 1. **创建连接**: 首先,你需要创建一个ADODB.Connection对象,通过`Provider="Microsoft.ACE.OLEDB.12.0"`选择适合的ACE数据库引擎,并指定数据库路径。 ```vba Dim conn As New ADODB.Connection conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=myDatabase.accdb;" ``` 2. **打开记录集**: 创建一个ADODB.Recordset对象,用于执行SQL命令并操作数据。 ```vba Set rs As New ADODB.Recordset rs.Open "SELECT * FROM myTable", conn ``` 3. **处理 OleField**: 如果你想插入一个Excel工作簿作为OLE字段,需要获取该工作簿的`Data`属性,将其转换为二进制数据(通常使用`.SaveAs`保存为临时文件),然后将这个数据作为字段值插入。 ```vba '假设oleField为一个名为"ExcelFile"的OLE字段 Dim excelData As Byte() With CreateObject("Excel.Application") .Visible = False '隐藏Excel应用 Dim workbook As Workbook Set workbook = .Workbooks.Open("path_to_your_excel_file.xlsx") excelData = workbook.SaveAsBytes workbook.Close SaveChanges:=False '关闭工作簿但不保存更改 End With rs("ExcelFile").LoadFromFile "TemporaryExcel.xls" '将数据加载到临时文件,然后设置OLE字段指向它 ``` 4. **插入新记录**: 完成数据准备后,可以使用Recordset对象的`AddNew`方法添加新记录,并使用`Update`方法提交更改。 ```vba rs.AddNew rs("MyColumn") = '其他字段数据... rs("ExcelFile").Value = excelData '设置OLE字段的值 rs.Update ``` 5. **清理**: 最后,记得关闭Recordset和Connection对象,释放资源。 ```vba rs.Close Set rs = Nothing conn.Close Set conn = Nothing ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值