VB实现文件数据对SQL Server上传下载
ain, vResume)
If nRet = 0 Or nRet = 234& Then
For i = 0 To lEntriesRead - 1
CopyMemory sv100, ByVal lServerInfo, Len(sv100)
nLen = lstrlenW(sv100.name) * 2
If nLen Then
ReDim buffer(0 To (nLen - 1)) As Byte
CopyMemory buffer(0), ByVal sv100.name, nLen
End If
Combo1.List(i) = buffer ''服务器名
lServerInfo = lServerInfo + 24
Next i
End If
得到的服务器名通过Combo1控件显示，可从中选择储存档案数据的服务器名，再通过下列语句连接到选定服务器中的数据库：
odbcstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;_
Initial Catalog=Science_File;Data Source=" & Form2.Combo1.Text
adocon.Open odbcstr ''连接到数据库
其中的变量含义与前述相同，Form2.Combol.Text的内容即为选定的服务器名。
通过以上两种方法皆可达到连接目的，前者简洁但有很大局限性，当数据服务器名称发生变化时，必须修改源代码，很不方便。后者既有较强的操作性又很直观。在笔者开发的科技档案管理系统采用了第二种方法。
数据的上传
数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。
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型字段，用于存储档案文件的名称。
数据的下载
在完成数据库连接后不仅可以对数据库进行文件上传的操作，还可以很方便的进行下载（浏览）。通过Web Browser控件可浏览各种类型的文件。
1、WebBrowser控件
WebBrowser控件使应用程序增加了浏览功能，利用它可浏览常见的一些文件格式，如Office、CAD、BMP、JEG等。包含了WebBrowser控件的应用程序不仅可以对本机上的文件，还可以对局域网甚至世界网络范围内的文件进行浏览。
WebBrowse控件有很多方法，但这里只用到了"Navigate"方法，Navigate方法就是通过一个文件的全路径去访问这个文件，具体用法为：
WebBrowOff.Navigate URL
其中WebBrowOff 是一个WebBrowser控件，URL是必需的string型参数，它可以是表示在Internet的WWW服务程序上用于指定信息位置的字符串，也可以是一个全路径或者是对要浏览的文件通过通用命名标准命名的位置和名称。
2
If nRet = 0 Or nRet = 234& Then
For i = 0 To lEntriesRead - 1
CopyMemory sv100, ByVal lServerInfo, Len(sv100)
nLen = lstrlenW(sv100.name) * 2
If nLen Then
ReDim buffer(0 To (nLen - 1)) As Byte
CopyMemory buffer(0), ByVal sv100.name, nLen
End If
Combo1.List(i) = buffer ''服务器名
lServerInfo = lServerInfo + 24
Next i
End If
得到的服务器名通过Combo1控件显示，可从中选择储存档案数据的服务器名，再通过下列语句连接到选定服务器中的数据库：
odbcstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;_
Initial Catalog=Science_File;Data Source=" & Form2.Combo1.Text
adocon.Open odbcstr ''连接到数据库
其中的变量含义与前述相同，Form2.Combol.Text的内容即为选定的服务器名。
通过以上两种方法皆可达到连接目的，前者简洁但有很大局限性，当数据服务器名称发生变化时，必须修改源代码，很不方便。后者既有较强的操作性又很直观。在笔者开发的科技档案管理系统采用了第二种方法。
数据的上传
数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。
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型字段，用于存储档案文件的名称。
数据的下载
在完成数据库连接后不仅可以对数据库进行文件上传的操作，还可以很方便的进行下载（浏览）。通过Web Browser控件可浏览各种类型的文件。
1、WebBrowser控件
WebBrowser控件使应用程序增加了浏览功能，利用它可浏览常见的一些文件格式，如Office、CAD、BMP、JEG等。包含了WebBrowser控件的应用程序不仅可以对本机上的文件，还可以对局域网甚至世界网络范围内的文件进行浏览。
WebBrowse控件有很多方法，但这里只用到了"Navigate"方法，Navigate方法就是通过一个文件的全路径去访问这个文件，具体用法为：
WebBrowOff.Navigate URL
其中WebBrowOff 是一个WebBrowser控件，URL是必需的string型参数，它可以是表示在Internet的WWW服务程序上用于指定信息位置的字符串，也可以是一个全路径或者是对要浏览的文件通过通用命名标准命名的位置和名称。
2