Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何自动上传图片


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

主题：如何自动上传图片
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/16 21:24:00 [显示全部帖子]

用代码上传图片，然后给单元格赋值为上传的路径

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\data\Desert.jpg","\update\Desert.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/16 21:32:00 [显示全部帖子]

 意思是上传图片到ftp

 

http://www.foxtable.com/help/topics/1410.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/16 21:39:00 [显示全部帖子]

 如果有相同的文件，会覆盖原先那个文件。

 

 上传之后不是要在fa piao图片显示么？就在fa piao图片列赋值为上传的ftp的路径或者文件名。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/16 21:42:00 [显示全部帖子]

 你循环每一行，就是批量啊。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/17 11:49:00 [显示全部帖子]

 上传例子。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/17 11:53:00 [显示全部帖子]

 是，可以测试的例子

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/17 12:42:00 [显示全部帖子]

Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "test"
ftp1.Password = "test"
For Each r As Row In Tables("假设为SQL连接数据库").Rows
    Dim f As String = "d:\" & r("列9")
    If FileSys.FileExists(f) Then
        Dim ftpf As String = "/test/" & r("列9")
        If ftp1.FileExists(ftpf) = False Then
            If ftp1.Upload(f, ftpf) = True Then
                r("列12") = ftpf
            Else
                r("列12") = Nothing
            End If
        End If
    Else
        r("列12") = Nothing
    End If
Next
ftp1.Close

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/17 14:24:00 [显示全部帖子]

单独做一个按钮处理。

 

Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "test"
ftp1.Password = "test"
For Each r As Row In Tables("假设为SQL连接数据库").Rows
    Dim f As String = "d:\" & r("列9")
    If FileSys.FileExists(f) Then
        Dim ftpf As String = "/test/" & r("列9")
        If ftp1.FileExists(ftpf) = False Then
            If ftp1.Upload(f, ftpf) = True Then
                r("列12") = ftpf
            Else
                r("列12") = Nothing
            End If
        End If
    Else
        r("列12") = Nothing
    End If
Next
ftp1.Close

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/17 14:27:00 [显示全部帖子]

如果要一行一行处理，就写到datacolchanged事件

 

If e.DataCol.Name = "列9" Then
    If e.NewValue = Nothing Then
        e.DataRow("列12") = Nothing
    Else
        Dim ftp1 As New FtpClient
        ftp1.Host="127.0.0.1"
        ftp1.Account = "test"
        ftp1.Password = "test"
        Dim f As String = "d:\" & e.DataRow("列9")
        If FileSys.FileExists(f) Then
            Dim ftpf As String = "/test/" & e.DataRow("列9")
            If ftp1.FileExists(ftpf) = False Then
                If ftp1.Upload(f, ftpf) = True Then
                    e.DataRow("列12") = ftpf
                Else
                    e.DataRow("列12") = Nothing
                End If
            End If
           
        End If
        ftp1.Close
    End If
End If

 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/18 10:22:00 [显示全部帖子]

Dim ftp1 As New FtpClient
ftp1.Host="192.168.0.17"
ftp1.Account = "byftpuser"
ftp1.Password = "123456"
For Each r As Row In Tables("fa piao明细").Rows
    Dim ff As String = "C:\eTax@SH WSRZ\Data\Pictures\31022875380680X\" & r("图片名")
    If FileSys.FileExists(ff) Then
        Dim ftpf As String = "/fptp/" & r("图片名")
        If ftp1.FileExists(ftpf) = False Then
            If ftp1.Upload(ff, ftpf) = True Then
                r("fa piao图片") = ftpf
            Else
                r("fa piao图片") = Nothing
            End If
        End If
    Else
        r("fa piao图片") = Nothing
    End If
Next
ftp1.Close

 回到顶部
总数 19 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.03906 秒, 5 次数据查询