- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 项目从acc数据库转SQL数据后，二进制文件上传，提示‘=’附近有语法错误，对应的数据表里也没有这个对应的附件和crc值的写入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174451)
-- 发布时间：2022/1/16 10:29:00
-- 项目从acc数据库转SQL数据后，二进制文件上传，提示‘=’附近有语法错误，对应的数据表里也没有这个对应的附件和crc值的写入
项目从acc数据库转SQL数据后，二进制文件上传，提示‘=’附近有语法错误，对应的数据表里也没有这个对应的附件和crc值的写入 不知道为何 按照帮助做的
在acc数据库下正常，转SQL后提示如下：
弹出5 后提示‘=’附近有语法错误
弹出6 后提示‘=’附近有语法错误
对应的数据表里也没有这个对应的附件和crc值的写入
代码如下：
If Tables("报告书登记_table2").Current("编号")="" Then
MessageBox.Show("报告书编号尚未生成,请先检查.","温馨提示")
Else
Tables("报告书登记_table2").Current.Save
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png|文档文件|*.doc;*.docx;*.xls;*.xlsx|压缩文件|*.rar;*.zip"
MessageBox.Show("1")
If dlg.ShowDialog =DialogResult.OK Then
Dim fl As String = dlg.FileName
Dim r As Row = Tables("报告书登记_table3").AddNew()
r("编号")=Tables("报告书登记_table2").Current("编号")
MessageBox.Show("2")
r("卷宗编号") = Tables("报告书登记_table2").Current("卷宗编号")
MessageBox.Show("3")
r("文件名") = FileSys.GetName(fl) \'写入文件名
MessageBox.Show("4")
r.Save \'必须先保存
MessageBox.Show("5")
r.DataRow.SQLInsertFile("附件",fl) \'插入文件
MessageBox.Show("6")
r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) \'保存crc检验值
MessageBox.Show("7")
End If
End If
[此贴子已经被作者于2022/1/16 10:48:29编辑过]
-- 发布时间：2022/1/16 20:59:00
--
Tables("报告书登记_table2")必须是主表或者副本，不能是sqltable，fill，DataSource等
到后台数据库看看附件列的列类型是什么？
-- 发布时间：2022/1/17 11:02:00
-- 回复：（有点蓝）Tables("报告书登记_table2")必须是主...
经排查 系下面红色部分值 没有正常写入数据库 麻烦老师帮忙看看是啥原因 谢谢！
下述项目在本地ACC时候是没有问题的 就是项目转移到SQL之后 出现的问题
数据库表结构 附件表已经作为副本表 且不是sqltable之类的表……
窗体表内容
代码部分
运行提示错误：
数据库查看结果 附件和crc没有写入
当前上传附件代码：
If Tables("报告书登记_table2").Current("编号")="" Then
MessageBox.Show("报告书编号尚未生成,请先检查.","温馨提示")
Else
Tables("报告书登记_table2").Current.Save
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png|文档文件|*.doc;*.docx;*.xls;*.xlsx|压缩文件|*.rar;*.zip"
If dlg.ShowDialog =DialogResult.OK Then
Dim fl As String = dlg.FileName
Dim r As Row = Tables("报告书登记_table3").AddNew()
r("编号")=Tables("报告书登记_table2").Current("编号")
r("卷宗编号") = Tables("报告书登记_table2").Current("卷宗编号")
r("文件名") = FileSys.GetName(fl) \'写入文件名
r.Save \'必须先保存
\'MessageBox.Show("5")
r.DataRow.SQLInsertFile("附件",fl) \'插入文件
\'MessageBox.Show("6")
r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) \'保存crc检验值
End If
End If
[此贴子已经被作者于2022/1/17 11:09:09编辑过]
-- 发布时间：2022/1/17 11:50:00
--
我测试没有问题，请上传实例说明