SQLLoadFile
DataRow的一个方法,用于从二进制列中提取文件。
语法:
SQLLoadFile(Field,FileName)
Field: 字符型,二进制列的列名
FileName: 字符型,文件名,提取的内容将保存在此文件中。
如果成功提取文件,返回True,否则返回False。
示例
假定员工表的附件列中存有Word文件,下面的代码可以提取这个Word文件并打开之:
If Tables("员工").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim fl As String = ProjectPath & dr("_Identify") & ".doc"
If dr.SQLLoadFile("附件",fl) Then '如果提取文件成功
Dim Proc As New Process '打开文件
Proc.File = fl
Proc.Start()
Else
Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If