[求助]SQL相关 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]SQL相关

共有2486人关注过本帖树形打印复制链接主题：[求助]SQL相关

5233655cs

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 9:34:00 [只看该作者]

老师我有个新问题，，

就是

Dim ImageByte() As Byte = System.IO.File.ReadAllBytes("D:\test.JPG") '读取文件流,并将读到的二进制数据放入数组ImageByte中,

cmd.Parameters.Add("@图片", ImageByte)

我用变label1 来代替 D:\test.jpg

有照片的时候，没问题。

没有照片的是时候， label1就是空值，一运行就提示空路径名是非法的，

那么没照片的时候，我这个语句需要怎么弄？

5233655cs

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 9:53:00 [只看该作者]

使用了好多办法都不行，用 if 的话，就会多出一个@改善前照片？参数没写的错误。

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106188 积分：540063 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/8 9:57:00 [只看该作者]

if e.Form.Controls("label1").text > "" then

Dim ImageByte() As Byte = System.IO.File.ReadAllBytes(e.Form.Controls("label1").text ) '读取文件流,并将读到的二进制数据放入数组ImageByte中,

cmd.Parameters.Add("@图片", ImageByte)

else

cmd.Parameters.Add("@图片", nothing)

end if

5233655cs

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 10:48:00 [只看该作者]

老师，十分感谢1

还有个问题，原先我用SQLloadimage（“改善前照片”）读取SQL里面的照片。

那现在我用selec t from 可以读取照片吗？在picturebox1中显示出来，格式怎么写？

[此贴子已经被作者于2020/4/8 10:48:53编辑过]

有点蓝

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106188 积分：540063 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/8 10:56:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=137765&replyID=13537&skin=1

5233655cs

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/8 11:29:00 [只看该作者]

Dim n As Integer = e.Form.Controls("TextBox1").value

Dim cmd As new SQLCommand

cmd.connectionName = "ImproveSQL"

cmd.commandtext = "selec t 改善前照片 from {" & dtname & "} where 序号 ='"& n & "'"

Dim dt As DataTable = cmd.Executereader

Dim src As String

If dt.DataRows.count>0 Then

Dim imagebytes As Byte() =dt.DataRows(0)("改善前照片")

Dim ms As new system.io.memorystream(imagebytes)

e.Form.Controls("PictureBox1").image = system.drawing.image.fromstream(ms)

End If

老师，现在有照片的情况下，我可以读取照片，但是如果我这一行没有照片，他就会出错 (无法将类型为“system.Int32”的对象强制转换为类型"system.Byte[]"

有点蓝

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106188 积分：540063 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/8 11:59:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0426.htm

下一主题 >> << 上一主题

总数 17 上一页 1 2

主题：[求助]SQL相关