Foxtable(狐表)用户栏目专家坐堂 → 项目从acc数据库转SQL数据后,二进制文件上传,提示‘=’附近有语法错误,对应的数据表里也没有这个对应的附件和crc值的写入


  共有3304人关注过本帖树形打印复制链接

主题:项目从acc数据库转SQL数据后,二进制文件上传,提示‘=’附近有语法错误,对应的数据表里也没有这个对应的附件和crc值的写入

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
项目从acc数据库转SQL数据后,二进制文件上传,提示‘=’附近有语法错误,对应的数据表里也没有这个对应的附件和crc值的写入  发帖心情 Post By:2022/1/16 10:29:00 [只看该作者]

项目从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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/16 20:59:00 [只看该作者]

Tables("报告书登记_table2")必须是主表或者副本,不能是sqltable,fill,DataSource等

到后台数据库看看附件列的列类型是什么?

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)Tables("报告书登记_table2")必须是主...  发帖心情 Post By:2022/1/17 11:02:00 [只看该作者]

经排查  系下面红色部分值  没有正常写入数据库   麻烦老师帮忙看看是啥原因  谢谢!
下述项目在本地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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/17 11:50:00 [只看该作者]

我测试没有问题,请上传实例说明

 回到顶部