云服务器如何接收用户上传的文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 云服务器如何接收用户上传的文件？

共有3800人关注过本帖树形打印复制链接主题：云服务器如何接收用户上传的文件？

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

云服务器如何接收用户上传的文件？ 发帖心情

Post By：2021/1/4 14:05:00 [只看该作者]

For Each key As String In e.Files.Keys

If key = "up1" Then

For Each fln As String In e.Files(key)

e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)

dr.Lines("照片") = e.Files(key)

End If

请老师指点：云服务器如何接收用户上传的文件？谢谢

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2021/1/4 14:09:00 [只看该作者]

使用参数化方式上传。

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2021/1/4 14:15:00 [只看该作者]

Dim xsphoto As List(of String)

'For Each key As String In e.Files.Keys

'If key = "up1" Then

'For Each fln As String In e.Files(key)

'e.SaveFile(key, fln, ProjectPath & "Attachments\照片\" & fln)

'Next

'xsphoto = e.Files(key)

'End If

'Next

这样改可以吗？

有点蓝

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

加好友

发短信

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

Post By：2021/1/4 14:35:00 [只看该作者]

就是1楼的用法，有什么问题？http://www.foxtable.com/mobilehelp/topics/0060.htm

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2021/1/4 18:29:00 [只看该作者]

请老师指点：云服务器如何接收用户上传的文件,使用参数化方式上传

cmd.Parameters.Add("@照片", e.Files(key))

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2021/1/4 18:42:00 [只看该作者]

cmd.Parameters.Add("@照片", xsphoto)

3楼这样改，没有获取到学生照片文件名。

请指点，谢谢！

有点蓝

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

加好友

发短信

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

Post By：2021/1/4 20:11:00 [只看该作者]

保存为二进制数据库数据？先保存到硬盘

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

如果只是保存文件名

cmd.Parameters.Add("@照片", string.join(vbcrlf,xsphoto.toarray))

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2021/1/4 20:48:00 [只看该作者]

谢谢老师指点！

evolymft

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

加好友

发短信

等级：五尾狐帖子：1028 积分：7191 威望：0 精华：0 注册：2016/6/16 15:23:00

Post By：2021/12/15 22:31:00 [只看该作者]

请问老师：如何在上传图片时将attachment中的图片文件重命名为不重复的行号，谢谢！晚安！

有点蓝

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

加好友

发短信

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

Post By：2021/12/16 9:03:00 [只看该作者]

建议使用日期命名

e.SaveFile(key, fln, ProjectPath & "Attachments\照片\" & format(date.now，"yyyyMMddHHmmssfffff") & fln)

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

总数 27 1 2 3 下一页

主题：云服务器如何接收用户上传的文件？