vb上传文件的实现....

图示： http://s1.shukr.cn/files/month_0803/20080327_7de3f585c5641d9abea7NzMPQh3bSyXz.jpg 这是我用vb6.0做的一个界面,大概就实现这些功能..但是我刚接触,自己写了N久写不好，哪位朋友可以帮忙写一下发到我邮箱里 [email protected] 补充:上传是http方式提交,不是FTP的,文件是被传到某个虚拟空间的指定目录下、不允许上传的文件格式，要有弹出窗口提示，下载地址那里生成类似 http://www.xxx.com/up/文件名.rar 文件名最好能随机产生，或者是加密都行.[原文件名也可].传输进度那里有进度条，没有或复杂可以改一下界面，做成完成百分多少这样子的...注：我空间是php环境.

举报该问题

推荐答案 2013-10-24

数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。 1、打开数据表通过以下语句打开数据表： dim office_rst As New ADODB.Recordset adocon.CursorLocation = adUseClient office_rst.Open "office", adocon, adOpenDynamic, adLockOptimistic, adCmdTable 2、添加新记录并上传文件假定通过一些操作已经获得了要上传的文件路径和名称(例如，可利用CommomDialog控件获得)，保存在string型变量filePath中。上传的关键语句如下： dim adofld As ADODB.Field, DataArr() As Byte, filelen As Long, file_num As Long office_rst.AddNew Set adofld = office_rst("office") adorst("filename").Value = filePath file_num = FreeFile '返回一个 Integer，代表下一个可供Open语句使用的文件号 Open filePath For Binary Access Read As file_num '打开磁盘文件 filelen = LOF(file_num) '求文件长度 ReDim DataArr(filelen) '根据文件长度定义动态数组大小 Get sourcefile, , DataArr '将一个已打开的磁盘文件读入数组变量之中 adofld.AppendChunk DataArr() '将数组内容存入image型字段中 Close file_num '关闭磁盘文件 adorst.update 其中的filename为表office中的一个string型字段，用于存储档案文件的名称。

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/7tjtvz7eB.html

相似回答

VB中如何实现上传文件的功能?答：用script脚本直接调用 FTP 命令实现上传文件到FTP服务器。代码如下：'定义API函数Const SYNCHRONIZE = &H100000Const INFINITE = &HFFFFFFFFPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPriv...

vb+access。如何实现图片,word文档的上传与存储。答：vb+access。如何实现图片,word文档的上传与存储。 5 点击上传可以打开文件选择对话框,选择文件后文件路径名显示在txt控件中。点击保存后文档可以存储到access数据库中。... 点击上传可以打开文件选择对话框,选择文件后文件路径名显示在txt控件中。点击保存后文档可以存储到access数据库中。展开  我来答分享...

VB做ftp上传工具答：我们首先使用FTP传输工具,用VB5.0中SHELL命令调用DOS批处理文件来实现传输的需要。Shell调用格式:Shell(pathname[,windowstyle])例子:Shell("c:\windows\upload.bat")批处理文件upload.bat的内容:c:\windows\ftphostname username password sendc:\zrh\upload.txtupload.txt bye 该命令实现了文件"upload...

VB如何实现传输语音和文件,我想做个聊天工具答：传输语音和文件都可以通过Mswinsock 实现，只是速度方面我没有试过，我正巧最近也弄了点Mswinsock 相关的东西，代码发给你看看，希望有帮助传送文件对于网络编程来说是基本的功能，比如远程控制软件。在编制一个软件时，我从网上下了很多传文件的程序，这些程序提供的传文件功能根本就不能用。传文本还可以...

如何用VB实现文件传输?答：Private Sub SendFile(srcpath As String, sock As Winsock)Dim buff() As Byte Dim lnfile As Long Dim nLoop As Long Dim nRemain As Long Dim cn As Long Dim filenumber As Integer 'On Error GoTo ...

VB实现上传文件到FTP空间答：传送文件，用 Inet 控件 Components -> Microsoft Internet Transfer Control 6.0 Private Sub FTPTxtFile()Dim TRANSFER_STRING As String, PutString As String Dim lSizeOfFile As Integer Dim sLocalDir As String Dim ftp As String 'sLocalDir = GetSetting(gsTitle, "Settings", "LocalDir",...

vb 简单ftp上传答：下面的例子是，把路径"C:\test.txt"文件上传到ftp://localhost/test.txt保存。详细说明请参照 http://bingning.net/free/source/internet/ftpwebclient.html 'WebClient对象作成 Dim wc As New System.Net.WebClient()'指定用户名和密码 wc.Credentials = New System.Net.NetworkCredential("username"...

急~!!! 如何用VB实现局域网内传送文件答：Private Type NETRESOURCE dwScope As Long dwType As Long dwDisplayType As Long dwUsage As Long pLocalName As Long pRemoteName As Long pComment As Long pProvider As Long End Type 使用WinSock控件可以收发文件，并且不需要源主机...

VB怎样上传图片到服务器答：3、现在我们已经实现了连接,然后就需要调用FtpGetFile 。这个函数完成从一个FTP服务器上读取文件并在本地存储时有关的所有管理功能。VB特定调用这一函数的声明是:Private Declare Function FtpGetFile Lib "wininet。dll" Alias "FtpGetFileA" _(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _...

大家正在搜

上传文件实现文件叠加 javaweb实现文件上传 java实现上传文件 java实现文件上传服务器如何实现网页上传文件可以下载文件和上传文件怎么往网页上上传文件上传文件的页面 javascript上传文件