如何把当前要导出的数据表、直接上传到服务器上?
目前是把存在本地电脑上的“c:\data\Desert.jpg”上传上去、但是我想实现把我准备导出的文件直接上传;该怎么改?
Dim dr1 As DataRow = DataTables("岗位执行操作维护表").sqlFind("表名 = '装机工单清单表' And 工作岗位 = '内线导单组' And 执行类型 = '导出数据权限' ")
Dim dt As DataRow = DataTables("岗位执行操作维护表").sqlFind("表名 = '装机工单清单表' And 工作岗位 = '内线导单组' And 执行类型 = '导出数据字段' ")
If User.Name = "开发者" Or dr1("列表项目1") Like "*"& User.Name &"*" Then
Dim str = dt("列表项目1")
Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex1 As New Exporter
ex1.SourceTableName = "装机工单清单表" '指定导出表
ex1.NewTableName = "装机工单清单表"
ex1.FilePath = dlg.FileName
ex1.Format = "Excel2007" '导出格式为Excel
ex1.Fields = ""& str &"" '指定导出字段
ex1.Export() '开始导出
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
MessageBox.show("完成【装机工单清单表】数据导出工作!!!", "非常关键提醒")
End If
Else
MessageBox.show("您无权进行该操作,请与管理员联系!!!", "非常关键提醒")
End If