Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:SQGL2008保存报错

1楼
lgz518 发表于:2025/3/25 11:45:00
SQGGGL2008用ADO模式,执行下面代码保存:报错:将截断字符串或二进制数据。语句已终止。如何解决?

Dim db = HySqGGGl.DataBaseFactory.CreateDatabase("DB") '
'保存
'
Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
Dim dtb As System.Data.DataTable = dt.basetable.Copy '
dtb.Columns.Remove("_Locked") '
dtb.Columns.Remove("System_Sort_Temporary")
dtb.Columns.Remove("System_Filter_Temporary")
dtb.Columns.Remove("System_Filter_Unique")
Dim res = db.UpdGateDataTable(dtb, "主表")'保存主表
dt.AcceptChanges()

' MsgBox(2)'排查错

'保存明细表
Dim dt2 As DataTable = e.Form.Controls("Table2").Table.DataTable
Dim dtb2 As System.Data.DataTable = dt2.basetable.Copy '
'dtb2.Columns.Remove("_Identify")主键列“_Identify”
dtb2.Columns.Remove("_Locked") '“_Locked”用于保存行的锁定状态
dtb2.Columns.Remove("System_Sort_Temporary")
dtb2.Columns.Remove("System_Filter_Temporary")
dtb2.Columns.Remove("System_Filter_Unique")
Dim res2 = db.UpGdateDataTable(dtb2, "细表")'保存明细表
dt2.AcceptChanges()
2楼
有点蓝 发表于:2025/3/25 11:49:00
将截断字符串或二进制数据】是指有某个列的字符长度不够,改大一点:http://www.foxtable.com/webhelp/topics/0036.htm
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.