主题：请教SQL数据库二进制应用的问题

If Tables("员工").Current Is Nothing Then

    Return

End If

Dim dr As DataRow = Tables("员工").Current.DataRow

If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件

    dr.Save()

End If

Dim dlg As New OpenFileDialog

dlg.Filter = "文件|*.doc;*.xls;*.pdf"

If dlg.ShowDialog =DialogResult.OK Then

    dr.SQLInsertFile("附件",dlg.FileName) '插入文件

End If

If Tables("员工").Current Is Nothing Then

    Return

End If

Dim dr As DataRow = Tables("员工").Current.DataRow

Dim fl As String = ProjectPath & dr("_Identify") & "*.doc;*.xls;*.pdf"

If dr.SQLLoadFile("附件", fl) Then '如果提取文件成功

    Dim Proc As New Process '打开文件

    Proc.File = fl

    Proc.Start()

Else

    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If