Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教SQL数据库二进制应用的问题


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

主题：请教SQL数据库二进制应用的问题
帅哥，在线噢！
13315253800
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		请教SQL数据库二进制应用的问题  发帖心情 Post By：2023/6/30 11:55:00 [显示全部帖子]

蓝老师您好！请教SQL数据库二进制应用问题，我单位服务器设置的FTP外网一直不能连接，没办法只能用二进制列存储各种文件，我按帮助的案例的使用完整的代码在狐表中使用，只是数据库由ACC改成了SQL，SQL Server对应的列类型为"Image"，列名相同，做成后点击增加、插入等按钮，没反应。二进制列在SQL数据库中还有其他特殊要求吗？

 回到顶部
帅哥，在线噢！
13315253800
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/6/30 12:23:00 [显示全部帖子]

我就是帮助一步一步照着做的
插入文件按钮代码
If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件
    dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "Word文件|*.doc"
If dlg.ShowDialog =DialogResult.OK Then
    dr.SQLInsertFile("附件",dlg.FileName) '插入文件
End If
 回到顶部
帅哥，在线噢！
13315253800
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/6/30 12:26:00 [显示全部帖子]

表名列名都没错，点击插入按钮无任何反应

 回到顶部
帅哥，在线噢！
13315253800
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/6/30 12:28:00 [显示全部帖子]

插入照片按钮代码
If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
    dr.SQLInsertFile("照片",dlg.FileName) '插入文件
    Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pic.Image = GetImage(dlg.FileName)
End If
 回到顶部
帅哥，在线噢！
13315253800
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/6/30 12:31:00 [显示全部帖子]

同样在我的狐表系统里数据源改成ACC数据库就能正常使用

 回到顶部
帅哥，在线噢！
13315253800
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/6/30 15:35:00 [显示全部帖子]

蓝老师，SQL数据源我无法传，我将案例中的员工表转成了内部数据源了，“附件”“照片”两列就丢失了，我传上去请您看看设置
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:二进制列实验.zip
 回到顶部
帅哥，在线噢！
13315253800
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/6/30 15:36:00 [显示全部帖子]

“附件”“照片”两列的数据类型是  image

 回到顶部
帅哥，在线噢！
13315253800
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/7/1 17:51:00 [显示全部帖子]

蓝老师，我想插入多种格式的文件，插入按钮代码如下

If Tables("员工").Current Is Nothing Then

    Return

End If

Dim dr As DataRow = Tables("员工").Current.DataRow

If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件

    dr.Save()

End If

Dim dlg As New OpenFileDialog

dlg.Filter = "文件|*.doc;*.xls;*.pdf"

If dlg.ShowDialog =DialogResult.OK Then

    dr.SQLInsertFile("附件",dlg.FileName) '插入文件

End If
 回到顶部
帅哥，在线噢！
13315253800
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/7/1 17:53:00 [显示全部帖子]

插入文件的代码可以，但打开文件按钮用下面的代码，提示错误，请蓝老师指导一下

If Tables("员工").Current Is Nothing Then

    Return

End If

Dim dr As DataRow = Tables("员工").Current.DataRow

Dim fl As String = ProjectPath & dr("_Identify") & "*.doc;*.xls;*.pdf"

If dr.SQLLoadFile("附件", fl) Then '如果提取文件成功

    Dim Proc As New Process '打开文件

    Proc.File = fl

    Proc.Start()

Else

    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If


[此贴子已经被作者于2023/7/1 17:55:28编辑过]
 回到顶部
帅哥，在线噢！
13315253800
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：589 积分：4305 威望：0 精华：0 注册：2018/1/3 16:03:00 		  发帖心情 Post By：2023/7/2 21:38:00 [显示全部帖子]

蓝老师，我参考多文件二进制列案例，我在“员工”表增加了“文件名”和"CRC值"两个字符列，修改了插入文件代码，最后两行代码提示错误请指导一下
If Tables("员工").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件
    dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "文件|*.doc;*.xls;*.ppt;*.docx;*.xlsx;*.pdf"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fl As String = dlg.FileName
    dr.SQLInsertFile("附件", dlg.FileName) '插入文件
    dr("文件名") = FileSys.GetName(fl) '写入文件名
    dr.Save '必须先保存
    dr.DataRow.SQLInsertFile("员工", fl) '插入文件,提示错误
    dr.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值,提示错误
End If
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询