- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 往动态生成的 DataTable 传入二进制文件 SQLInsertFile 返回false 如何解决 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158847)
-- 发布时间：2020/12/4 10:56:00
-- 往动态生成的 DataTable 传入二进制文件 SQLInsertFile 返回false 如何解决
Dim sqlText As String = "select * fro m CPGL_JCCP w here StyleNo=\'" & ProductStyleNO & "\' and Color=\'" & ProductColor & "\'"
Dim dt As DataTable = Functions.Execute("执行SQL语句返回DataTable","EhErp",sqlText)
If dt.DataRows.Count=1 Then
If dt.DataRows(0).SQLInsertFile("Picture",filePath & "\\" & fileName) Then
FileSys.MoveFile(filePath & "\\" & fileName, ImportedPath & "\\" & fileName )
recCount = recCount +1
End If
End If
-- 发布时间：2020/12/4 11:22:00
--
SQLInsertFile不支持临时表，使用sql添加
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into test (图片) Values(?)"
Dim ImageByte() As Byte = System.IO.File.ReadAllBytes("D:\\test.JPG") \'读取文件流,并将读到的二进制数据放入数组ImageByte中,
cmd.Parameters.Add("@图片", ImageByte)
cmd.ExecuteNonQuery
-- 发布时间：2020/12/4 12:06:00
--
Dim sqlText As String
Dim fileName As String
sqlText =Args(0)
fileName =Args(1)
If fileName.Length>0 Then
Try
Dim cmd As new SQLCommand
cmd.C
\'cmd.CommandText = sqlText
cmd.CommandText ="upd ate CPGL_JCCP set Picture = ? whe re StyleNo=\'000\' And Color =\'red\'"
Dim ImageByte() As Byte = System.IO.File.ReadAllBytes(fileName) \'读取文件流,并将读到的二进制数据放入数组ImageByte中,
cmd.Parameters.Add("@Picture", ImageByte)
cmd.ExecuteNonQuery
Return True
Catch ex As Exception
Return False
End Try
Else
Return False
End If
Picture 是 image 类型 这是啥原因？
[此贴子已经被作者于2020/12/4 12:06:24编辑过]
-- 发布时间：2020/12/4 13:33:00
--
Picture不 是 image 类型吧！
-- 发布时间：2020/12/4 13:36:00
--
-- 发布时间：2020/12/4 13:36:00
--
是image