主题：[求助]SQL数据库文件上传下载

If Tables("SQL_wdjbxxb").Current Is Nothing Then      'SQL_wdjbxxb为外部数据表,内容和数据库的一样

    Return

End If

Dim dr As DataRow = Tables("SQL_wdjbxxb").Current.DataRow

Dim pts As String = dr.SQLGetValue("hzm") .ToString()             'hzm为数据库的后缀名一列

If dr.IsNull("wdmc") = False Then

    Dim lujing As String =  ProjectPath &  dr("wdmc") & "." & pts

    If FileSys.FileExists(lujing) Then '如果本地存在同名文件

        '则直接使用本地文件

    Else '否则从数据库提取文件

        If dr.SQLLoadFile("image",lujing) = False Then '如果提取文件失败    'image为数据库的二进制一列

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

            Return

        End If

    End If

    Dim Proc As New Process '打开文件

    Proc.File = lujing

    Proc.Start()

End If